Table of Contents

DSAVE

Header for : dsave
Module size: $1A18  #6680
Module CRC : $598919 (Good)
Hdr parity : $32
Exec. off  : $0E0B  #3595
Data size  : $0B51  #2897
Edition    : $02  #2
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

CODE

* Disassembly by Os9disasm of dsave

 mod L1a18,L1a0f,$11,$81,L0e0b,D0b51

* OS-9 system function equates

F$Exit equ $06
F$Mem equ $07
I$Create equ $83
I$Open equ $84
I$ChgDir equ $86
I$Delete equ $87
I$Seek equ $88
I$Read equ $89
I$Write equ $8a
I$ReadLn equ $8b
I$WritLn equ $8c
I$GetStt equ $8d
I$Close equ $8f

* class D external label equates

Dff03 equ $ff03

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 1
D0002 rmb 2
D0004 rmb 2
D0006 rmb 2
D0008 rmb 2
D000a rmb 2
D000c rmb 1
D000d rmb 1
D000e rmb 2
D0010 rmb 2
D0012 rmb 2
D0014 rmb 2
D0016 rmb 1
D0017 rmb 1
D0018 rmb 2
D001a rmb 2
D001c rmb 2
D001e rmb 2
D0020 rmb 1
D0021 rmb 1
D0022 rmb 1
D0023 rmb 1
D0024 rmb 1
D0025 rmb 4
D0029 rmb 3
D002c rmb 1
D002d rmb 1
D002e rmb 1
D002f rmb 34
D0051 rmb 19
D0064 rmb 8
D006c rmb 6
D0072 rmb 2
D0074 rmb 1
D0075 rmb 4
D0079 rmb 32
D0099 rmb 32
D00b9 rmb 80
D0109 rmb 70
D014f rmb 250
D0249 rmb 2
D024b rmb 2
D024d rmb 2
D024f rmb 2306
D0b51 equ .

L000d pshs  d
 leas  -6,s
 clrb  
 clra  
 std   D000c,y
 std   D000a,y
 std   D0008,y
 std   D0006,y
 std   D0004,y
 std   D0002,y
 std   ,y
 clr   D0029,y
 clr   D0051,y
 clr   D0109,y
 ldb   #$20
 stb   D0024,y
 leax  D0024,y
 tfr   x,d
 addd  #1
 tfr   d,x
 clr   ,x
 leax  D0024,y
 tfr   x,d
 addd  #2
 tfr   d,x
 clr   ,x
 leax  L0ab0,pcr
 stx   D0249,y
L0050 ldd   6,s
 subd  #1
 std   6,s
 cmpd  #0
 lble  L01c9
 ldd   10,s
 addd  #2
 std   10,s
 tfr   d,x
 ldd   ,x
 std   ,s
 tfr   d,x
 ldb   ,x
 cmpb  #$2d
 lbne  L01c9
 ldd   ,s
 addd  #1
 std   2,s
L007d ldb   [2,s]
 beq   L0050
 ldb   [2,s]
 orb   #$20
 stb   [2,s]
 ldb   [2,s]
 cmpb  #$69
 beq   L00ac
 cmpb  #$76
 beq   L00b9
 cmpb  #$6d
 beq   L00c1
 cmpb  #$73
 beq   L00c9
 cmpb  #$6c
 lbeq  L014b
 cmpb  #$62
 lbeq  L0153
 lbra  L01a6
L00ac ldd   #1
 std   D0002,y
 clrb  
 clra  
 std   D0010,y
 lbra  L01bc
L00b9 ldd   #1
 std   D000c,y
 lbra  L01bc
L00c1 ldd   #1
 std   D0006,y
 lbra  L01bc
L00c9 ldd   #1
 std   D0008,y
 clrb  
 clra  
 std   4,s
 ldd   4,s
 addd  #1
 std   4,s
 subd  #1
 leax  D0024,y
 pshs  x
 addd  ,s++
 pshs  d
 ldb   #$23
 stb   [,s++]
L00e9 ldx   2,s
 ldb   1,x
 cmpb  #$30
 bcs   L0126
 ldx   2,s
 ldb   1,x
 cmpb  #$39
 bhi   L0126
 ldd   4,s
 cmpd  #3
 bge   L0126
 ldd   4,s
 addd  #1
 std   4,s
 subd  #1
 leax  D0024,y
 pshs  x
 addd  ,s++
 pshs  d
 ldd   4,s
 addd  #1
 std   4,s
 subd  #1
 tfr   d,x
 ldb   1,x
 stb   [,s++]
 bra   L00e9
L0126 ldd   4,s
 addd  #1
 std   4,s
 subd  #1
 leax  D0024,y
 pshs  x
 addd  ,s++
 pshs  d
 ldb   #$4b
 stb   [,s++]
 leax  D0024,y
 tfr   x,d
 addd  4,s
 tfr   d,x
 clr   ,x
 lbra  L01bc
L014b ldd   #1
 std   D0004,y
 lbra  L01bc
L0153 ldx   2,s
 ldb   1,x
 cmpb  #$3d
 lbne  L019f
 clrb  
 clra  
 std   4,s
L0161 ldd   2,s
 addd  #1
 std   2,s
 tfr   d,x
 ldb   1,x
 cmpb  #0
 beq   L018c
 ldd   4,s
 addd  #1
 std   4,s
 subd  #1
 leax  D00b9,y
 pshs  x
 addd  ,s++
 pshs  d
 ldx   4,s
 ldb   1,x
 stb   [,s++]
 bra   L0161
L018c leax  D00b9,y
 tfr   x,d
 addd  4,s
 tfr   d,x
 clr   ,x
 ldd   #2
 std   ,y
 bra   L01bc
L019f ldd   #1
 std   ,y
 bra   L01bc
L01a6 ldb   [2,s]
 clra  
 pshs  d
 leax  L0ad8,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  4,s
 lbsr  L0a4f
L01bc ldd   2,s
 addd  #1
 std   2,s
 subd  #1
 lbra  L007d
L01c9 ldd   6,s
 subd  #1
 std   6,s
 addd  #1
 cmpd  #0
 lble  L0209
 ldd   [10,s]
 std   ,s
 tfr   d,x
 ldb   ,x
 cmpb  #$2f
 beq   L01f8
 leax  L0af4,pcr
 pshs  x
 leax  D0029,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
L01f8 ldd   [10,s]
 pshs  d
 leax  D0029,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
 bra   L0219
L0209 leax  L0af6,pcr
 pshs  x
 leax  D0029,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
L0219 ldd   6,s
 subd  #1
 std   6,s
 addd  #1
 cmpd  #0
 lble  L0260
 ldd   #1
 std   D000a,y
 ldx   10,s
 ldd   2,x
 std   ,s
 tfr   d,x
 ldb   ,x
 cmpb  #$2f
 beq   L024e
 leax  L0afa,pcr
 pshs  x
 leax  D0051,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
L024e ldx   10,s
 ldd   2,x
 pshs  d
 leax  D0051,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
 bra   L0270
L0260 leax  L0afc,pcr
 pshs  x
 leax  D0051,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
L0270 ldd   6,s
 cmpd  #0
 ble   L0288
 leax  L0b00,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 lbsr  L0a4f
L0288 clr   D014f,y
 ldd   #$00f9
 std   D0012,y
 ldd   D0012,y
 subd  #1
 std   D0012,y
 addd  #1
 leax  D014f,y
 pshs  x
 addd  ,s++
 tfr   d,x
 clr   ,x
 leax  L0b1f,pcr
 tfr   x,d
 lbsr  L0df3
 ldd   D000a,y
 beq   L02c7
 leax  D0051,y
 pshs  x
 leax  L0b22,pcr
 tfr   x,d
 lbsr  L0df3
 leas  2,s
L02c7 leax  L0b2a,pcr
 tfr   x,d
 lbsr  L0df3
 leax  L0b3b,pcr
 tfr   x,d
 lbsr  L0df3
 ldd   D000c,y
 beq   L02e6
 leax  L0b46,pcr
 tfr   x,d
 lbsr  L0df3
L02e6 lbsr  L088b
 cmpd  #0
 lbne  L0439
 ldd   D0016,y
 lbsr  L0df6
 leax  D0079,y
 ldb   29,x
 clra  
 std   D001a,y
 leax  D0079,y
 ldb   30,x
 clra  
 std   D001c,y
 leax  D0079,y
 ldb   31,x
 clra  
 std   D001e,y
 leax  L0b53,pcr
 pshs  x
 leax  L0b50,pcr
 tfr   x,d
 lbsr  L0a29
 leas  2,s
 ldd   #1
 std   D0018,y
L032c ldd   D0018,y
 lbeq  L03e1
 lbsr  L088b
 addd  #0
 beq   L0340
 clrb  
 clra  
 std   D0018,y
L0340 ldd   D0016,y
 lbsr  L0704
 cmpd  #0
 bge   L035e
 leax  L0b55,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 ldd   D0002
 lbsr  L0df9
L035e leax  D0099,y
 ldb   31,x
 clra  
 cmpd  D001e,y
 lbne  L0340
 leax  D0099,y
 ldb   30,x
 clra  
 cmpd  D001c,y
 lbne  L0340
 leax  D0099,y
 ldb   29,x
 clra  
 cmpd  D001a,y
 lbne  L0340
 leax  D0099,y
 tfr   x,d
 lbsr  L0838
 leax  D0099,y
 tfr   x,d
 lbsr  L09b9
 leax  L0b73,pcr
 tfr   x,d
 lbsr  L09b9
 leax  D0079,y
 ldb   29,x
 clra  
 std   D001a,y
 leax  D0079,y
 ldb   30,x
 clra  
 std   D001c,y
 leax  D0079,y
 ldb   31,x
 clra  
 std   D001e,y
 ldd   D0016,y
 lbsr  L0df6
 leax  L0b78,pcr
 pshs  x
 leax  L0b75,pcr
 tfr   x,d
 lbsr  L0a29
 leas  2,s
 lbra  L032c
L03e1 leax  D0029,y
 tfr   x,d
 lbsr  L09b9
 ldd   D0012,y
 addd  #1
 std   D0012,y
 leax  D014f,y
 pshs  x
 addd  ,s++
 pshs  d
 leax  D014f,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
 ldd   #1
 std   D0012,y
L040d ldd   D0012,y
 addd  #1
 std   D0012,y
 subd  #1
 leax  D014f,y
 ldb   d,x
 cmpb  #$2f
 bne   L040d
 leax  L0b7a,pcr
 pshs  x
 leax  D014f,y
 tfr   x,d
 addd  D0012,y
 lbsr  L0a29
 leas  2,s
 bra   L0449
L0439 leax  D0029,y
 pshs  x
 leax  D014f,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
L0449 ldd   D0016,y
 lbsr  L0df6
 clrb  
 clra  
 std   D000e,y
 lbsr  L047d
 ldd   D000c,y
 beq   L0463
 leax  L0b7c,pcr
 tfr   x,d
 lbsr  L0df3
L0463 leax  L0b88,pcr
 tfr   x,d
 lbsr  L0df3
 leax  L0b95,pcr
 tfr   x,d
 lbsr  L0df3
 clrb  
 clra  
 lbsr  L0df9
 leas  8,s
 rts   
L047d leas  -254,s
 ldd   D000e,y
 addd  #1
 std   D000e,y
 subd  #1
 ldd   D0002,y
 lbeq  L04eb
 ldd   D0010,y
 addd  #1
 std   D0010,y
 subd  #1
 leax  D0109,y
 pshs  x
 addd  ,s++
 pshs  d
 ldb   #$20
 stb   [,s++]
 ldd   D0010,y
 addd  #1
 std   D0010,y
 subd  #1
 leax  D0109,y
 pshs  x
 addd  ,s++
 pshs  d
 ldb   #$20
 stb   [,s++]
 leax  D0109,y
 tfr   x,d
 addd  D0010,y
 tfr   d,x
 clr   ,x
 ldd   D0010,y
 cmpd  #$001e
 ble   L04eb
 leax  L0ba5,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 lbsr  L0df9
L04eb ldd   #$0081
 pshs  d
 leax  L0bcb,pcr
 tfr   x,d
 lbsr  L0dfc
 leas  2,s
 std   D0014,y
 cmpd  #0
 bgt   L0516
 leax  L0bcd,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 ldd   D0002
 lbsr  L0df9
L0516 clrb  
 clra  
 std   D0020,y
 ldd   #$0040
 std   D0022,y
 ldd   D0014,y
 lbsr  L073d
L0527 ldd   D0014,y
 lbsr  L0704
 cmpd  #0
 lblt  L06ca
 ldd   #1
 pshs  d
 leax  D0099,y
 tfr   x,d
 lbsr  L0dfc
 leas  2,s
 std   D0016,y
 cmpd  #0
 lbgt  L06b8
 ldd   D0004,y
 bne   L0527
 ldd   #$0081
 pshs  d
 leax  D0099,y
 tfr   x,d
 lbsr  L0dfc
 leas  2,s
 std   D0016,y
 cmpd  #0
 lbgt  L059c
 ldd   D0002
 pshs  d
 leax  D0099,y
 pshs  x
 ldd   D0249,y
 lbsr  L0df3
 leas  4,s
 ldd   D0002
 pshs  d
 leax  D0099,y
 pshs  x
 ldd   D0249,y
 pshs  d
 ldd   D000e
 lbsr  L0df0
 leas  6,s
 lbra  L0527
L059c leax  D0099,y
 tfr   x,d
 lbsr  L0838
 ldd   D0006,y
 bne   L05c0
 leax  D0099,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  L0beb,pcr
 tfr   x,d
 lbsr  L0df3
 leas  4,s
L05c0 ldd   D0016,y
 lbsr  L0dff
 leax  D0099,y
 tfr   x,d
 lbsr  L0838
 leax  D0099,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  L0bf8,pcr
 tfr   x,d
 lbsr  L0df3
 leas  4,s
 leax  L0c02,pcr
 pshs  x
 leax  D0099,y
 tfr   x,d
 lbsr  L0a29
 leas  2,s
 clr   ,s
 leax  D014f,y
 pshs  x
 leax  2,s
 tfr   x,d
 lbsr  L094c
 leas  2,s
 leax  L0c04,pcr
 pshs  x
 leax  D014f,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
 leax  D0099,y
 pshs  x
 leax  D014f,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
 ldd   D0020,y
 std   250,s
 ldd   D0022,y
 std   252,s
 ldd   D0014,y
 lbsr  L0dff
 lbsr  L047d
 leax  D0109,y
 pshs  x
 leax  L0c06,pcr
 tfr   x,d
 lbsr  L0df3
 leas  2,s
 leax  L0c13,pcr
 pshs  x
 leax  L0c10,pcr
 tfr   x,d
 lbsr  L0a29
 leas  2,s
 ldd   #$0081
 pshs  d
 leax  L0c15,pcr
 tfr   x,d
 lbsr  L0dfc
 leas  2,s
 std   D0014,y
 cmpd  #0
 bgt   L068e
 leax  L0c17,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 ldd   D0002
 lbsr  L0df9
L068e ldd   250,s
 std   D0020,y
 ldd   252,s
 std   D0022,y
 ldd   D0014,y
 lbsr  L073d
 clr   D014f,y
 leax  ,s
 pshs  x
 leax  D014f,y
 tfr   x,d
 lbsr  L094c
 leas  2,s
 lbra  L0527
L06b8 ldd   D0016,y
 lbsr  L0dff
 leax  D0099,y
 tfr   x,d
 lbsr  L076f
 lbra  L0527
L06ca ldd   D0014,y
 lbsr  L0dff
 ldd   D0002,y
 beq   L06f5
 ldd   D0010,y
 subd  #1
 std   D0010,y
 addd  #1
 ldd   D0010,y
 subd  #1
 std   D0010,y
 leax  D0109,y
 pshs  x
 addd  ,s++
 tfr   d,x
 clr   ,x
L06f5 ldd   D000e,y
 subd  #1
 std   D000e,y
 addd  #1
 leas  254,s
 rts   
L0704 pshs  d
 clr   D0099,y
L070a ldb   D0099,y
 bne   L0737
 ldd   D0022,y
 addd  #$0020
 std   D0022,y
 ldd   #$0020
 pshs  d
 leax  D0099,y
 pshs  x
 ldd   4,s
 lbsr  L0e02
 leas  4,s
 cmpd  #$0020
 beq   L070a
 ldd   #-1
 leas  2,s
 rts   
L0737 ldd   #1
 leas  2,s
 rts   
L073d pshs  d
 clrb  
 clra  
 pshs  d
 ldd   D0022,y
 pshs  d
 ldd   D0020,y
 pshs  d
 ldd   6,s
 lbsr  L0e05
 leas  6,s
 cmpd  #0
 bge   L076c
 leax  L0c35,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 ldd   D0002
 lbsr  L0df9
L076c leas  2,s
 rts   
L076f pshs  d
 ldd   ,s
 lbsr  L0838
 ldd   D000e,y
 cmpd  #1
 lbne  L07ee
 leax  L0c48,pcr
 pshs  x
 ldd   2,s
 lbsr  L0909
 leas  2,s
 cmpd  #0
 lbne  L07ee
 ldd   ,y
 cmpd  #1
 bne   L07bf
 leax  D014f,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  D0051,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  L0c50,pcr
 tfr   x,d
 lbsr  L0df3
 leas  8,s
L07bf ldd   ,y
 cmpd  #2
 bne   L07e9
 leax  D00b9,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  D0051,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  L0c6b,pcr
 tfr   x,d
 lbsr  L0df3
 leas  8,s
L07e9 clrb  
 clra  
 leas  2,s
 rts   
L07ee ldd   ,s
 pshs  d
 ldd   2,s
 pshs  d
 leax  D014f,y
 pshs  x
 leax  D0024,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  L0c7e,pcr
 tfr   x,d
 lbsr  L0df3
 leas  10,s
 ldd   D000c,y
 beq   L0835
 ldd   ,s
 pshs  d
 ldd   2,s
 pshs  d
 leax  D014f,y
 pshs  x
 leax  D0109,y
 pshs  x
 leax  L0c92,pcr
 tfr   x,d
 lbsr  L0df3
 leas  8,s
L0835 leas  2,s
 rts   
L0838 pshs  d
 leas  -4,s
 clrb  
 clra  
 std   2,s
 std   ,s
L0842 ldd   4,s
 addd  ,s
 tfr   d,x
 ldb   ,x
 andb  #$80
 cmpb  #0
 bne   L0864
 ldd   ,s
 cmpd  #$001d
 bgt   L0864
 ldd   ,s
 addd  #1
 std   ,s
 subd  #1
 bra   L0842
L0864 ldd   4,s
 addd  ,s
 pshs  d
 ldd   6,s
 addd  2,s
 tfr   d,x
 ldb   ,x
 andb  #$7f
 stb   [,s++]
 ldd   ,s
 addd  #1
 std   ,s
 subd  #1
 ldd   4,s
 addd  ,s
 tfr   d,x
 clr   ,x
 leas  6,s
 rts   
L088b ldd   #$0081
 pshs  d
 leax  L0ca2,pcr
 tfr   x,d
 lbsr  L0dfc
 leas  2,s
 std   D0016,y
 ldd   #$0020
 pshs  d
 leax  D0099,y
 pshs  x
 ldd   D0016,y
 lbsr  L0e02
 leas  4,s
 ldd   #$0020
 pshs  d
 leax  D0079,y
 pshs  x
 ldd   D0016,y
 lbsr  L0e02
 leas  4,s
 leax  D0079,y
 tfr   x,d
 addd  #$001f
 pshs  d
 leax  D0099,y
 ldb   31,x
 cmpb  [,s++]
 bne   L0906
 leax  D0079,y
 tfr   x,d
 addd  #$001e
 pshs  d
 leax  D0099,y
 ldb   30,x
 cmpb  [,s++]
 bne   L0906
 leax  D0079,y
 tfr   x,d
 addd  #$001d
 pshs  d
 leax  D0099,y
 ldb   29,x
 cmpb  [,s++]
 bne   L0906
 ldd   #1
 rts   
L0906 clrb  
 clra  
 rts   
L0909 pshs  d
 leas  -3,s
 clrb  
 clra  
 std   1,s
L0911 ldd   1,s
 ldx   3,s
 ldb   d,x
 beq   L0942
 ldd   3,s
 addd  1,s
 tfr   d,x
 ldb   ,x
 orb   #$20
 stb   ,s
 tstb  
 beq   L0942
 ldd   1,s
 addd  #1
 std   1,s
 subd  #1
 addd  7,s
 pshs  d
 ldb   2,s
 cmpb  [,s++]
 beq   L0911
 ldd   #1
 leas  5,s
 rts   
L0942 ldd   1,s
 ldx   7,s
 ldb   d,x
 clra  
 leas  5,s
 rts   
L094c pshs  d
 leas  -4,s
 clrb  
 clra  
 std   ,s
L0954 ldd   ,s
 ldx   4,s
 ldb   d,x
 beq   L0968
 ldd   ,s
 addd  #1
 std   ,s
 subd  #1
 bra   L0954
L0968 clrb  
 clra  
 std   2,s
L096c ldd   ,s
 addd  #1
 std   ,s
 subd  #1
 addd  4,s
 pshs  d
 ldd   4,s
 ldx   10,s
 ldb   d,x
 stb   [,s++]
 ldd   2,s
 addd  #1
 std   2,s
 subd  #1
 ldx   8,s
 ldb   d,x
 cmpb  #0
 beq   L099c
 ldd   ,s
 cmpd  #$00f9
 blt   L096c
L099c ldd   ,s
 cmpd  #$00f9
 blt   L09b6
 leax  L0ca4,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 clrb  
 clra  
 lbsr  L0df9
L09b6 leas  6,s
 rts   
L09b9 pshs  d
 leas  -2,s
 clrb  
 clra  
 std   ,s
L09c1 ldd   ,s
 ldx   2,s
 ldb   d,x
 beq   L09d5
 ldd   ,s
 addd  #1
 std   ,s
 subd  #1
 bra   L09c1
L09d5 ldd   ,s
 cmpd  #0
 ble   L0a0b
 ldd   D0012,y
 cmpd  #0
 blt   L0a0b
 ldd   D0012,y
 subd  #1
 std   D0012,y
 addd  #1
 leax  D014f,y
 pshs  x
 addd  ,s++
 pshs  d
 ldd   2,s
 subd  #1
 std   2,s
 ldx   4,s
 ldb   d,x
 stb   [,s++]
 bra   L09d5
L0a0b ldd   D0012,y
 cmpd  #0
 bgt   L0a26
 leax  L0cc0,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 clrb  
 clra  
 lbsr  L0df9
L0a26 leas  4,s
 rts   
L0a29 pshs  d
 ldd   ,s
 lbsr  L0e08
 cmpd  #0
 bge   L0a4c
 ldd   ,s
 pshs  d
 leax  L0cdc,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  4,s
 ldd   D0002
 lbsr  L0df9
L0a4c leas  2,s
 rts   
L0a4f leax  L0d02,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 leax  L0d2a,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 leax  L0d4b,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 leax  L0d6d,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 leax  L0d90,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 leax  L0dad,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 leax  L0dcc,pcr
 pshs  x
 ldd   D000e
 lbsr  L0df0
 leas  2,s
 clrb  
 clra  
 lbsr  L0df9
 rts   
L0ab0 bpl   L0ad2
 comb  
 fcb $6b
 rol   -16,s
 neg   $696e
 fcb $67
 bra   L0b20
 rol   -14,s
 fcb $65
 com   -12,s
 clr   -14,s
 rol   14880
 beq   L0aed
 com   $272e
 bra   L0aed
 fcb $45
 fcb $72
 fcb $72
 clr   -14,s
L0ad2 bra   L0af7
 bcs   L0b3a
 dec   D0000
L0ad8 lsr   -13,s
 fcb $61
 ror   $653a
 bra   L0b55
 jmp   11,s
 jmp   15,s
 asr   $6e20
 clr   -16,s
 lsr   $696f
 jmp   D000d,y
L0aed equ *-1
 bra   L0b15
 com   10,x
 dec   D0000
L0af4 ble   L0af6
L0af6 ble   L0b3c
L0af7 equ *-1
 fcb $30
 neg   D002f
L0afa equ *-1
 neg   D002f
L0afc equ *-1
 lsra  
 fcb $31
 neg   D0064
L0b00 equ *-1
 com   $6176
 fcb $65
 abx   
 bra   L0b7d
 jmp   -16,s
 fcb $72
 clr   3,s
 fcb $65
 com   29541
 fcb $64
 bra   L0b75
 fcb $72
L0b15 asr   -11,s
 tst   5,s
 jmp   -12,s
 com   $0a0a
 neg   D0074
L0b1f equ *-1
L0b20 dec   D0000
L0b22 com   8,s
 fcb $64
 bra   L0b4c
 com   $0a00
L0b2a lsr   $6d6f
 lsr   5,s
 bra   L0b5f
 fcb $31
 bra   L0b61
 neg   $6175
 com   $650a
L0b3a neg   D006c
L0b3b equ *-1
L0b3c clr   1,s
 fcb $64
 bra   L0ba4
 clr   -16,s
 rol   $0a00
L0b46 inc   15,s
 fcb $61
 fcb $64
 bra   L0baf
L0b4c tst   -16,s
 dec   D0000
L0b50 bgt   L0b80
 neg   D0072
L0b53 equ *-1
 neg   D0064
L0b55 equ *-1
 com   $6176
 fcb $65
 abx   
 bra   L0bc2
 fcb $72
 fcb $72
L0b5f clr   -14,s
L0b61 bra   L0bcc
 fcb $6e
 bra   L0bd8
 fcb $65
 fcb $61
 lsr   9,s
 jmp   7,s
 bra   L0bde
 fcb $61
 lsr   $680a
 neg   D002f
L0b73 equ *-1
 neg   D002e
L0b75 equ *-1
 bgt   L0b78
L0b78 fcb $72
 neg   D0072
L0b7a equ *-1
 neg   D0075
L0b7c equ *-1
L0b7d jmp   12,s
 rol   14,s
L0b80 equ *-1
 fcb $6b
 bra   L0be7
 tst   -16,s
 dec   D0000
L0b88 fcb $75
 jmp   12,s
 rol   14,s
 fcb $6b
 bra   L0bf3
 clr   -16,s
 rol   $0a00
L0b95 lsr   $6d6f
 lsr   5,s
 bra   L0bca
 fcb $31
 bra   L0c0f
 fcb $61
 fcb $75
 com   $650a
L0ba4 neg   D0064
L0ba5 equ *-1
 com   $6176
 fcb $65
 abx   
 bra   L0c11
 rol   -14,s
L0baf bra   L0c1d
 fcb $65
 ror   $656c
 bra   L0c2b
 clr   15,s
 bra   L0c1f
 fcb $65
 fcb $65
 neg   $2066
 clr   -14,s
L0bc2 bra   L0c2d
 jmp   4,s
 fcb $65
 jmp   -12,s
 dec   D0000
L0bca equ *-1
L0bcb bgt   L0bcd
L0bcc equ *-1
L0bcd lsr   -13,s
 fcb $61
 ror   $653a
 bra   L0c38
 fcb $61
 jmp   14,s
L0bd8 clr   -12,s
 bra   L0c4b
 neg   $656e
L0bde equ *-1
 bra   L0c45
 rol   -14,s
 fcb $65
 com   -12,s
 clr   -14,s
L0be7 equ *-1
 rol   $0a00
L0beb bcs   L0c60
 tsta  
 fcb $61
 fcb $6b
 lsr   9,s
 fcb $72
L0bf3 bra   L0c1a
 com   $0a00
L0bf8 bcs   L0c6d
 coma  
 asl   4,s
 bra   L0c24
 com   $0a00
L0c02 fcb $72
 neg   D002f
L0c04 equ *-1
 neg   D0025
L0c06 equ *-1
 com   $4368
 fcb $64
 bra   L0c3b
 bgt   L0c19
L0c0f neg   D002e
L0c10 equ *-1
L0c11 bgt   L0c13
L0c13 fcb $72
 neg   D002e
L0c15 equ *-1
 neg   D0064
L0c17 equ *-1
 com   $6176
L0c19 equ *-2
L0c1a equ *-1
 fcb $65
 abx   
L0c1d bra   L0c82
L0c1f fcb $61
 jmp   14,s
 clr   -12,s
L0c24 bra   L0c95
 neg   $656e
 bra   L0c8f
L0c2b rol   -14,s
L0c2d fcb $65
 com   -12,s
 clr   -14,s
 rol   $0a00
L0c35 lsr   -13,s
 fcb $61
L0c38 ror   $653a
L0c3b bra   L0cb0
 fcb $65
 fcb $65
 fcb $6b
 bra   L0ca7
 fcb $72
 fcb $72
 clr   -14,s
L0c45 equ *-1
 dec   D0000
L0c48 clr   -13,s
 rts   
L0c4b fcb $62
 clr   15,s
 lsr   >$0025
L0c50 equ *-1
 com   $4f53
 rts   
 asra  
 fcb $65
 fcb $6e
 bra   L0c7f
 com   $0a25
 com   $2573
L0c60 ble   L0cb1
 comb  
 rts   
 fcb $42
 clr   15,s
 lsr   $0a0a
 neg   D0025
L0c6b equ *-1
 com   $4f53
L0c6d equ *-2
 rts   
 asra  
 fcb $65
 fcb $6e
 bra   L0c9a
 com   $0a25
 com   $2573
 dec   D000a
 neg   D0025
L0c7e equ *-1
L0c7f com   $436f
L0c82 neg   31008
 bcs   L0cfa
 bra   L0cae
 com   $2f25
 com   $2025
L0c8f com   $0a00
L0c92 bcs   L0d07
 coma  
L0c95 tst   -16,s
 bra   L0cbe
 com   $2f25
L0c9a equ *-2
 com   $2025
 com   $0a00
L0ca2 bgt   L0ca4
L0ca4 lsr   -13,s
 fcb $61
L0ca7 ror   $653a
 bra   L0d11
 fcb $72
 fcb $72
L0cae clr   -14,s
L0cb0 bra   L0d22
L0cb1 equ *-1
 fcb $61
 lsr   $6820
 lsr   $6f6f
 bra   L0d27
 clr   14,s
 asr   10,x
L0cbe equ *-1
 neg   D0064
L0cc0 equ *-1
 com   $6176
 fcb $65
 abx   
 bra   L0d2d
 fcb $72
 fcb $72
 clr   -14,s
 bra   L0d3e
 fcb $61
 lsr   $6820
 lsr   $6f6f
 bra   L0d43
 clr   14,s
 asr   10,x
 neg   D0064
L0cdc equ *-1
 com   $6176
 fcb $65
 abx   
 bra   L0d47
 fcb $61
 jmp   14,s
 clr   -12,s
 bra   L0d4e
 asl   1,s
 jmp   7,s
 fcb $65
 bra   L0d56
 rol   -14,s
 fcb $65
 com   -12,s
 clr   -14,s
 rol   $2074
L0cfa equ *-2
 fcb $6f
 bra   L0d24
 com   $0a00
L0d02 fcb $55
 com   $653a
 bra   L0d4c
L0d07 equ *-1
 comb  
 fcb $41
 rorb  
 fcb $45
 bra   L0d4a
 blt   L0d7f
 neg   29811
L0d11 equ *-2
 fcb $3e
 bra   L0d52
 ror   -14,s
 clr   13,s
 bra   L0d80
 fcb $65
 ror   15904
 cwai  #$74
L0d22 fcb $6f
 bra   L0d89
L0d24 equ *-1
 fcb $65
 ror   15882
L0d27 equ *-2
 neg   D0020
L0d2a equ *-1
 bra   L0d4d
L0d2d bra   L0d4f
 clr   -16,s
 lsr   29472
 bra   L0d98
 bra   L0d75
 bra   L0da3
 jmp   3,s
 inc   -11,s
L0d3e lsr   5,s
 bra   L0da4
 clr   15,s
L0d43 equ *-1
 lsr   $6669
L0d47 inc   5,s
 dec   D0000
L0d4a equ *-1
L0d4b bra   L0d6d
L0d4c equ *-1
L0d4d bra   L0d6f
L0d4e equ *-1
L0d4f bra   L0d71
 bra   L0d73
L0d52 equ *-1
 bra   L0d75
 bra   L0dc0
L0d56 equ *-1
 bra   L0d96
 bra   L0dc4
 jmp   4,s
 fcb $65
 jmp   -12,s
 bra   L0dc6
 rol   -14,s
 bra   L0dd2
 fcb $65
 ror   $656c
 com   $0a00
L0d6d bra   L0d8f
L0d6f bra   L0d91
L0d71 bra   L0d93
L0d73 bra   L0d95
L0d75 bra   L0d97
 bra   L0de5
 bra   L0db8
 bra   L0dec
 jmp   12,s
L0d7f rol   $206f
L0d80 equ *-2
 jmp   5,s
 bra   L0dea
 rol   -14,s
 bra   L0df6
L0d89 equ *-1
 fcb $65
 ror   $656c
 dec   D0000
L0d8f equ *-1
L0d90 bra   L0db2
L0d91 equ *-1
 bra   L0db4
L0d93 equ *-1
 bra   L0db6
L0d95 equ *-1
L0d96 bra   L0db8
L0d97 equ *-1
L0d98 bra   L0dba
 bra   L0e09
 bra   L0ddb
 bra   L0e0f
 tst   9,s
 lsr   $206d
L0da3 equ *-2
L0da4 equ *-1
 fcb $61
 fcb $6b
 lsr   9,s
 fcb $72
 com   $0a00
L0dad bra   L0dcf
 bra   L0dd1
 bra   L0dd3
L0db2 equ *-1
 bra   L0dd5
L0db4 equ *-1
 bra   L0dd7
L0db6 equ *-1
 bra   L0e2c
L0db8 equ *-1
 bra   L0df8
L0dba equ *-1
 bra   L0e1e
 inc   -12,s
 fcb $65
L0dc0 fcb $72
 bra   L0e30
 fcb $65
L0dc4 fcb $6d
 bra   L0e3a
L0dc6 equ *-1
 rol   -6,s
 fcb $65
 dec   D0000
L0dcc bra   L0dee
 bra   L0df0
L0dcf equ *-1
 bra   L0df2
L0dd1 equ *-1
L0dd2 bra   L0df4
L0dd3 equ *-1
 bra   L0df6
L0dd5 equ *-1
 bra   L0e4e
L0dd7 equ *-1
 bra   L0e17
 bra   L0e52
L0ddb equ *-1
 fcb $65
 fcb $72
 rol   6,s
 rol   $2063
 clr   -16,s
L0de5 rol   5,s
 fcb $64
 bra   L0e50
L0dea rol   12,s
L0dec fcb $65
 com   $0a00
L0dee equ *-2
L0df0 lbra  L0eb6
L0df2 equ *-1
L0df3 lbra  L0eeb
L0df4 equ *-2
L0df6 lbra  L11ea
L0df8 equ *-1
L0df9 lbra  L0e9b
L0dfc lbra  L191e
L0dff lbra  L192b
L0e02 lbra  L1935
L0e05 lbra  L19ce
L0e08 lbra  L190c
L0e09 equ *-2
L0e0b clrb  
 stb   ,u++
L0e0e lda   ,x+
L0e0f equ *-1
 cmpa  #$0d
 beq   L0e2c
 bsr   L0e94
 beq   L0e0e
L0e17 equ *-1
 leax  -1,x
 stx   ,u++
 inc   D0000
L0e1e lda   ,x+
 cmpa  #$0d
 beq   L0e2c
 bsr   L0e94
 bne   L0e1e
 clr   -1,x
 bra   L0e0e
L0e2c clr   ,-x
 lda   D0000
L0e30 sta   D0001
 clra  
 clrb  
 pshs  d
L0e36 tst   D0000
 beq   L0e42
L0e3a dec   D0000
 ldd   ,--u
 pshs  d
 bra   L0e36
L0e42 pshs  x
 leax  ,s
 pshs  x
 leax  -2,s
 pshs  x
 leax  ,u
L0e4e clr   ,x+
L0e50 cmpx  ,s
L0e52 bcs   L0e4e
 puls  x
 leau  -2,u
 leax  16,u
 stx   D000a
 stx   D0008
 leax  27,u
 stx   D000c
 stx   D0018
 leax  38,u
 stx   D000e
 stx   D0023
 lda   #5
 sta   D0016
 lda   #6
 sta   D0021
 lda   #6
 sta   D002c
 clra  
 sta   D0017
 inca  
 sta   D0022
 inca  
 sta   D002d
 ldd   ,u
 addd  #1
 sty   D0000
 leay  253,u
 lbsr  L000d
 lbra  L0e9b
L0e94 cmpa  #$20
 beq   L0e9a
 cmpa  #9
L0e9a rts   
L0e9b pshs  d
L0e9d ldd   D0008
 beq   L0ea8
 ldd   D0008
 lbsr  L0eb0
 bra   L0e9d
L0ea8 ldd   ,s
 lbsr  L0eb3
 leas  2,s
 rts   
L0eb0 lbra  L11ea
L0eb3 lbra  L1a0c
L0eb6 pshs  d
 leas  -256,s
 leax  262,s
 pshs  x
 ldd   262,s
 pshs  d
 leax  4,s
 tfr   x,d
 lbsr  L0ee5
 leas  4,s
 ldd   256,s
 pshs  d
 leax  2,s
 tfr   x,d
 lbsr  L0ee8
 leas  2,s
 leas  258,s
 rts   
L0ee5 lbra  L0f18
L0ee8 lbra  L1343
L0eeb pshs  d
 leas  -256,s
 leax  260,s
 pshs  x
 ldd   258,s
 pshs  d
 leax  4,s
 tfr   x,d
 lbsr  L0f12
 leas  4,s
 leax  ,s
 tfr   x,d
 lbsr  L0f15
 leas  258,s
 rts   
L0f12 lbra  L0f18
L0f15 lbra  L12de
L0f18 pshs  d
 leas  -269,s
L0f1e ldx   273,s
 ldb   ,x+
 stx   273,s
 stb   ,s
 tstb  
 lbeq  L114b
 ldb   ,s
 cmpb  #$25
 beq   L0f4b
 ldd   269,s
 addd  #1
 std   269,s
 subd  #1
 pshs  d
 ldb   2,s
 stb   [,s++]
 bra   L0f1e
L0f4b leax  13,s
 stx   9,s
 ldd   #6
 std   4,s
 clr   7,s
 ldb   #$20
 stb   8,s
 clr   6,s
 ldb   [273,s]
 cmpb  #$2d
 bne   L0f73
 ldd   273,s
 addd  #1
 std   273,s
 ldb   #1
 stb   7,s
L0f73 ldb   [273,s]
 clra  
 lbsr  L11d8
 addd  #0
 beq   L0f99
 ldb   [273,s]
 cmpb  #$30
 bne   L0f8c
 ldb   #$30
 stb   8,s
L0f8c leax  273,s
 tfr   x,d
 lbsr  L11db
 std   2,s
 bra   L0f9d
L0f99 clrb  
 clra  
 std   2,s
L0f9d ldb   [273,s]
 cmpb  #$2e
 bne   L0fbf
 ldd   273,s
 addd  #1
 std   273,s
 leax  273,s
 tfr   x,d
 lbsr  L11db
 std   4,s
 ldb   #1
 stb   6,s
L0fbf ldx   273,s
 ldb   ,x+
 stx   273,s
 stb   ,s
 ldb   ,s
 clra  
 lbsr  L11de
 cmpb  #$64
 beq   L0ff4
 cmpb  #$75
 beq   L1021
 cmpb  #$78
 lbeq  L1027
 cmpb  #$6f
 lbeq  L102d
 cmpb  #$63
 lbeq  L1057
 cmpb  #$73
 lbeq  L1079
 lbra  L1134
L0ff4 ldd   [275,s]
 cmpd  #0
 bge   L1021
 ldd   9,s
 addd  #1
 std   9,s
 subd  #1
 pshs  d
 ldb   #$2d
 stb   [,s++]
 ldd   [275,s]
 nega  
 negb  
 sbca  #0
 std   [275,s]
 ldd   2,s
 subd  #1
 std   2,s
L1021 ldb   #$0a
 stb   1,s
 bra   L1031
L1027 ldb   #$10
 stb   1,s
 bra   L1031
L102d ldb   #8
 stb   1,s
L1031 ldb   1,s
 clra  
 pshs  d
 ldx   277,s
 ldd   ,x++
 stx   277,s
 pshs  d
 leax  13,s
 tfr   x,d
 lbsr  L1154
 leas  4,s
 clra  
 pshs  d
 ldd   4,s
 subd  ,s++
 std   2,s
 lbra  L10bb
L1057 ldd   9,s
 addd  #1
 std   9,s
 subd  #1
 pshs  d
 ldx   277,s
 ldd   ,x++
 stx   277,s
 stb   [,s++]
 ldd   2,s
 subd  #1
 std   2,s
 lbra  L10bb
L1079 ldb   6,s
 bne   L1082
 ldd   #$0100
 std   4,s
L1082 ldx   275,s
 ldd   ,x++
 stx   275,s
 std   11,s
L108e ldb   [11,s]
 beq   L10bb
 ldd   4,s
 beq   L10bb
 ldd   9,s
 addd  #1
 std   9,s
 subd  #1
 pshs  d
 ldx   13,s
 ldb   ,x+
 stx   13,s
 stb   [,s++]
 ldd   4,s
 subd  #1
 std   4,s
 ldd   2,s
 subd  #1
 std   2,s
 bra   L108e
L10bb clr   [9,s]
 leax  13,s
 stx   9,s
 ldb   7,s
 bne   L10ec
L10c6 ldd   2,s
 subd  #1
 std   2,s
 addd  #1
 cmpd  #0
 ble   L10ec
 ldd   269,s
 addd  #1
 std   269,s
 subd  #1
 pshs  d
 ldb   10,s
 stb   [,s++]
 bra   L10c6
L10ec ldx   9,s
 ldb   ,x+
 stx   9,s
 stb   [269,s]
 tstb  
 beq   L1106
 ldd   269,s
 addd  #1
 std   269,s
 bra   L10ec
L1106 ldb   7,s
 lbeq  L0f1e
L110c ldd   2,s
 subd  #1
 std   2,s
 addd  #1
 cmpd  #0
 lble  L0f1e
 ldd   269,s
 addd  #1
 std   269,s
 subd  #1
 pshs  d
 ldb   10,s
 stb   [,s++]
 bra   L110c
L1134 ldd   269,s
 addd  #1
 std   269,s
 subd  #1
 pshs  d
 ldb   2,s
 stb   [,s++]
 lbra  L0f1e
L114b clr   [269,s]
 leas  271,s
 rts   
L1154 pshs  d
 leas  -3,s
 ldd   [3,s]
 std   ,s
 ldd   7,s
 pshs  d
 ldd   11,s
 lbsr  L11e4
 stb   2,s
 ldd   [3,s]
 addd  #1
 std   [3,s]
 subd  #1
 pshs  d
 ldb   4,s
 cmpb  #$0a
 bcc   L1182
 ldb   4,s
 addb  #$30
 bra   L1186
L1182 ldb   4,s
 addb  #$37
L1186 stb   [,s++]
L1188 ldd   7,s
 pshs  d
 ldd   11,s
 lbsr  L11e7
 std   7,s
 addd  #0
 beq   L11c5
 ldd   7,s
 pshs  d
 ldd   11,s
 lbsr  L11e4
 stb   2,s
 ldd   [3,s]
 addd  #1
 std   [3,s]
 subd  #1
 pshs  d
 ldb   4,s
 cmpb  #$0a
 bcc   L11bd
 ldb   4,s
 addb  #$30
 bra   L11c1
L11bd ldb   4,s
 addb  #$37
L11c1 stb   [,s++]
 bra   L1188
L11c5 ldx   [3,s]
 clr   ,x
 ldd   ,s
 lbsr  L11e1
 ldd   [3,s]
 subd  ,s
 clra  
 leas  5,s
 rts   
L11d8 lbra  L179b
L11db lbra  L129f
L11de lbra  L17b2
L11e1 lbra  L12f1
L11e4 lbra  L1850
L11e7 lbra  L186c
L11ea pshs  d
 leas  -5,s
 clrb  
 clra  
 std   2,s
 ldd   D0008
 std   ,s
L11f6 ldd   ,s
 lbeq  L1259
 ldd   ,s
 cmpd  5,s
 lbne  L124c
 ldd   2,s
 beq   L1218
 ldd   2,s
 addd  #8
 pshs  d
 ldx   2,s
 ldd   8,x
 std   [,s++]
 bra   L121e
L1218 ldx   ,s
 ldd   8,x
 std   D0008
L121e clr   4,s
 ldd   5,s
 lbsr  L1296
 ldx   5,s
 ldb   7,x
 clra  
 lbsr  L1299
 cmpd  #-1
 bne   L1237
 ldb   #1
 stb   4,s
L1237 ldd   5,s
 lbsr  L125f
 ldb   4,s
 beq   L1246
 ldd   #-1
 leas  7,s
 rts   
L1246 ldd   #1
 leas  7,s
 rts   
L124c ldd   ,s
 std   2,s
 ldx   ,s
 ldd   8,x
 std   ,s
 lbra  L11f6
L1259 ldd   #-1
 leas  7,s
 rts   
L125f pshs  d
 ldd   ,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #8
 tstb  
 beq   L1276
 ldx   ,s
 ldd   4,x
 lbsr  L129c
L1276 ldd   ,s
 cmpd  D000a
 beq   L128b
 ldd   ,s
 cmpd  D000c
 beq   L128b
 ldd   ,s
 cmpd  D000e
 bne   L128e
L128b leas  2,s
 rts   
L128e ldd   ,s
 lbsr  L129c
 leas  2,s
 rts   
L1296 lbra  L15f8
L1299 lbra  L192b
L129c lbra  L16e4
L129f pshs  d
 leas  -2,s
 clrb  
 clra  
 std   ,s
L12a7 ldx   [2,s]
 ldb   ,x
 clra  
 lbsr  L12d8
 addd  #0
 beq   L12d3
 ldx   [2,s]
 ldb   ,x+
 stx   [2,s]
 clra  
 pshs  d
 ldd   2,s
 pshs  d
 ldd   #$000a
 lbsr  L12db
 addd  ,s++
 subd  #$0030
 std   ,s
 bra   L12a7
L12d3 ldd   ,s
 leas  4,s
 rts   
L12d8 lbra  L179b
L12db lbra  L1801
L12de pshs  d
 ldd   D000c
 pshs  d
 ldd   2,s
 lbsr  L12ee
 leas  2,s
 leas  2,s
 rts   
L12ee lbra  L1343
L12f1 pshs  d
 leas  -5,s
 clrb  
 clra  
 std   ,s
 ldd   5,s
 lbsr  L1340
 subd  #1
 std   2,s
L1303 ldd   ,s
 cmpd  2,s
 lbge  L133d
 ldd   ,s
 ldx   5,s
 ldb   d,x
 stb   4,s
 ldd   5,s
 addd  ,s
 pshs  d
 ldd   4,s
 ldx   7,s
 ldb   d,x
 stb   [,s++]
 ldd   5,s
 addd  2,s
 pshs  d
 ldb   6,s
 stb   [,s++]
 ldd   ,s
 addd  #1
 std   ,s
 ldd   2,s
 subd  #1
 std   2,s
 lbra  L1303
L133d leas  7,s
 rts   
L1340 lbra  L17e5
L1343 pshs  d
 leas  -263,s
 ldd   267,s
 lbsr  L1431
 ldd   263,s
 std   1,s
 leax  7,s
 stx   3,s
L135a ldb   [1,s]
 lbeq  L13f1
 ldb   [1,s]
 cmpb  #$0a
 lbne  L1399
 ldb   #$0d
 stb   [3,s]
 ldd   #$0100
 pshs  d
 leax  9,s
 pshs  x
 ldx   271,s
 ldb   7,x
 clra  
 lbsr  L1434
 leas  4,s
 cmpd  #-1
 bne   L1392
 ldd   #-1
 leas  265,s
 rts   
L1392 leax  7,s
 stx   3,s
 lbra  L13e7
L1399 ldb   [1,s]
 cmpb  #9
 bne   L13d6
 ldd   3,s
 leax  7,s
 pshs  x
 subd  ,s++
 pshs  d
 ldd   #8
 lbsr  L143d
 pshs  d
 ldd   #8
 subd  ,s++
 std   5,s
L13b9 ldd   5,s
 beq   L13e7
 ldd   3,s
 addd  #1
 std   3,s
 subd  #1
 pshs  d
 ldb   #$20
 stb   [,s++]
 ldd   5,s
 subd  #1
 std   5,s
 bra   L13b9
L13d6 ldd   3,s
 addd  #1
 std   3,s
 subd  #1
 pshs  d
 ldb   [3,s]
 stb   [,s++]
L13e7 ldd   1,s
 addd  #1
 std   1,s
 lbra  L135a
L13f1 clr   [3,s]
 ldd   3,s
 leax  7,s
 pshs  x
 cmpd  ,s++
 lbeq  L1428
 leax  7,s
 tfr   x,d
 lbsr  L143a
 pshs  d
 leax  9,s
 pshs  x
 ldx   271,s
 ldb   7,x
 clra  
 lbsr  L1437
 leas  4,s
 cmpd  #-1
 bne   L1428
 ldd   #-1
 leas  265,s
 rts   
L1428 ldd   263,s
 leas  265,s
 rts   
L1431 lbra  L15f8
L1434 lbra  L1974
L1437 lbra  L194a
L143a lbra  L17e5
L143d lbra  L1844
 pshs  d
 ldd   D000c
 pshs  d
 ldd   2,s
 lbsr  L1450
 leas  2,s
 leas  2,s
 rts   
L1450 pshs  d
 ldd   4,s
 addd  #2
 tfr   d,x
 ldd   ,x
 subd  #1
 std   ,x
 cmpd  #0
 blt   L147b
 ldd   [4,s]
 addd  #1
 std   [4,s]
 subd  #1
 pshs  d
 ldb   3,s
 stb   [,s++]
 clra  
 bra   L148c
L147b ldd   #1
 pshs  d
 ldd   6,s
 pshs  d
 ldb   5,s
 clra  
 lbsr  L149f
 leas  4,s
L148c leas  2,s
 rts   
 pshs  d
 ldd   D000e
 pshs  d
 ldd   2,s
 lbsr  L1450
 leas  2,s
 leas  2,s
 rts   
L149f pshs  d
 leas  -3,s
 ldb   4,s
 stb   2,s
 ldd   7,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #2
 cmpb  #0
 beq   L14c5
 ldd   7,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #$30
 cmpb  #0
 beq   L14cb
L14c5 ldd   #-1
 leas  5,s
 rts   
L14cb ldb   10,s
 beq   L14d4
 ldd   #1
 bra   L14d6
L14d4 clrb  
 clra  
L14d6 pshs  d
 ldd   9,s
 addd  #2
 pshs  d
 ldd   #$0100
 subd  [,s++]
 subd  ,s++
 std   ,s
 ldd   7,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #4
 cmpb  #0
 lbne  L1527
 ldx   7,s
 ldd   4,x
 bne   L1527
 ldd   7,s
 addd  #4
 pshs  d
 ldd   #$0100
 lbsr  L160c
 std   [,s++]
 cmpd  #0
 bne   L1523
 ldd   7,s
 addd  #6
 tfr   d,u
 ldb   ,u
 orb   #4
 stb   ,u
 bra   L1527
L1523 clrb  
 clra  
 std   ,s
L1527 ldd   7,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #4
 tstb  
 lbeq  L156b
 ldb   10,s
 lbeq  L159c
 ldd   #1
 pshs  d
 leax  4,s
 pshs  x
 ldx   11,s
 ldb   7,x
 clra  
 lbsr  L160f
 leas  4,s
 cmpd  #-1
 lbne  L159c
 ldd   7,s
 addd  #6
 tfr   d,u
 ldb   ,u
 orb   #$20
 stb   ,u
 ldd   #-1
 leas  5,s
 rts   
L156b ldd   ,s
 beq   L159c
 ldd   ,s
 pshs  d
 ldx   9,s
 ldd   4,x
 pshs  d
 ldx   11,s
 ldb   7,x
 clra  
 lbsr  L160f
 leas  4,s
 cmpd  #-1
 bne   L159c
 ldd   7,s
 addd  #6
 tfr   d,u
 ldb   ,u
 orb   #$20
 stb   ,u
 ldd   #-1
 leas  5,s
 rts   
L159c ldd   7,s
 addd  #2
 pshs  d
 ldd   9,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #4
 tstb  
 beq   L15b5
 clrb  
 clra  
 bra   L15b8
L15b5 ldd   #$0100
L15b8 std   [,s++]
 ldx   7,s
 ldd   4,x
 std   [7,s]
 ldb   10,s
 beq   L15f2
 ldd   7,s
 addd  #6
 tfr   d,x
 ldb   ,x
 andb  #4
 cmpb  #0
 bne   L15f2
 ldd   [7,s]
 addd  #1
 std   [7,s]
 subd  #1
 pshs  d
 ldb   6,s
 stb   [,s++]
 ldd   7,s
 addd  #2
 pshs  d
 ldd   #$00ff
 std   [,s++]
L15f2 ldb   4,s
 clra  
 leas  5,s
 rts   
L15f8 pshs  d
 clrb  
 clra  
 pshs  d
 ldd   2,s
 pshs  d
 clrb  
 clra  
 lbsr  L149f
 leas  4,s
 leas  2,s
 rts   
L160c lbra  L1612
L160f lbra  L194a
L1612 pshs  d
 leas  -8,s
 ldd   8,s
 addd  #3
 lsra  
 rorb  
 lsra  
 rorb  
 addd  #1
 std   6,s
 ldd   D024f,y
 std   2,s
 cmpd  #0
 bne   L1644
 leax  D024b,y
 stx   2,s
 stx   D024f,y
 stx   D024b,y
 clrb  
 clra  
 std   D024d,y
L1644 ldd   [2,s]
 std   ,s
L1649 ldx   ,s
 ldd   2,x
 cmpd  6,s
 lblo  L169f
 ldx   ,s
 ldd   2,x
 cmpd  6,s
 bne   L1664
 ldd   [,s]
 std   [2,s]
 bra   L1691
L1664 ldd   ,s
 addd  #2
 tfr   d,u
 ldd   ,u
 subd  6,s
 std   ,u
 ldd   ,s
 addd  #2
 tfr   d,x
 ldd   ,x
 lslb  
 rola  
 lslb  
 rola  
 pshs  d
 ldd   2,s
 addd  ,s++
 std   ,s
 ldd   ,s
 addd  #2
 pshs  d
 ldd   8,s
 std   [,s++]
L1691 ldd   2,s
 std   D024f,y
 ldd   ,s
 addd  #4
 leas  10,s
 rts   
L169f ldd   ,s
 cmpd  D024f,y
 lbne  L16d9
 ldd   6,s
 lslb  
 rola  
 lslb  
 rola  
 lbsr  L1798
 std   4,s
 cmpd  #-1
 bne   L16c0
 clrb  
 clra  
 leas  10,s
 rts   
L16c0 ldd   4,s
 addd  #2
 pshs  d
 ldd   8,s
 std   [,s++]
 ldd   4,s
 addd  #4
 lbsr  L16e4
 ldd   D024f,y
 std   ,s
L16d9 ldd   ,s
 std   2,s
 ldd   [,s]
 std   ,s
 lbra  L1649
L16e4 pshs  d
 leas  -4,s
 ldd   4,s
 subd  #4
 std   ,s
 ldd   D024f,y
 std   2,s
L16f5 ldd   ,s
 cmpd  2,s
 bls   L1704
 ldd   ,s
 cmpd  [2,s]
 bcs   L1723
L1704 ldd   2,s
 cmpd  [2,s]
 bcs   L171b
 ldd   ,s
 cmpd  2,s
 bhi   L1723
 ldd   ,s
 cmpd  [2,s]
 bcs   L1723
L171b ldd   [2,s]
 std   2,s
 lbra  L16f5
L1723 ldd   ,s
 addd  #2
 tfr   d,x
 ldd   ,x
 lslb  
 rola  
 lslb  
 rola  
 addd  ,s
 cmpd  [2,s]
 bne   L1756
 ldd   [2,s]
 addd  #2
 pshs  d
 ldd   2,s
 addd  #2
 tfr   d,u
 ldd   ,u
 addd  [,s++]
 std   ,u
 ldx   [2,s]
 ldd   ,x
 std   [,s]
 bra   L175b
L1756 ldd   [2,s]
 std   [,s]
L175b ldd   2,s
 addd  #2
 tfr   d,x
 ldd   ,x
 lslb  
 rola  
 lslb  
 rola  
 addd  2,s
 cmpd  ,s
 bne   L178a
 ldd   ,s
 addd  #2
 pshs  d
 ldd   4,s
 addd  #2
 tfr   d,u
 ldd   ,u
 addd  [,s++]
 std   ,u
 ldd   [,s]
 std   [2,s]
 bra   L178f
L178a ldd   ,s
 std   [2,s]
L178f ldd   2,s
 std   D024f,y
 leas  6,s
 rts   
L1798 lbra  L18e3
L179b pshs  d
 ldb   1,s
 cmpb  #$30
 bcs   L17ad
 ldb   1,s
 cmpb  #$39
 bhi   L17ad
 ldb   #1
 bra   L17ae
L17ad clrb  
L17ae clra  
 leas  2,s
 rts   
L17b2 pshs  d
 ldb   1,s
 clra  
 lbsr  L17cb
 addd  #0
 beq   L17c5
 ldb   1,s
 addb  #$20
 bra   L17c7
L17c5 ldb   1,s
L17c7 clra  
 leas  2,s
 rts   
L17cb lbra  L17ce
L17ce pshs  d
 ldb   1,s
 cmpb  #$41
 bcs   L17e0
 ldb   1,s
 cmpb  #$5a
 bhi   L17e0
 ldb   #1
 bra   L17e1
L17e0 clrb  
L17e1 clra  
 leas  2,s
 rts   
L17e5 pshs  d
 leas  -2,s
 ldd   2,s
 std   ,s
L17ed ldb   [,s]
 beq   L17fa
 ldd   ,s
 addd  #1
 std   ,s
 bra   L17ed
L17fa ldd   ,s
 subd  2,s
 leas  4,s
 rts   
L1801 leas  -5,s
 clr   ,s
 bsr   L183a
 std   1,s
 ldd   7,s
 bsr   L183a
 std   7,s
 lda   2,s
 ldb   8,s
 mul   
 std   3,s
 lda   1,s
 ldb   8,s
 mul   
 tfr   b,a
 clrb  
 addd  3,s
 std   3,s
 lda   2,s
 ldb   7,s
 mul   
 tfr   b,a
 clrb  
 addd  3,s
 tst   ,s
 bpl   L1834
 nega  
 negb  
 sbca  #0
L1834 ldx   5,s
 leas  9,s
 jmp   ,x
L183a tsta  
 bpl   L1843
 com   2,s
 nega  
 negb  
 sbca  #0
L1843 rts   
L1844 ldx   2,s
 bsr   L18c3
 pshs  cc
 stx   3,s
 puls  cc
 bra   L1852
L1850 andcc #247
L1852 orcc  #1
 pshs  cc
 ldx   #0
 puls  cc
 bra   L1871
 ldx   2,s
 bsr   L18c3
 pshs  cc
 stx   3,s
 ldx   #32767
 puls  cc
 bra   L1871
L186c ldx   #-1
 andcc #246
L1871 leas  -3,s
 pshs  cc
 std   2,s
 bne   L187f
 puls  cc
 tfr   x,d
 bra   L18bd
L187f lda   #1
 sta   1,s
L1883 tst   2,s
 bmi   L188f
 asl   3,s
 rol   2,s
 inc   1,s
 bra   L1883
L188f ldd   6,s
 clr   6,s
 clr   7,s
L1895 subd  2,s
 bcc   L189f
 addd  2,s
 andcc #254
 bra   L18a1
L189f orcc  #1
L18a1 rol   7,s
 rol   6,s
 lsr   2,s
 ror   3,s
 dec   1,s
 bne   L1895
 puls  cc
 bcs   L18b7
 pshs  cc
 ldd   6,s
 puls  cc
L18b7 bpl   L18bd
 nega  
 negb  
 sbca  #0
L18bd ldx   3,s
 leas  7,s
 jmp   ,x
L18c3 pshs  u
 tfr   d,u
 pshs  x
 eora  ,s++
 andcc #254
 pshs  cc
 tfr   x,d
 bsr   L18db
 tfr   d,x
 tfr   u,d
 bsr   L18db
 puls  cc,u,pc
L18db tsta  
 bpl   L18e2
 nega  
 negb  
 sbca  #0
L18e2 rts   
L18e3 pshs  d
 leax  Dff03,y
 tfr   x,d
 nega  
 negb  
 sbca  #0
 addd  D0000
 addd  ,s
 pshs  y
 os9 F$Mem
 puls  y
 puls  x
 bcs   L1905
 ldd   D0000
 leax  d,x
 stx   D0000
 rts   
L1905 clra  
 std   D0002
 ldd   #-1
 rts   
L190c tfr   d,x
 lda   #1
 os9 I$ChgDir
 bcc   L191b
 std   D0002
 ldd   #-1
 rts   
L191b clra  
 clrb  
 rts   
L191e tfr   d,x
 lda   3,s
 os9 I$Open
 bcs   L1989
 tfr   a,b
 clra  
 rts   
L192b tfr   b,a
 os9 I$Close
 bcs   L1989
 clra  
 clrb  
 rts   
L1935 pshs  y
 tfr   b,a
 ldx   4,s
 ldy   6,s
 os9 I$Read
 puls  x
 exg   x,y
 bcs   L1989
 tfr   x,d
 rts   
L194a pshs  y
 tfr   b,a
 ldx   4,s
 ldy   6,s
 os9 I$Write
 puls  x
 exg   x,y
 bcs   L1989
 tfr   x,d
 rts   
 pshs  y
 tfr   b,a
 ldx   4,s
 ldy   6,s
 os9 I$ReadLn
 puls  x
 exg   x,y
 bcs   L1989
 tfr   x,d
 rts   
L1974 pshs  y
 tfr   b,a
 ldx   4,s
 ldy   6,s
 os9 I$WritLn
 puls  x
 exg   x,y
 bcs   L1989
 tfr   x,d
 rts   
L1989 clra  
 std   D0002
 ldd   #-1
 rts   
 tfr   d,x
 lda   #2
 ldb   3,s
 bmi   L199c
 tfr   b,a
 anda  #3
L199c orb   #1
 pshs  d,x
 os9 I$Create
 puls  x,u
 exg   x,u
 bcc   L19b9
 pshs  x
 os9 I$Delete
 puls  x
 bcs   L1989
 tfr   u,d
 os9 I$Create
 bcs   L1989
L19b9 tfr   a,b
 clra  
 rts   
 pshs  d
 ldx   4,s
 ldd   ,x
 std   4,s
 clrb  
 lda   2,x
 addd  6,s
 std   6,s
 puls  d
L19ce tfr   b,a
 ldb   7,s
 ldx   2,s
 ldu   4,s
 decb  
 bne   L19e2
 ldb   #5
 os9 I$GetStt
 bcs   L1989
 bra   L19ec
L19e2 decb  
 bne   L19fa
 ldb   #2
 os9 I$GetStt
 bcs   L1989
L19ec exg   d,u
 addd  4,s
 exg   d,u
 exg   d,x
 adcb  3,s
 adca  2,s
 exg   d,x
L19fa os9 I$Seek
 bcs   L1989
 clra  
 clrb  
 rts   
 tfr   d,x
 os9 I$Delete
 bcs   L1989
 clra  
 clrb  
 rts   
L1a0c os9 F$Exit
L1a0f lsr   -13,s
 fcb $61
 ror   $e502

 emod 

L1a18 equ *

 end

RTS

Return to OS-9 or Top