--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/cmds/go51.asm	Sat Jul 06 19:52:09 2002 +0000
@@ -0,0 +1,129 @@
+********************************************************************
+* go51 - The 51 column by 24 line video display
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+* 1      Original Dragon distribution version
+
+         nam   go51
+         ttl   The 51 column by 24 line video display
+
+* Disassembled 02/07/06 21:10:42 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         endc
+tylg     set   Prgrm+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+         mod   eom,name,tylg,atrv,start,size
+u0000    rmb   2
+u0002    rmb   2
+u0004    rmb   2
+u0006    rmb   32
+size     equ   .
+name     equ   *
+         fcs   /go51/
+         fcb   $01 
+L0012    fcb   $4B K
+         fcb   $42 B
+         fcb   $56 V
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $CF O
+L0018    fcb   $64 d
+         fcb   $72 r
+         fcb   $76 v
+         fcb   $72 r
+         fcb   $35 5
+         fcb   $B1 1
+L001E    fcb   $74 t
+         fcb   $65 e
+         fcb   $72 r
+         fcb   $ED m
+start    equ   *
+         leax  >L0012,pcr
+         lbsr  L00CB
+         lbcs  L00C8
+         stx   ,u
+         lbsr  L00D6
+         leax  >L0018,pcr
+         lbsr  L00CB
+         lbcs  L00C8
+         stx   u0002,u
+         ldd   $02,x
+         std   u0004,u
+         pshs  u,cc
+         orcc  #$50
+         ldx   >$006B
+         stx   >$0032
+         ldy   ,u
+         ldx   u0004,u
+         ldu   u0002,u
+L0054    lda   ,u+
+         sta   ,y+
+         leax  -$01,x
+         bne   L0054
+         ldx   #$FF00
+         lda   $01,x
+         ora   #$30
+         anda  #$F7
+         sta   $01,x
+         lda   $03,x
+         anda  #$F6
+         ora   #$30
+         sta   $03,x
+         ldx   #$FF20
+         lda   $03,x
+         ora   #$38
+         sta   $03,x
+         puls  u,cc
+         ldx   u0002,u
+         lbsr  L00D6
+         ldx   ,u
+         ldd   $04,x
+         leax  d,x
+         leay  >L0012,pcr
+         ldb   #$06
+L008B    lda   ,y+
+         sta   ,x+
+         decb  
+         bne   L008B
+         lda   #$01
+         ldb   #$00
+         leax  u0006,u
+         os9   I$GetStt 
+         bcs   L00C8
+         clr   $01,x
+         lda   #$18
+         sta   $08,x
+         lda   #$01
+         ldb   #$00
+         os9   I$SetStt 
+         bcs   L00C8
+         leax  >L001E,pcr
+         lda   #$F1
+         pshs  u
+         os9   F$Link   
+         tfr   u,x
+         puls  u
+         bcs   L00C8
+         clr   <$13,x
+         lda   #$18
+         sta   <$1A,x
+         bsr   L00D6
+         clrb  
+L00C8    os9   F$Exit   
+L00CB    pshs  u
+         lda   #$E1
+         os9   F$Link   
+         tfr   u,x
+         puls  pc,u
+L00D6    pshs  u
+         tfr   x,u
+         os9   F$UnLink 
+         puls  pc,u
+         emod
+eom      equ   *