# HG changeset patch
# User boisy
# Date 1047824325 0
# Node ID 66e53c0a3eea280f961404d7ace7d3ed47140b97
# Parent  938ec7bd301fd0f8593626e5e887202ced7b9aef
Moved drvr51 in MODULES

diff -r 938ec7bd301f -r 66e53c0a3eea level1/cmds/drvr51.asm
--- a/level1/cmds/drvr51.asm	Sun Mar 16 13:52:31 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1439 +0,0 @@
-********************************************************************
-* drvr51 - Driver for The 51 column by 24 line video display
-*
-* $Id$
-*
-* Ed.    Comments                                       Who YY/MM/DD
-* ------------------------------------------------------------------
-*   1    Original Dragon distribution version
-
-
-         nam   drvr51
-         ttl   Driver for The 51 column by 24 line video display
-
-* Disassembled 02/07/06 21:17:23 by Disasm v1.6 (C) 1988 by RML
-
-         ifp1
-         use   defsfile
-         endc
-
-tylg     set   Drivr+Objct   
-atrv     set   ReEnt+rev
-rev      set   $01
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-         org   0
-u0000    rmb   1
-u0001    rmb   1
-u0002    rmb   1
-u0003    rmb   1
-u0004    rmb   1
-u0005    rmb   1
-u0006    rmb   1
-u0007    rmb   1
-u0008    rmb   1
-u0009    rmb   1
-u000A    rmb   1
-u000B    rmb   1
-u000C    rmb   1
-u000D    rmb   1
-u000E    rmb   1
-u000F    rmb   8
-u0017    rmb   4
-u001B    rmb   2
-u001D    rmb   1
-u001E    rmb   1
-u001F    rmb   1
-u0020    rmb   1
-u0021    rmb   1
-u0022    rmb   2
-u0024    rmb   1
-u0025    rmb   1
-u0026    rmb   1
-u0027    rmb   1
-u0028    rmb   1
-u0029    rmb   1
-u002A    rmb   1
-u002B    rmb   1
-u002C    rmb   1
-u002D    rmb   1
-u002E    rmb   1
-u002F    rmb   1
-u0030    rmb   1
-u0031    rmb   1
-u0032    rmb   1
-u0033    rmb   1
-u0034    rmb   1
-u0035    rmb   1
-u0036    rmb   1
-u0037    rmb   1
-u0038    rmb   1
-u0039    rmb   1
-u003A    rmb   6
-u0040    rmb   2
-u0042    rmb   2
-u0044    rmb   6
-u004A    rmb   1
-u004B    rmb   5
-u0050    rmb   5
-u0055    rmb   9
-u005E    rmb   2
-u0060    rmb   9
-u0069    rmb   6
-u006F    rmb   1
-u0070    rmb   1
-u0071    rmb   7
-u0078    rmb   6
-u007E    rmb   2
-u0080    rmb   8
-u0088    rmb   6
-u008E    rmb   2
-u0090    rmb   6
-u0096    rmb   3
-u0099    rmb   1
-u009A    rmb   3
-u009D    rmb   1
-size     equ   .
-
-         fcb   UPDAT.
-
-name     fcs   /drvr51/
-         fcb   edition
-
-start    lbra  Init
-         lbra  Read
-         lbra  Write
-         lbra  GetStat
-         lbra  SetStat
-         lbra  Term+1
-
-Init     pshs  u,a
-         ldu   <u001D,u
-         ldd   #$0200
-         os9   F$SRtMem
-         ldu   $01,s
-         tst   <u002C,u
-         beq   L0044
-         ldu   <u002D,u
-         ldd   #$1800
-         os9   F$SRtMem 
-         ldu   $01,s
-L0044    ldb   #$81
-         leax  <u001D,u
-L0049    clr   ,x+
-         decb  
-         bne   L0049
-         ldd   #$1900
-         os9   F$SRqMem 
-         bcs   L009C
-         tfr   u,d
-         ldu   $01,s
-         tfr   d,x
-         bita  #$01
-         beq   L0066
-         leax  >$0100,x
-         bra   L0068
-L0066    adda  #$18
-L0068    stx   <u0022,u
-         tfr   d,u
-         ldd   #$0100
-         os9   F$SRtMem 
-         ldu   $01,s
-         lda   #$10
-         sta   <u0037,u
-         pshs  cc
-         orcc  #IntMasks
-         leay  >L00AD,pcr
-         sty   >D.IRQ
-         ldx   #$FF00
-         lda   $03,x
-         ora   #$01
-         sta   $03,x
-         inc   >Term,pcr
-         puls  cc
-         lbsr  L0475
-         lbsr  L02C3
-         clrb  
-L009C    puls  pc,u,a
-Term     fcb   $00
-         pshs  cc
-         orcc  #IntMasks
-         ldx   >D.AltIRQ
-         stx   >D.IRQ
-         puls  cc
-         clrb  
-         rts   
-L00AD    ldu   >D.KbdSta
-         ldx   #$FF00
-         lda   $03,x
-         bmi   L00BB
-         jmp   [>D.SvcIRQ]
-L00BB    lda   $02,x
-         lda   >D.DskTmr
-         beq   L00CB
-         deca  
-         sta   >D.DskTmr
-         bne   L00CB
-         sta   >$FF48
-L00CB    lbsr  L04E5
-         jmp   [>D.AltIRQ]
-L00D2    pshs  x,b
-         lda   u0004,u
-         sta   u0005,u
-         ldx   #$0000
-         os9   F$Sleep  
-         ldx   <u004B
-         ldb   <$36,x
-         beq   L00EC
-         cmpb  #$03
-         bhi   L00EC
-         coma  
-         puls  pc,x,a
-
-L00EC    puls  x,b
-Read     tst   >Term,pcr
-         bne   L00F9
-         lbsr  Init
-         bcs   L011C
-L00F9    leax  <u003A,u
-         orcc  #IRQMask
-         ldb   <u001D,u
-         cmpb  <u001E,u
-         beq   L00D2
-         lda   b,x
-         incb  
-         cmpb  #$64
-         bcs   L010E
-         clrb  
-L010E    stb   <u001D,u
-         andcc #^(IRQMask+Carry)
-         tst   u000E,u
-         beq   L011C
-         clr   u000E,u
-         comb  
-         ldb   #$F4
-L011C    rts   
-
-Write    tst   >Term,pcr
-         bne   L012C
-         pshs  a
-         lbsr  Init
-         puls  a
-         bcs   L0139
-L012C    ldb   <u001F,u
-         bne   L0165
-         cmpa  #$1B
-         bne   L013A
-         inc   <u001F,u
-         clrb  
-L0139    rts   
-L013A    cmpa  #$20
-         bcs   L0144
-         cmpa  #$7F
-         bcc   L0144
-         bra   L0173
-L0144    leax  >L066E,pcr
-L0148    tst   ,x
-         bne   L0150
-L014C    clr   <u001F,u
-         rts   
-L0150    cmpa  ,x+
-         bne   L0161
-         ldd   ,x
-         leax  >L066E,pcr
-         leax  d,x
-         stx   <u0020,u
-         jmp   ,x
-L0161    leax  $02,x
-         bra   L0148
-L0165    inc   <u001F,u
-         leax  >L0681,pcr
-         cmpb  #$01
-         beq   L0148
-         jmp   [<u0020,u]
-L0173    inc   <u0032,u
-         bsr   L01B3
-         tst   <u0039,u
-         beq   L0185
-         lda   #$F8
-         leay  <-$40,y
-         lbsr  L0236
-L0185    lda   <u0024,u
-         inca  
-         cmpa  #$33
-         bcs   L01A2
-         clr   <u0024,u
-         lda   <u0025,u
-         inca  
-         cmpa  #$18
-         bcs   L019D
-         lbsr  L033E
-         bra   L01A5
-L019D    sta   <u0025,u
-         bra   L01A5
-L01A2    sta   <u0024,u
-L01A5    clr   <u0033,u
-         ldd   <u0024,u
-         std   <u0030,u
-         dec   <u0032,u
-         clrb  
-         rts   
-L01B3    tfr   a,b
-         subb  #$20
-         clra  
-         leax  >L06A0,pcr
-         lslb  
-         rola  
-         lslb  
-         rola  
-         leax  d,x
-         ldb   #$05
-         lda   <u0024,u
-         mul   
-         pshs  b
-         lsra  
-         rorb  
-         lsra  
-         rorb  
-         lsra  
-         rorb  
-         puls  a
-         anda  #$07
-         pshs  b
-         sta   <u0026,u
-         tst   <u0034,u
-         bne   L01FF
-         tfr   a,b
-         lda   #$F8
-         tstb  
-         beq   L01FA
-L01E5    lsra  
-         decb  
-         bhi   L01E5
-         bne   L01EE
-         rorb  
-         bra   L01FA
-L01EE    pshs  b
-         ldb   #$80
-L01F2    lsra  
-         rorb  
-         dec   ,s
-         bne   L01F2
-         leas  $01,s
-L01FA    coma  
-         comb  
-         std   <u0035,u
-L01FF    ldy   <u0022,u
-         lda   <u0025,u
-         ldb   ,s+
-         leay  d,y
-         lda   #$04
-         pshs  a
-         inc   <u0032,u
-L0211    lda   ,x
-         anda  #$F0
-         bsr   L0236
-         lda   ,x+
-         anda  #$0F
-         bsr   L0227
-         dec   ,s
-         bne   L0211
-         dec   <u0032,u
-         clrb  
-         puls  pc,b
-L0227    ldb   <u0026,u
-         subb  #$04
-         bhi   L023B
-         beq   L0250
-L0230    lsla  
-         incb  
-         bne   L0230
-         bra   L0250
-L0236    ldb   <u0026,u
-         beq   L0250
-L023B    lsra  
-         decb  
-         bhi   L023B
-         bne   L0244
-         rorb  
-         bra   L0250
-L0244    pshs  b
-         ldb   #$80
-L0248    lsra  
-         rorb  
-         dec   ,s
-         bne   L0248
-         leas  $01,s
-L0250    tst   <u0034,u
-         bne   L0273
-         tst   <u0038,u
-         beq   L0262
-         coma  
-         comb  
-         eora  <u0035,u
-         eorb  <u0036,u
-L0262    pshs  b,a
-         ldd   <u0035,u
-         anda  ,y
-         andb  $01,y
-         addd  ,s++
-L026D    std   ,y
-         leay  <$20,y
-         rts   
-L0273    eora  ,y
-         eorb  $01,y
-         bra   L026D
-         ldx   #$FF20
-         ldb   #$64
-L027E    lda   ,x
-         eora  #$C0
-         sta   ,x
-         lda   #$19
-L0286    deca  
-         nop   
-         nop   
-         bne   L0286
-         decb  
-         bne   L027E
-         lbra  L014C
-         dec   <u0024,u
-         bpl   L02A6
-         lda   #$32
-         sta   <u0024,u
-         dec   <u0025,u
-         bpl   L02A6
-         clr   <u0025,u
-         lbsr  L035E
-L02A6    lbsr  L0484
-         lbra  L014C
-L02AC    lda   <u0025,u
-         inca  
-         cmpa  #$18
-         bcs   L02B9
-         lbsr  L033E
-         bra   L02BC
-L02B9    sta   <u0025,u
-L02BC    bra   L02A6
-         clr   <u0024,u
-         bra   L02A6
-L02C3    ldy   <u0022,u
-         leay  >$0080,y
-         lda   #$18
-         pshs  a
-         inc   <u0032,u
-L02D2    bsr   L0314
-         dec   ,s
-         bne   L02D2
-         leas  $01,s
-         clra  
-         clrb  
-         sta   <u0033,u
-         std   <u0030,u
-         std   <u0024,u
-         dec   <u0032,u
-         ldx   #$FF20
-         lda   $02,x
-         ora   #$F0
-         sta   $02,x
-         ldx   #$FFC0
-         lda   #$06
-         ldb   #$03
-         bsr   L0305
-         lda   <u0022,u
-         lsra  
-         ldb   #$07
-         bsr   L0305
-         lbra  L014C
-L0305    lsra  
-         bcc   L030E
-         leax  $01,x
-         sta   ,x+
-         bra   L0310
-L030E    sta   ,x++
-L0310    decb  
-         bne   L0305
-         rts   
-L0314    lda   #$10
-L0316    pshs  a
-         lda   <u0038,u
-         tfr   a,b
-L031D    std   <-$80,y
-         std   <-$60,y
-         std   <-$40,y
-         std   <-$20,y
-         std   <$20,y
-         std   <$40,y
-         std   <$60,y
-         std   ,y++
-         dec   ,s
-         bne   L031D
-         leay  >$00E0,y
-         puls  pc,b
-L033E    ldy   <u0022,u
-         inc   <u0032,u
-         pshs  u
-         leau  >$0100,y
-         lda   #$10
-         bsr   L037C
-         puls  u
-         dec   <u0031,u
-L0354    leay  >$0080,y
-         bsr   L0314
-         dec   <u0032,u
-         rts   
-L035E    ldy   <u0022,u
-         leay  >$17F0,y
-         inc   <u0032,u
-         pshs  u
-         leau  >-$0100,y
-         lda   #$F0
-         bsr   L037C
-         leay  ,u
-         puls  u
-         inc   <u0031,u
-         bra   L0354
-L037C    ldb   #$17
-         pshs  b
-L0380    ldb   #$10
-L0382    ldx   ,u
-         stx   ,y
-         ldx   u0002,u
-         stx   $02,y
-         ldx   u0004,u
-         stx   $04,y
-         ldx   u0006,u
-         stx   $06,y
-         ldx   u0008,u
-         stx   $08,y
-         ldx   u000A,u
-         stx   $0A,y
-         ldx   u000C,u
-         stx   $0C,y
-         ldx   u000E,u
-         stx   $0E,y
-         leay  a,y
-         leau  a,u
-         decb  
-         bne   L0382
-         dec   ,s
-         bne   L0380
-         puls  pc,b
-         inc   <u0032,u
-         bsr   L03BA
-         dec   <u0032,u
-         lbra  L014C
-L03BA    clr   <u0033,u
-         ldb   <u0024,u
-         pshs  b
-         bitb  #$07
-         bne   L03CB
-         lda   #$05
-         mul   
-         bra   L03F3
-L03CB    lda   #$01
-         pshs  a
-L03CF    lda   #$20
-         lbsr  L01B3
-         lda   <u0024,u
-         inca  
-         sta   <u0024,u
-         cmpa  #$33
-         bcs   L03E3
-         leas  $01,s
-         bra   L040D
-L03E3    dec   ,s
-         bpl   L03CF
-         lda   <u0024,u
-         ldb   #$05
-         mul   
-         bitb  #$08
-         bne   L03CF
-         leas  $01,s
-L03F3    lsrb  
-         lsrb  
-         lsrb  
-         ldy   <u0022,u
-         lda   <u0025,u
-         leay  d,y
-         leay  >$0080,y
-         lda   #$20
-         pshs  b
-         suba  ,s+
-         lsra  
-         lbsr  L0316
-L040D    puls  a
-         sta   <u0024,u
-         rts   
-         inc   <u0032,u
-         bsr   L03BA
-         lda   #$17
-         suba  <u0025,u
-         bls   L042A
-         pshs  a
-L0421    lbsr  L0314
-         dec   ,s
-         bne   L0421
-         leas  $01,s
-L042A    dec   <u0032,u
-         lbra  L014C
-         clr   <u0024,u
-         clr   <u0025,u
-         lbra  L02A6
-         ldb   <u001F,u
-         subb  #$02
-         bne   L0442
-         clrb  
-         rts   
-L0442    decb  
-         bne   L0450
-         cmpa  #$33
-         bcs   L044B
-         lda   #$32
-L044B    sta   <u0024,u
-         clrb  
-         rts   
-L0450    cmpa  #$18
-         bcs   L0456
-         lda   #$17
-L0456    sta   <u0025,u
-L0459    lbra  L02A6
-         inc   <u0024,u
-         lda   <u0024,u
-         cmpa  #$33
-         bcs   L0459
-         clr   <u0024,u
-         lbra  L02AC
-         lda   #$FF
-         coma  
-L046F    sta   <u0038,u
-         lbra  L014C
-L0475    lda   #$FF
-         bra   L046F
-         lda   #$FF
-L047B    sta   <u0039,u
-         lbra  L014C
-         clra  
-         bra   L047B
-L0484    ldd   <u0024,u
-         inc   <u0032,u
-         tst   <u0033,u
-         bne   L0494
-         std   <u0030,u
-         bra   L04B9
-L0494    pshs  b,a
-         ldd   <u0030,u
-         inc   <u0034,u
-         tstb  
-         bmi   L04AB
-         cmpb  #$18
-         bcc   L04AB
-         std   <u0024,u
-         lda   #$7F
-         lbsr  L01B3
-L04AB    puls  b,a
-         std   <u0024,u
-         std   <u0030,u
-         clr   <u0033,u
-         dec   <u0034,u
-L04B9    dec   <u0032,u
-         clrb  
-         rts   
-
-GetStat  cmpa  #$01
-         bne   L04D0
-         lda   <u001D,u
-         cmpa  <u001E,u
-         beq   L04CC
-L04CA    clrb  
-         rts   
-L04CC    comb  
-         ldb   #$F6
-         rts   
-L04D0    cmpa  #$06
-         beq   L04CA
-         cmpa  #$02
-         bne   SetStat
-         ldx   $06,y
-         ldd   <u0022,u
-         std   $04,x
-         clrb  
-         rts   
-
-SetStat  comb  
-         ldb   #$D0
-         rts   
-
-L04E5    tst   <u0032,u
-         bne   L0512
-         dec   <u0037,u
-         bne   L0512
-         lda   #$10
-         sta   <u0037,u
-         inc   <u0034,u
-         ldd   <u0024,u
-         pshs  b,a
-         ldd   <u0030,u
-         std   <u0024,u
-         lda   #$7F
-         lbsr  L01B3
-         puls  b,a
-         std   <u0024,u
-         com   <u0033,u
-         dec   <u0034,u
-L0512    ldx   #$FF00
-         lda   #$FF
-         sta   $02,x
-         bsr   L053B
-         anda  #$03
-         bne   L0526
-         clra  
-         sta   $02,x
-         bsr   L053B
-         bne   L052D
-L0526    clr   <u0027,u
-         clr   <u0028,u
-         rts   
-L052D    tst   <u0028,u
-         bne   L0541
-         sta   <u0028,u
-L0535    clrb  
-         rts   
-L0537    clrb  
-         stb   $02,x
-         rts   
-L053B    lda   ,x
-         coma  
-         anda  #$7F
-         rts   
-L0541    cmpa  <u0028,u
-         bne   L0526
-         clr   <u002A,u
-         clr   <u002B,u
-         clr   <u002C,u
-         clr   <u002D,u
-         clr   <u002E,u
-         ldb   #$01
-L0557    comb  
-         stb   $02,x
-         bsr   L053B
-         beq   L05A1
-         bita  #$40
-         beq   L0583
-         cmpb  #$7F
-         bne   L056B
-         inc   <u002D,u
-         bra   L057F
-L056B    cmpb  #$FD
-         bne   L0574
-         inc   <u002E,u
-         bra   L057F
-L0574    tst   <u002C,u
-         bne   L0537
-         stb   <u002C,u
-         com   <u002C,u
-L057F    anda  #$3F
-         beq   L05A1
-L0583    pshs  b,a
-         clrb  
-L0586    lsra  
-         bcc   L058A
-         incb  
-L058A    tsta  
-         bne   L0586
-         cmpb  #$01
-         puls  b,a
-         bne   L0537
-         tst   <u002A,u
-         bne   L0537
-         sta   <u002A,u
-         stb   <u002B,u
-         com   <u002B,u
-L05A1    comb  
-         lslb  
-         bne   L0557
-         stb   $02,x
-         ldb   <u002C,u
-         beq   L05B5
-         tst   <u002A,u
-         bne   L0535
-         lda   #$40
-         bra   L05BF
-L05B5    ldb   <u002B,u
-         lda   <u002A,u
-         lbeq  L0526
-L05BF    pshs  b
-         tst   <u0027,u
-         beq   L05D0
-         dec   <u0027,u
-         beq   L05D4
-         puls  b
-         lbra  L0665
-L05D0    ldb   #$32
-         bra   L05D6
-L05D4    ldb   #$05
-L05D6    stb   <u0027,u
-         lbsr  L0667
-         lslb  
-         lslb  
-         lslb  
-         puls  a
-         pshs  b
-         lbsr  L0667
-         orb   ,s+
-         stb   <u0029,u
-         leax  >L0820,pcr
-         lda   b,x
-         tst   <u002E,u
-         beq   L05FE
-         leax  >L0886,pcr
-         lda   b,x
-         bra   L0609
-L05FE    tst   <u002D,u
-         beq   L0612
-         leax  >L0853,pcr
-         lda   b,x
-L0609    cmpa  #$1F
-         bne   L0621
-         com   <u002F,u
-         bra   L0665
-L0612    tst   <u002F,u
-         beq   L0621
-         cmpa  #$61
-         bcs   L0621
-         cmpa  #$7A
-         bhi   L0621
-         suba  #$20
-L0621    leax  <u003A,u
-         ldb   <u001E,u
-         sta   b,x
-         incb  
-         cmpb  #$64
-         bcs   L062F
-         clrb  
-L062F    cmpb  <u001D,u
-         bne   L0638
-         inc   u000E,u
-         bra   L063B
-L0638    stb   <u001E,u
-L063B    tsta  
-         beq   L065A
-         cmpa  u000D,u
-L0640    bne   L064A
-         ldx   u0009,u
-         beq   L065A
-L0646    sta   $08,x
-         bra   L065A
-L064A    ldb   #$03
-         cmpa  u000B,u
-         beq   L0656
-         ldb   #$02
-         cmpa  u000C,u
-         bne   L065A
-L0656    lda   u0003,u
-         bra   L065E
-L065A    ldb   #S$Wake
-         lda   u0005,u
-L065E    beq   L0663
-         os9   F$Send   
-L0663    clr   u0005,u
-L0665    clrb  
-         rts   
-L0667    clrb  
-L0668    incb  
-         lsra  
-         bne   L0668
-         decb  
-         rts   
-
-L066E  fcb $07
-       fcb $FC
-       fcb $0B
-       fcb $08
-       fcb $FC
-       fcb $23
-       fcb $0A
-       fcb $FC
-       fcb $3E
-       fcb $0D
-       fcb $FC
-       fcb $50
-       fcb $0C
-       fcb $FC
-       fcb $55
-       fcb $0B
-       fcb $FD
-       fcb $C2
-       fcb $00
-L0681  fcb $41
-       fcb $FD
-       fcb $CB
-       fcb $42
-       fcb $FD
-       fcb $41
-       fcb $43
-       fcb $FD
-       fcb $EE
-       fcb $44
-       fcb $FC
-       fcb $2D
-       fcb $45
-       fcb $FC
-       fcb $3E
-       fcb $46
-       fcb $FD
-       fcb $FE
-       fcb $47
-       fcb $FE
-       fcb $07
-       fcb $48
-       fcb $FE
-       fcb $0B
-       fcb $49
-       fcb $FE
-       fcb $13
-       fcb $4A
-       fcb $FD
-       fcb $A5
-       fcb $00
-L06A0  fcb $00
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $44
-       fcb $40
-       fcb $40
-       fcb $00
-       fcb $55
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $6F
-       fcb $6F
-       fcb $60
-       fcb $00
-       fcb $27
-       fcb $86
-       fcb $1E
-       fcb $20
-       fcb $91
-       fcb $24
-       fcb $89
-       fcb $00
-       fcb $4A
-       fcb $4A
-       fcb $D0
-       fcb $00
-       fcb $44
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $24
-       fcb $44
-       fcb $20
-       fcb $00
-       fcb $42
-       fcb $22
-       fcb $40
-       fcb $00
-       fcb $96
-       fcb $F6
-       fcb $90
-       fcb $00
-       fcb $44
-       fcb $E4
-       fcb $40
-       fcb $00
-       fcb $00
-       fcb $02
-       fcb $24
-       fcb $00
-       fcb $00
-       fcb $F0
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $06
-       fcb $60
-       fcb $00
-       fcb $01
-       fcb $24
-       fcb $80
-       fcb $00
-       fcb $69
-       fcb $BD
-       fcb $60
-       fcb $00
-       fcb $26
-       fcb $22
-       fcb $70
-       fcb $00
-       fcb $69
-       fcb $2C
-       fcb $F0
-       fcb $00
-       fcb $E1
-       fcb $61
-       fcb $E0
-       fcb $00
-       fcb $26
-       fcb $AF
-       fcb $20
-       fcb $00
-       fcb $F8
-       fcb $E1
-       fcb $E0
-       fcb $00
-       fcb $78
-       fcb $E9
-       fcb $60
-       fcb $00
-       fcb $F1
-       fcb $24
-       fcb $40
-       fcb $00
-       fcb $69
-       fcb $69
-       fcb $60
-       fcb $00
-       fcb $69
-       fcb $71
-       fcb $60
-       fcb $00
-       fcb $00
-       fcb $40
-       fcb $40
-       fcb $00
-       fcb $00
-       fcb $20
-       fcb $24
-       fcb $00
-       fcb $24
-       fcb $84
-       fcb $20
-       fcb $00
-       fcb $0F
-       fcb $0F
-       fcb $00
-       fcb $00
-       fcb $42
-       fcb $12
-       fcb $40
-       fcb $00
-       fcb $69
-       fcb $22
-       fcb $02
-       fcb $00
-       fcb $69
-       fcb $BB
-       fcb $87
-       fcb $00
-       fcb $69
-       fcb $F9
-       fcb $90
-       fcb $00
-       fcb $E9
-       fcb $E9
-       fcb $E0
-       fcb $00
-       fcb $78
-       fcb $88
-       fcb $70
-       fcb $00
-       fcb $E9
-       fcb $99
-       fcb $E0
-       fcb $00
-       fcb $F8
-       fcb $E8
-       fcb $F0
-       fcb $00
-       fcb $F8
-       fcb $E8
-       fcb $80
-       fcb $00
-       fcb $78
-       fcb $B9
-       fcb $70
-       fcb $00
-       fcb $99
-       fcb $F9
-       fcb $90
-       fcb $00
-       fcb $E4
-       fcb $44
-       fcb $E0
-       fcb $00
-       fcb $F2
-       fcb $2A
-       fcb $40
-       fcb $00
-       fcb $9A
-       fcb $CA
-       fcb $90
-       fcb $00
-       fcb $88
-       fcb $88
-       fcb $F0
-       fcb $00
-       fcb $FD
-       fcb $D9
-       fcb $90
-       fcb $00
-       fcb $9D
-       fcb $B9
-       fcb $90
-       fcb $00
-       fcb $69
-       fcb $99
-       fcb $60
-       fcb $00
-       fcb $E9
-       fcb $E8
-       fcb $80
-       fcb $00
-       fcb $69
-       fcb $9B
-       fcb $70
-       fcb $00
-       fcb $E9
-       fcb $EA
-       fcb $90
-       fcb $00
-       fcb $78
-       fcb $61
-       fcb $E0
-       fcb $00
-       fcb $E4
-       fcb $44
-       fcb $40
-       fcb $00
-       fcb $99
-       fcb $99
-       fcb $60
-       fcb $00
-       fcb $99
-       fcb $96
-       fcb $60
-       fcb $00
-       fcb $99
-       fcb $DD
-       fcb $F0
-       fcb $00
-       fcb $99
-       fcb $69
-       fcb $90
-       fcb $00
-       fcb $99
-       fcb $71
-       fcb $E0
-       fcb $00
-       fcb $F1
-       fcb $68
-       fcb $F0
-       fcb $00
-       fcb $E8
-       fcb $88
-       fcb $E0
-       fcb $00
-       fcb $08
-       fcb $42
-       fcb $10
-       fcb $00
-       fcb $71
-       fcb $11
-       fcb $70
-       fcb $00
-       fcb $69
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $0F
-       fcb $00
-       fcb $22
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $07
-       fcb $99
-       fcb $70
-       fcb $00
-       fcb $8E
-       fcb $99
-       fcb $E0
-       fcb $00
-       fcb $07
-       fcb $88
-       fcb $70
-       fcb $00
-       fcb $17
-       fcb $99
-       fcb $70
-       fcb $00
-       fcb $07
-       fcb $AC
-       fcb $70
-       fcb $00
-       fcb $34
-       fcb $F4
-       fcb $40
-       fcb $00
-       fcb $06
-       fcb $99
-       fcb $71
-       fcb $E0
-       fcb $8E
-       fcb $99
-       fcb $90
-       fcb $00
-       fcb $40
-       fcb $44
-       fcb $40
-       fcb $00
-       fcb $20
-       fcb $22
-       fcb $22
-       fcb $C0
-       fcb $8A
-       fcb $CA
-       fcb $90
-       fcb $00
-       fcb $44
-       fcb $44
-       fcb $40
-       fcb $00
-       fcb $0E
-       fcb $DD
-       fcb $90
-       fcb $00
-       fcb $0E
-       fcb $99
-       fcb $90
-       fcb $00
-       fcb $06
-       fcb $99
-       fcb $60
-       fcb $00
-       fcb $0E
-       fcb $99
-       fcb $E8
-       fcb $80
-       fcb $07
-       fcb $99
-       fcb $71
-       fcb $10
-       fcb $07
-       fcb $88
-       fcb $80
-       fcb $00
-       fcb $07
-       fcb $C3
-       fcb $E0
-       fcb $00
-       fcb $4F
-       fcb $44
-       fcb $30
-       fcb $00
-       fcb $09
-       fcb $99
-       fcb $70
-       fcb $00
-       fcb $09
-       fcb $96
-       fcb $60
-       fcb $00
-       fcb $09
-       fcb $DD
-       fcb $60
-       fcb $00
-       fcb $09
-       fcb $66
-       fcb $90
-       fcb $00
-       fcb $09
-       fcb $99
-       fcb $71
-       fcb $E0
-       fcb $0F
-       fcb $24
-       fcb $F0
-       fcb $00
-       fcb $34
-       fcb $C4
-       fcb $30
-       fcb $00
-       fcb $44
-       fcb $04
-       fcb $40
-       fcb $00
-       fcb $C2
-       fcb $32
-       fcb $C0
-       fcb $00
-       fcb $05
-       fcb $A0
-       fcb $00
-       fcb $00
-       fcb $FF
-       fcb $FF
-       fcb $FF
-       fcb $F0
-L0820  fcb $30
-       fcb $31
-       fcb $32
-       fcb $33
-       fcb $34
-       fcb $35
-       fcb $36
-       fcb $37
-       fcb $38
-       fcb $39
-       fcb $3A
-       fcb $3B
-       fcb $2C
-       fcb $2D
-       fcb $2E
-       fcb $2F
-       fcb $40
-       fcb $61
-       fcb $62
-       fcb $63
-       fcb $64
-       fcb $65
-       fcb $66
-       fcb $67
-       fcb $68
-       fcb $69
-       fcb $6A
-       fcb $6B
-       fcb $6C
-       fcb $6D
-       fcb $6E
-       fcb $6F
-       fcb $70
-       fcb $71
-       fcb $72
-       fcb $73
-       fcb $74
-       fcb $75
-       fcb $76
-       fcb $77
-       fcb $78
-       fcb $79
-       fcb $7A
-       fcb $0C
-       fcb $0A
-       fcb $08
-       fcb $09
-       fcb $20
-       fcb $0D
-       fcb $00
-       fcb $05
-L0853  fcb $30
-       fcb $21
-       fcb $22
-       fcb $23
-       fcb $24
-       fcb $25
-       fcb $26
-       fcb $27
-       fcb $28
-       fcb $29
-       fcb $2A
-       fcb $2B
-       fcb $3C
-       fcb $3D
-       fcb $3E
-       fcb $3F
-       fcb $7C
-       fcb $41
-       fcb $42
-       fcb $43
-       fcb $44
-       fcb $45
-       fcb $46
-       fcb $47
-       fcb $48
-       fcb $49
-       fcb $4A
-       fcb $4B
-       fcb $4C
-       fcb $4D
-       fcb $4E
-       fcb $4F
-       fcb $50
-       fcb $51
-       fcb $52
-       fcb $53
-       fcb $54
-       fcb $55
-       fcb $56
-       fcb $57
-       fcb $58
-       fcb $59
-       fcb $5A
-       fcb $1C
-       fcb $1A
-       fcb $18
-       fcb $19
-       fcb $20
-       fcb $0D
-       fcb $00
-       fcb $03
-L0886  fcb $1F
-       fcb $7C
-       fcb $00
-       fcb $7E
-       fcb $00
-       fcb $00
-       fcb $00
-       fcb $5E
-       fcb $5B
-       fcb $5D
-       fcb $00
-       fcb $00
-       fcb $7B
-       fcb $5F
-       fcb $7D
-       fcb $5C
-       fcb $00
-       fcb $01
-       fcb $02
-       fcb $03
-       fcb $04
-       fcb $05
-       fcb $06
-       fcb $07
-       fcb $08
-       fcb $09
-       fcb $0A
-       fcb $0B
-       fcb $0C
-       fcb $0D
-       fcb $0E
-       fcb $0F
-       fcb $10
-       fcb $11
-       fcb $12
-       fcb $13
-       fcb $14
-       fcb $15
-       fcb $16
-       fcb $17
-       fcb $18
-       fcb $19
-       fcb $1A
-       fcb $13
-       fcb $12
-       fcb $10
-       fcb $11
-       fcb $20
-       fcb $0D
-       fcb $00
-       fcb $1B
-
-         emod
-eom      equ   *
diff -r 938ec7bd301f -r 66e53c0a3eea level1/modules/drvr51.asm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/modules/drvr51.asm	Sun Mar 16 14:18:45 2003 +0000
@@ -0,0 +1,1439 @@
+********************************************************************
+* drvr51 - Driver for The 51 column by 24 line video display
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*   1    Original Dragon distribution version
+
+
+         nam   drvr51
+         ttl   Driver for The 51 column by 24 line video display
+
+* Disassembled 02/07/06 21:17:23 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Drivr+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+edition  set   1
+
+         mod   eom,name,tylg,atrv,start,size
+
+         org   0
+u0000    rmb   1
+u0001    rmb   1
+u0002    rmb   1
+u0003    rmb   1
+u0004    rmb   1
+u0005    rmb   1
+u0006    rmb   1
+u0007    rmb   1
+u0008    rmb   1
+u0009    rmb   1
+u000A    rmb   1
+u000B    rmb   1
+u000C    rmb   1
+u000D    rmb   1
+u000E    rmb   1
+u000F    rmb   8
+u0017    rmb   4
+u001B    rmb   2
+u001D    rmb   1
+u001E    rmb   1
+u001F    rmb   1
+u0020    rmb   1
+u0021    rmb   1
+u0022    rmb   2
+u0024    rmb   1
+u0025    rmb   1
+u0026    rmb   1
+u0027    rmb   1
+u0028    rmb   1
+u0029    rmb   1
+u002A    rmb   1
+u002B    rmb   1
+u002C    rmb   1
+u002D    rmb   1
+u002E    rmb   1
+u002F    rmb   1
+u0030    rmb   1
+u0031    rmb   1
+u0032    rmb   1
+u0033    rmb   1
+u0034    rmb   1
+u0035    rmb   1
+u0036    rmb   1
+u0037    rmb   1
+u0038    rmb   1
+u0039    rmb   1
+u003A    rmb   6
+u0040    rmb   2
+u0042    rmb   2
+u0044    rmb   6
+u004A    rmb   1
+u004B    rmb   5
+u0050    rmb   5
+u0055    rmb   9
+u005E    rmb   2
+u0060    rmb   9
+u0069    rmb   6
+u006F    rmb   1
+u0070    rmb   1
+u0071    rmb   7
+u0078    rmb   6
+u007E    rmb   2
+u0080    rmb   8
+u0088    rmb   6
+u008E    rmb   2
+u0090    rmb   6
+u0096    rmb   3
+u0099    rmb   1
+u009A    rmb   3
+u009D    rmb   1
+size     equ   .
+
+         fcb   UPDAT.
+
+name     fcs   /drvr51/
+         fcb   edition
+
+start    lbra  Init
+         lbra  Read
+         lbra  Write
+         lbra  GetStat
+         lbra  SetStat
+         lbra  Term+1
+
+Init     pshs  u,a
+         ldu   <u001D,u
+         ldd   #$0200
+         os9   F$SRtMem
+         ldu   $01,s
+         tst   <u002C,u
+         beq   L0044
+         ldu   <u002D,u
+         ldd   #$1800
+         os9   F$SRtMem 
+         ldu   $01,s
+L0044    ldb   #$81
+         leax  <u001D,u
+L0049    clr   ,x+
+         decb  
+         bne   L0049
+         ldd   #$1900
+         os9   F$SRqMem 
+         bcs   L009C
+         tfr   u,d
+         ldu   $01,s
+         tfr   d,x
+         bita  #$01
+         beq   L0066
+         leax  >$0100,x
+         bra   L0068
+L0066    adda  #$18
+L0068    stx   <u0022,u
+         tfr   d,u
+         ldd   #$0100
+         os9   F$SRtMem 
+         ldu   $01,s
+         lda   #$10
+         sta   <u0037,u
+         pshs  cc
+         orcc  #IntMasks
+         leay  >L00AD,pcr
+         sty   >D.IRQ
+         ldx   #$FF00
+         lda   $03,x
+         ora   #$01
+         sta   $03,x
+         inc   >Term,pcr
+         puls  cc
+         lbsr  L0475
+         lbsr  L02C3
+         clrb  
+L009C    puls  pc,u,a
+Term     fcb   $00
+         pshs  cc
+         orcc  #IntMasks
+         ldx   >D.AltIRQ
+         stx   >D.IRQ
+         puls  cc
+         clrb  
+         rts   
+L00AD    ldu   >D.KbdSta
+         ldx   #$FF00
+         lda   $03,x
+         bmi   L00BB
+         jmp   [>D.SvcIRQ]
+L00BB    lda   $02,x
+         lda   >D.DskTmr
+         beq   L00CB
+         deca  
+         sta   >D.DskTmr
+         bne   L00CB
+         sta   >$FF48
+L00CB    lbsr  L04E5
+         jmp   [>D.AltIRQ]
+L00D2    pshs  x,b
+         lda   u0004,u
+         sta   u0005,u
+         ldx   #$0000
+         os9   F$Sleep  
+         ldx   <u004B
+         ldb   <$36,x
+         beq   L00EC
+         cmpb  #$03
+         bhi   L00EC
+         coma  
+         puls  pc,x,a
+
+L00EC    puls  x,b
+Read     tst   >Term,pcr
+         bne   L00F9
+         lbsr  Init
+         bcs   L011C
+L00F9    leax  <u003A,u
+         orcc  #IRQMask
+         ldb   <u001D,u
+         cmpb  <u001E,u
+         beq   L00D2
+         lda   b,x
+         incb  
+         cmpb  #$64
+         bcs   L010E
+         clrb  
+L010E    stb   <u001D,u
+         andcc #^(IRQMask+Carry)
+         tst   u000E,u
+         beq   L011C
+         clr   u000E,u
+         comb  
+         ldb   #$F4
+L011C    rts   
+
+Write    tst   >Term,pcr
+         bne   L012C
+         pshs  a
+         lbsr  Init
+         puls  a
+         bcs   L0139
+L012C    ldb   <u001F,u
+         bne   L0165
+         cmpa  #$1B
+         bne   L013A
+         inc   <u001F,u
+         clrb  
+L0139    rts   
+L013A    cmpa  #$20
+         bcs   L0144
+         cmpa  #$7F
+         bcc   L0144
+         bra   L0173
+L0144    leax  >L066E,pcr
+L0148    tst   ,x
+         bne   L0150
+L014C    clr   <u001F,u
+         rts   
+L0150    cmpa  ,x+
+         bne   L0161
+         ldd   ,x
+         leax  >L066E,pcr
+         leax  d,x
+         stx   <u0020,u
+         jmp   ,x
+L0161    leax  $02,x
+         bra   L0148
+L0165    inc   <u001F,u
+         leax  >L0681,pcr
+         cmpb  #$01
+         beq   L0148
+         jmp   [<u0020,u]
+L0173    inc   <u0032,u
+         bsr   L01B3
+         tst   <u0039,u
+         beq   L0185
+         lda   #$F8
+         leay  <-$40,y
+         lbsr  L0236
+L0185    lda   <u0024,u
+         inca  
+         cmpa  #$33
+         bcs   L01A2
+         clr   <u0024,u
+         lda   <u0025,u
+         inca  
+         cmpa  #$18
+         bcs   L019D
+         lbsr  L033E
+         bra   L01A5
+L019D    sta   <u0025,u
+         bra   L01A5
+L01A2    sta   <u0024,u
+L01A5    clr   <u0033,u
+         ldd   <u0024,u
+         std   <u0030,u
+         dec   <u0032,u
+         clrb  
+         rts   
+L01B3    tfr   a,b
+         subb  #$20
+         clra  
+         leax  >L06A0,pcr
+         lslb  
+         rola  
+         lslb  
+         rola  
+         leax  d,x
+         ldb   #$05
+         lda   <u0024,u
+         mul   
+         pshs  b
+         lsra  
+         rorb  
+         lsra  
+         rorb  
+         lsra  
+         rorb  
+         puls  a
+         anda  #$07
+         pshs  b
+         sta   <u0026,u
+         tst   <u0034,u
+         bne   L01FF
+         tfr   a,b
+         lda   #$F8
+         tstb  
+         beq   L01FA
+L01E5    lsra  
+         decb  
+         bhi   L01E5
+         bne   L01EE
+         rorb  
+         bra   L01FA
+L01EE    pshs  b
+         ldb   #$80
+L01F2    lsra  
+         rorb  
+         dec   ,s
+         bne   L01F2
+         leas  $01,s
+L01FA    coma  
+         comb  
+         std   <u0035,u
+L01FF    ldy   <u0022,u
+         lda   <u0025,u
+         ldb   ,s+
+         leay  d,y
+         lda   #$04
+         pshs  a
+         inc   <u0032,u
+L0211    lda   ,x
+         anda  #$F0
+         bsr   L0236
+         lda   ,x+
+         anda  #$0F
+         bsr   L0227
+         dec   ,s
+         bne   L0211
+         dec   <u0032,u
+         clrb  
+         puls  pc,b
+L0227    ldb   <u0026,u
+         subb  #$04
+         bhi   L023B
+         beq   L0250
+L0230    lsla  
+         incb  
+         bne   L0230
+         bra   L0250
+L0236    ldb   <u0026,u
+         beq   L0250
+L023B    lsra  
+         decb  
+         bhi   L023B
+         bne   L0244
+         rorb  
+         bra   L0250
+L0244    pshs  b
+         ldb   #$80
+L0248    lsra  
+         rorb  
+         dec   ,s
+         bne   L0248
+         leas  $01,s
+L0250    tst   <u0034,u
+         bne   L0273
+         tst   <u0038,u
+         beq   L0262
+         coma  
+         comb  
+         eora  <u0035,u
+         eorb  <u0036,u
+L0262    pshs  b,a
+         ldd   <u0035,u
+         anda  ,y
+         andb  $01,y
+         addd  ,s++
+L026D    std   ,y
+         leay  <$20,y
+         rts   
+L0273    eora  ,y
+         eorb  $01,y
+         bra   L026D
+         ldx   #$FF20
+         ldb   #$64
+L027E    lda   ,x
+         eora  #$C0
+         sta   ,x
+         lda   #$19
+L0286    deca  
+         nop   
+         nop   
+         bne   L0286
+         decb  
+         bne   L027E
+         lbra  L014C
+         dec   <u0024,u
+         bpl   L02A6
+         lda   #$32
+         sta   <u0024,u
+         dec   <u0025,u
+         bpl   L02A6
+         clr   <u0025,u
+         lbsr  L035E
+L02A6    lbsr  L0484
+         lbra  L014C
+L02AC    lda   <u0025,u
+         inca  
+         cmpa  #$18
+         bcs   L02B9
+         lbsr  L033E
+         bra   L02BC
+L02B9    sta   <u0025,u
+L02BC    bra   L02A6
+         clr   <u0024,u
+         bra   L02A6
+L02C3    ldy   <u0022,u
+         leay  >$0080,y
+         lda   #$18
+         pshs  a
+         inc   <u0032,u
+L02D2    bsr   L0314
+         dec   ,s
+         bne   L02D2
+         leas  $01,s
+         clra  
+         clrb  
+         sta   <u0033,u
+         std   <u0030,u
+         std   <u0024,u
+         dec   <u0032,u
+         ldx   #$FF20
+         lda   $02,x
+         ora   #$F0
+         sta   $02,x
+         ldx   #$FFC0
+         lda   #$06
+         ldb   #$03
+         bsr   L0305
+         lda   <u0022,u
+         lsra  
+         ldb   #$07
+         bsr   L0305
+         lbra  L014C
+L0305    lsra  
+         bcc   L030E
+         leax  $01,x
+         sta   ,x+
+         bra   L0310
+L030E    sta   ,x++
+L0310    decb  
+         bne   L0305
+         rts   
+L0314    lda   #$10
+L0316    pshs  a
+         lda   <u0038,u
+         tfr   a,b
+L031D    std   <-$80,y
+         std   <-$60,y
+         std   <-$40,y
+         std   <-$20,y
+         std   <$20,y
+         std   <$40,y
+         std   <$60,y
+         std   ,y++
+         dec   ,s
+         bne   L031D
+         leay  >$00E0,y
+         puls  pc,b
+L033E    ldy   <u0022,u
+         inc   <u0032,u
+         pshs  u
+         leau  >$0100,y
+         lda   #$10
+         bsr   L037C
+         puls  u
+         dec   <u0031,u
+L0354    leay  >$0080,y
+         bsr   L0314
+         dec   <u0032,u
+         rts   
+L035E    ldy   <u0022,u
+         leay  >$17F0,y
+         inc   <u0032,u
+         pshs  u
+         leau  >-$0100,y
+         lda   #$F0
+         bsr   L037C
+         leay  ,u
+         puls  u
+         inc   <u0031,u
+         bra   L0354
+L037C    ldb   #$17
+         pshs  b
+L0380    ldb   #$10
+L0382    ldx   ,u
+         stx   ,y
+         ldx   u0002,u
+         stx   $02,y
+         ldx   u0004,u
+         stx   $04,y
+         ldx   u0006,u
+         stx   $06,y
+         ldx   u0008,u
+         stx   $08,y
+         ldx   u000A,u
+         stx   $0A,y
+         ldx   u000C,u
+         stx   $0C,y
+         ldx   u000E,u
+         stx   $0E,y
+         leay  a,y
+         leau  a,u
+         decb  
+         bne   L0382
+         dec   ,s
+         bne   L0380
+         puls  pc,b
+         inc   <u0032,u
+         bsr   L03BA
+         dec   <u0032,u
+         lbra  L014C
+L03BA    clr   <u0033,u
+         ldb   <u0024,u
+         pshs  b
+         bitb  #$07
+         bne   L03CB
+         lda   #$05
+         mul   
+         bra   L03F3
+L03CB    lda   #$01
+         pshs  a
+L03CF    lda   #$20
+         lbsr  L01B3
+         lda   <u0024,u
+         inca  
+         sta   <u0024,u
+         cmpa  #$33
+         bcs   L03E3
+         leas  $01,s
+         bra   L040D
+L03E3    dec   ,s
+         bpl   L03CF
+         lda   <u0024,u
+         ldb   #$05
+         mul   
+         bitb  #$08
+         bne   L03CF
+         leas  $01,s
+L03F3    lsrb  
+         lsrb  
+         lsrb  
+         ldy   <u0022,u
+         lda   <u0025,u
+         leay  d,y
+         leay  >$0080,y
+         lda   #$20
+         pshs  b
+         suba  ,s+
+         lsra  
+         lbsr  L0316
+L040D    puls  a
+         sta   <u0024,u
+         rts   
+         inc   <u0032,u
+         bsr   L03BA
+         lda   #$17
+         suba  <u0025,u
+         bls   L042A
+         pshs  a
+L0421    lbsr  L0314
+         dec   ,s
+         bne   L0421
+         leas  $01,s
+L042A    dec   <u0032,u
+         lbra  L014C
+         clr   <u0024,u
+         clr   <u0025,u
+         lbra  L02A6
+         ldb   <u001F,u
+         subb  #$02
+         bne   L0442
+         clrb  
+         rts   
+L0442    decb  
+         bne   L0450
+         cmpa  #$33
+         bcs   L044B
+         lda   #$32
+L044B    sta   <u0024,u
+         clrb  
+         rts   
+L0450    cmpa  #$18
+         bcs   L0456
+         lda   #$17
+L0456    sta   <u0025,u
+L0459    lbra  L02A6
+         inc   <u0024,u
+         lda   <u0024,u
+         cmpa  #$33
+         bcs   L0459
+         clr   <u0024,u
+         lbra  L02AC
+         lda   #$FF
+         coma  
+L046F    sta   <u0038,u
+         lbra  L014C
+L0475    lda   #$FF
+         bra   L046F
+         lda   #$FF
+L047B    sta   <u0039,u
+         lbra  L014C
+         clra  
+         bra   L047B
+L0484    ldd   <u0024,u
+         inc   <u0032,u
+         tst   <u0033,u
+         bne   L0494
+         std   <u0030,u
+         bra   L04B9
+L0494    pshs  b,a
+         ldd   <u0030,u
+         inc   <u0034,u
+         tstb  
+         bmi   L04AB
+         cmpb  #$18
+         bcc   L04AB
+         std   <u0024,u
+         lda   #$7F
+         lbsr  L01B3
+L04AB    puls  b,a
+         std   <u0024,u
+         std   <u0030,u
+         clr   <u0033,u
+         dec   <u0034,u
+L04B9    dec   <u0032,u
+         clrb  
+         rts   
+
+GetStat  cmpa  #$01
+         bne   L04D0
+         lda   <u001D,u
+         cmpa  <u001E,u
+         beq   L04CC
+L04CA    clrb  
+         rts   
+L04CC    comb  
+         ldb   #$F6
+         rts   
+L04D0    cmpa  #$06
+         beq   L04CA
+         cmpa  #$02
+         bne   SetStat
+         ldx   $06,y
+         ldd   <u0022,u
+         std   $04,x
+         clrb  
+         rts   
+
+SetStat  comb  
+         ldb   #$D0
+         rts   
+
+L04E5    tst   <u0032,u
+         bne   L0512
+         dec   <u0037,u
+         bne   L0512
+         lda   #$10
+         sta   <u0037,u
+         inc   <u0034,u
+         ldd   <u0024,u
+         pshs  b,a
+         ldd   <u0030,u
+         std   <u0024,u
+         lda   #$7F
+         lbsr  L01B3
+         puls  b,a
+         std   <u0024,u
+         com   <u0033,u
+         dec   <u0034,u
+L0512    ldx   #$FF00
+         lda   #$FF
+         sta   $02,x
+         bsr   L053B
+         anda  #$03
+         bne   L0526
+         clra  
+         sta   $02,x
+         bsr   L053B
+         bne   L052D
+L0526    clr   <u0027,u
+         clr   <u0028,u
+         rts   
+L052D    tst   <u0028,u
+         bne   L0541
+         sta   <u0028,u
+L0535    clrb  
+         rts   
+L0537    clrb  
+         stb   $02,x
+         rts   
+L053B    lda   ,x
+         coma  
+         anda  #$7F
+         rts   
+L0541    cmpa  <u0028,u
+         bne   L0526
+         clr   <u002A,u
+         clr   <u002B,u
+         clr   <u002C,u
+         clr   <u002D,u
+         clr   <u002E,u
+         ldb   #$01
+L0557    comb  
+         stb   $02,x
+         bsr   L053B
+         beq   L05A1
+         bita  #$40
+         beq   L0583
+         cmpb  #$7F
+         bne   L056B
+         inc   <u002D,u
+         bra   L057F
+L056B    cmpb  #$FD
+         bne   L0574
+         inc   <u002E,u
+         bra   L057F
+L0574    tst   <u002C,u
+         bne   L0537
+         stb   <u002C,u
+         com   <u002C,u
+L057F    anda  #$3F
+         beq   L05A1
+L0583    pshs  b,a
+         clrb  
+L0586    lsra  
+         bcc   L058A
+         incb  
+L058A    tsta  
+         bne   L0586
+         cmpb  #$01
+         puls  b,a
+         bne   L0537
+         tst   <u002A,u
+         bne   L0537
+         sta   <u002A,u
+         stb   <u002B,u
+         com   <u002B,u
+L05A1    comb  
+         lslb  
+         bne   L0557
+         stb   $02,x
+         ldb   <u002C,u
+         beq   L05B5
+         tst   <u002A,u
+         bne   L0535
+         lda   #$40
+         bra   L05BF
+L05B5    ldb   <u002B,u
+         lda   <u002A,u
+         lbeq  L0526
+L05BF    pshs  b
+         tst   <u0027,u
+         beq   L05D0
+         dec   <u0027,u
+         beq   L05D4
+         puls  b
+         lbra  L0665
+L05D0    ldb   #$32
+         bra   L05D6
+L05D4    ldb   #$05
+L05D6    stb   <u0027,u
+         lbsr  L0667
+         lslb  
+         lslb  
+         lslb  
+         puls  a
+         pshs  b
+         lbsr  L0667
+         orb   ,s+
+         stb   <u0029,u
+         leax  >L0820,pcr
+         lda   b,x
+         tst   <u002E,u
+         beq   L05FE
+         leax  >L0886,pcr
+         lda   b,x
+         bra   L0609
+L05FE    tst   <u002D,u
+         beq   L0612
+         leax  >L0853,pcr
+         lda   b,x
+L0609    cmpa  #$1F
+         bne   L0621
+         com   <u002F,u
+         bra   L0665
+L0612    tst   <u002F,u
+         beq   L0621
+         cmpa  #$61
+         bcs   L0621
+         cmpa  #$7A
+         bhi   L0621
+         suba  #$20
+L0621    leax  <u003A,u
+         ldb   <u001E,u
+         sta   b,x
+         incb  
+         cmpb  #$64
+         bcs   L062F
+         clrb  
+L062F    cmpb  <u001D,u
+         bne   L0638
+         inc   u000E,u
+         bra   L063B
+L0638    stb   <u001E,u
+L063B    tsta  
+         beq   L065A
+         cmpa  u000D,u
+L0640    bne   L064A
+         ldx   u0009,u
+         beq   L065A
+L0646    sta   $08,x
+         bra   L065A
+L064A    ldb   #$03
+         cmpa  u000B,u
+         beq   L0656
+         ldb   #$02
+         cmpa  u000C,u
+         bne   L065A
+L0656    lda   u0003,u
+         bra   L065E
+L065A    ldb   #S$Wake
+         lda   u0005,u
+L065E    beq   L0663
+         os9   F$Send   
+L0663    clr   u0005,u
+L0665    clrb  
+         rts   
+L0667    clrb  
+L0668    incb  
+         lsra  
+         bne   L0668
+         decb  
+         rts   
+
+L066E  fcb $07
+       fcb $FC
+       fcb $0B
+       fcb $08
+       fcb $FC
+       fcb $23
+       fcb $0A
+       fcb $FC
+       fcb $3E
+       fcb $0D
+       fcb $FC
+       fcb $50
+       fcb $0C
+       fcb $FC
+       fcb $55
+       fcb $0B
+       fcb $FD
+       fcb $C2
+       fcb $00
+L0681  fcb $41
+       fcb $FD
+       fcb $CB
+       fcb $42
+       fcb $FD
+       fcb $41
+       fcb $43
+       fcb $FD
+       fcb $EE
+       fcb $44
+       fcb $FC
+       fcb $2D
+       fcb $45
+       fcb $FC
+       fcb $3E
+       fcb $46
+       fcb $FD
+       fcb $FE
+       fcb $47
+       fcb $FE
+       fcb $07
+       fcb $48
+       fcb $FE
+       fcb $0B
+       fcb $49
+       fcb $FE
+       fcb $13
+       fcb $4A
+       fcb $FD
+       fcb $A5
+       fcb $00
+L06A0  fcb $00
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $44
+       fcb $40
+       fcb $40
+       fcb $00
+       fcb $55
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $6F
+       fcb $6F
+       fcb $60
+       fcb $00
+       fcb $27
+       fcb $86
+       fcb $1E
+       fcb $20
+       fcb $91
+       fcb $24
+       fcb $89
+       fcb $00
+       fcb $4A
+       fcb $4A
+       fcb $D0
+       fcb $00
+       fcb $44
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $24
+       fcb $44
+       fcb $20
+       fcb $00
+       fcb $42
+       fcb $22
+       fcb $40
+       fcb $00
+       fcb $96
+       fcb $F6
+       fcb $90
+       fcb $00
+       fcb $44
+       fcb $E4
+       fcb $40
+       fcb $00
+       fcb $00
+       fcb $02
+       fcb $24
+       fcb $00
+       fcb $00
+       fcb $F0
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $06
+       fcb $60
+       fcb $00
+       fcb $01
+       fcb $24
+       fcb $80
+       fcb $00
+       fcb $69
+       fcb $BD
+       fcb $60
+       fcb $00
+       fcb $26
+       fcb $22
+       fcb $70
+       fcb $00
+       fcb $69
+       fcb $2C
+       fcb $F0
+       fcb $00
+       fcb $E1
+       fcb $61
+       fcb $E0
+       fcb $00
+       fcb $26
+       fcb $AF
+       fcb $20
+       fcb $00
+       fcb $F8
+       fcb $E1
+       fcb $E0
+       fcb $00
+       fcb $78
+       fcb $E9
+       fcb $60
+       fcb $00
+       fcb $F1
+       fcb $24
+       fcb $40
+       fcb $00
+       fcb $69
+       fcb $69
+       fcb $60
+       fcb $00
+       fcb $69
+       fcb $71
+       fcb $60
+       fcb $00
+       fcb $00
+       fcb $40
+       fcb $40
+       fcb $00
+       fcb $00
+       fcb $20
+       fcb $24
+       fcb $00
+       fcb $24
+       fcb $84
+       fcb $20
+       fcb $00
+       fcb $0F
+       fcb $0F
+       fcb $00
+       fcb $00
+       fcb $42
+       fcb $12
+       fcb $40
+       fcb $00
+       fcb $69
+       fcb $22
+       fcb $02
+       fcb $00
+       fcb $69
+       fcb $BB
+       fcb $87
+       fcb $00
+       fcb $69
+       fcb $F9
+       fcb $90
+       fcb $00
+       fcb $E9
+       fcb $E9
+       fcb $E0
+       fcb $00
+       fcb $78
+       fcb $88
+       fcb $70
+       fcb $00
+       fcb $E9
+       fcb $99
+       fcb $E0
+       fcb $00
+       fcb $F8
+       fcb $E8
+       fcb $F0
+       fcb $00
+       fcb $F8
+       fcb $E8
+       fcb $80
+       fcb $00
+       fcb $78
+       fcb $B9
+       fcb $70
+       fcb $00
+       fcb $99
+       fcb $F9
+       fcb $90
+       fcb $00
+       fcb $E4
+       fcb $44
+       fcb $E0
+       fcb $00
+       fcb $F2
+       fcb $2A
+       fcb $40
+       fcb $00
+       fcb $9A
+       fcb $CA
+       fcb $90
+       fcb $00
+       fcb $88
+       fcb $88
+       fcb $F0
+       fcb $00
+       fcb $FD
+       fcb $D9
+       fcb $90
+       fcb $00
+       fcb $9D
+       fcb $B9
+       fcb $90
+       fcb $00
+       fcb $69
+       fcb $99
+       fcb $60
+       fcb $00
+       fcb $E9
+       fcb $E8
+       fcb $80
+       fcb $00
+       fcb $69
+       fcb $9B
+       fcb $70
+       fcb $00
+       fcb $E9
+       fcb $EA
+       fcb $90
+       fcb $00
+       fcb $78
+       fcb $61
+       fcb $E0
+       fcb $00
+       fcb $E4
+       fcb $44
+       fcb $40
+       fcb $00
+       fcb $99
+       fcb $99
+       fcb $60
+       fcb $00
+       fcb $99
+       fcb $96
+       fcb $60
+       fcb $00
+       fcb $99
+       fcb $DD
+       fcb $F0
+       fcb $00
+       fcb $99
+       fcb $69
+       fcb $90
+       fcb $00
+       fcb $99
+       fcb $71
+       fcb $E0
+       fcb $00
+       fcb $F1
+       fcb $68
+       fcb $F0
+       fcb $00
+       fcb $E8
+       fcb $88
+       fcb $E0
+       fcb $00
+       fcb $08
+       fcb $42
+       fcb $10
+       fcb $00
+       fcb $71
+       fcb $11
+       fcb $70
+       fcb $00
+       fcb $69
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $0F
+       fcb $00
+       fcb $22
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $07
+       fcb $99
+       fcb $70
+       fcb $00
+       fcb $8E
+       fcb $99
+       fcb $E0
+       fcb $00
+       fcb $07
+       fcb $88
+       fcb $70
+       fcb $00
+       fcb $17
+       fcb $99
+       fcb $70
+       fcb $00
+       fcb $07
+       fcb $AC
+       fcb $70
+       fcb $00
+       fcb $34
+       fcb $F4
+       fcb $40
+       fcb $00
+       fcb $06
+       fcb $99
+       fcb $71
+       fcb $E0
+       fcb $8E
+       fcb $99
+       fcb $90
+       fcb $00
+       fcb $40
+       fcb $44
+       fcb $40
+       fcb $00
+       fcb $20
+       fcb $22
+       fcb $22
+       fcb $C0
+       fcb $8A
+       fcb $CA
+       fcb $90
+       fcb $00
+       fcb $44
+       fcb $44
+       fcb $40
+       fcb $00
+       fcb $0E
+       fcb $DD
+       fcb $90
+       fcb $00
+       fcb $0E
+       fcb $99
+       fcb $90
+       fcb $00
+       fcb $06
+       fcb $99
+       fcb $60
+       fcb $00
+       fcb $0E
+       fcb $99
+       fcb $E8
+       fcb $80
+       fcb $07
+       fcb $99
+       fcb $71
+       fcb $10
+       fcb $07
+       fcb $88
+       fcb $80
+       fcb $00
+       fcb $07
+       fcb $C3
+       fcb $E0
+       fcb $00
+       fcb $4F
+       fcb $44
+       fcb $30
+       fcb $00
+       fcb $09
+       fcb $99
+       fcb $70
+       fcb $00
+       fcb $09
+       fcb $96
+       fcb $60
+       fcb $00
+       fcb $09
+       fcb $DD
+       fcb $60
+       fcb $00
+       fcb $09
+       fcb $66
+       fcb $90
+       fcb $00
+       fcb $09
+       fcb $99
+       fcb $71
+       fcb $E0
+       fcb $0F
+       fcb $24
+       fcb $F0
+       fcb $00
+       fcb $34
+       fcb $C4
+       fcb $30
+       fcb $00
+       fcb $44
+       fcb $04
+       fcb $40
+       fcb $00
+       fcb $C2
+       fcb $32
+       fcb $C0
+       fcb $00
+       fcb $05
+       fcb $A0
+       fcb $00
+       fcb $00
+       fcb $FF
+       fcb $FF
+       fcb $FF
+       fcb $F0
+L0820  fcb $30
+       fcb $31
+       fcb $32
+       fcb $33
+       fcb $34
+       fcb $35
+       fcb $36
+       fcb $37
+       fcb $38
+       fcb $39
+       fcb $3A
+       fcb $3B
+       fcb $2C
+       fcb $2D
+       fcb $2E
+       fcb $2F
+       fcb $40
+       fcb $61
+       fcb $62
+       fcb $63
+       fcb $64
+       fcb $65
+       fcb $66
+       fcb $67
+       fcb $68
+       fcb $69
+       fcb $6A
+       fcb $6B
+       fcb $6C
+       fcb $6D
+       fcb $6E
+       fcb $6F
+       fcb $70
+       fcb $71
+       fcb $72
+       fcb $73
+       fcb $74
+       fcb $75
+       fcb $76
+       fcb $77
+       fcb $78
+       fcb $79
+       fcb $7A
+       fcb $0C
+       fcb $0A
+       fcb $08
+       fcb $09
+       fcb $20
+       fcb $0D
+       fcb $00
+       fcb $05
+L0853  fcb $30
+       fcb $21
+       fcb $22
+       fcb $23
+       fcb $24
+       fcb $25
+       fcb $26
+       fcb $27
+       fcb $28
+       fcb $29
+       fcb $2A
+       fcb $2B
+       fcb $3C
+       fcb $3D
+       fcb $3E
+       fcb $3F
+       fcb $7C
+       fcb $41
+       fcb $42
+       fcb $43
+       fcb $44
+       fcb $45
+       fcb $46
+       fcb $47
+       fcb $48
+       fcb $49
+       fcb $4A
+       fcb $4B
+       fcb $4C
+       fcb $4D
+       fcb $4E
+       fcb $4F
+       fcb $50
+       fcb $51
+       fcb $52
+       fcb $53
+       fcb $54
+       fcb $55
+       fcb $56
+       fcb $57
+       fcb $58
+       fcb $59
+       fcb $5A
+       fcb $1C
+       fcb $1A
+       fcb $18
+       fcb $19
+       fcb $20
+       fcb $0D
+       fcb $00
+       fcb $03
+L0886  fcb $1F
+       fcb $7C
+       fcb $00
+       fcb $7E
+       fcb $00
+       fcb $00
+       fcb $00
+       fcb $5E
+       fcb $5B
+       fcb $5D
+       fcb $00
+       fcb $00
+       fcb $7B
+       fcb $5F
+       fcb $7D
+       fcb $5C
+       fcb $00
+       fcb $01
+       fcb $02
+       fcb $03
+       fcb $04
+       fcb $05
+       fcb $06
+       fcb $07
+       fcb $08
+       fcb $09
+       fcb $0A
+       fcb $0B
+       fcb $0C
+       fcb $0D
+       fcb $0E
+       fcb $0F
+       fcb $10
+       fcb $11
+       fcb $12
+       fcb $13
+       fcb $14
+       fcb $15
+       fcb $16
+       fcb $17
+       fcb $18
+       fcb $19
+       fcb $1A
+       fcb $13
+       fcb $12
+       fcb $10
+       fcb $11
+       fcb $20
+       fcb $0D
+       fcb $00
+       fcb $1B
+
+         emod
+eom      equ   *