********************************************************************
* 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    fcs   /KBVDIO/
L0018    fcs   /drvr51/
L001E    fcs   /term/
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   *