====== DCHECK ====== Header for : dcheck Module size: $28A0 #10400 Module CRC : $542E56 (Good) Hdr parity : $13 Exec. off : $1B70 #7024 Data size : $0B80 #2944 Edition : $02 #2 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of dcheck mod L28a0,L2896,$11,$81,L1b70,D0b80 * OS-9 system function equates F$Exit equ $06 F$Mem equ $07 F$ID equ $0c 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 Dfff2 equ $fff2 Dfff4 equ $fff4 * OS9 data area definitions D0000 rmb 1 D0001 rmb 1 D0002 rmb 2 D0004 rmb 2 D0006 rmb 2 D0008 rmb 1 D0009 rmb 1 D000a rmb 2 D000c rmb 2 D000e rmb 2 D0010 rmb 2 D0012 rmb 2 D0014 rmb 2 D0016 rmb 1 D0017 rmb 1 D0018 rmb 2 D001a rmb 4 D001e rmb 2 D0020 rmb 1 D0021 rmb 1 D0022 rmb 1 D0023 rmb 1 D0024 rmb 1 D0025 rmb 1 D0026 rmb 2 D0028 rmb 2 D002a rmb 2 D002c rmb 1 D002d rmb 1 D002e rmb 1 D002f rmb 1 D0030 rmb 2 D0032 rmb 2 D0034 rmb 2 D0036 rmb 10 D0040 rmb 3 D0043 rmb 7 D004a rmb 3 D004d rmb 23 D0064 rmb 10 D006e rmb 5 D0073 rmb 55 D00aa rmb 60 D00e6 rmb 32 D0106 rmb 80 D0156 rmb 32 D0176 rmb 256 D0276 rmb 2 D0278 rmb 2 D027a rmb 2 D027c rmb 2 D027e rmb 2306 D0b80 equ . L000d pshs d leas -34,s clr 31,s clrb stb 30,s stb 29,s clrb clra std D002c,y std D002a,y std D0028,y std D0026,y ldd #1 std D0012,y leax L14c4,pcr pshs x leax D006e,y tfr x,d lbsr L1b22 leas 2,s leax L14c8,pcr pshs x leax D00aa,y tfr x,d lbsr L1b22 leas 2,s L0051 ldd 34,s subd #1 std 34,s cmpd #0 lble L015f ldd 38,s addd #2 std 38,s tfr d,x ldb [,x] cmpb #$2d lbne L015f ldd [38,s] addd #1 std ,s L007d ldb [,s] beq L0051 ldb [,s] clra lbsr L1b25 stb 2,s cmpb #$77 beq L00b4 cmpb #$6d lbeq L00ff cmpb #$62 lbeq L0108 cmpb #$73 lbeq L0110 cmpb #$70 lbeq L0119 cmpb #$6f lbeq L0122 cmpb #$64 lbeq L012a lbra L0131 L00b4 ldx ,s ldb 1,x cmpb #$3d lbne L00ea ldx ,s ldb 2,x beq L00ea ldd ,s addd #2 pshs d leax D006e,y tfr x,d lbsr L1b22 leas 2,s ldd ,s addd #2 pshs d leax D00aa,y tfr x,d lbsr L1b22 leas 2,s lbra L014a L00ea leax L14cc,pcr pshs x ldd D000e lbsr L1b28 leas 2,s clrb clra lbsr L1b2b lbra L014a L00ff ldd #1 std D0014,y lbra L014a L0108 clrb clra std D0012,y lbra L014a L0110 ldd #1 std D0016,y lbra L014a L0119 ldd #1 std D0010,y lbra L014a L0122 lbsr L0735 clrb clra lbsr L1b2b L012a ldd #1 std D000e,y bra L014a L0131 ldb [,s] clra pshs d leax L14f4,pcr pshs x ldd D000e lbsr L1b28 leas 4,s clrb clra std 34,s bra L014a L014a ldb 2,s cmpb #$77 lbeq L0051 ldd ,s addd #1 std ,s subd #1 lbra L007d L015f ldd 34,s cmpd #1 beq L0170 lbsr L0735 clrb clra lbsr L1b2b L0170 ldd D0016,y beq L017f clrb clra std D000e,y std D0014,y std D0010,y L017f ldd #$000b std D0034,y ldd D0016,y bne L0196 ldd D0034,y subd #1 std D0034,y addd #1 L0196 ldd D0010,y beq L01a7 ldd D0034,y subd #1 std D0034,y addd #1 L01a7 ldd [38,s] lbsr L1b2e cmpd #0 bne L01c5 leax L1511,pcr pshs x ldd D000e lbsr L1b28 leas 2,s clrb clra lbsr L1b2b L01c5 clrb clra std 25,s std 23,s ldd 23,s ldx [38,s] ldb d,x cmpb #$2f beq L01f1 ldd 25,s addd #1 std 25,s subd #1 leax 3,s pshs x addd ,s++ pshs d ldb #$2f stb [,s++] L01f1 ldd 23,s addd #1 std 23,s subd #1 ldx [38,s] ldb d,x stb 2,s tstb beq L0221 ldd 25,s addd #1 std 25,s subd #1 leax 3,s pshs x addd ,s++ pshs d ldb 4,s stb [,s++] bra L01f1 L0221 ldd 25,s subd #1 leax 3,s ldb d,x cmpb #$40 beq L024d ldd 25,s std 32,s ldd 25,s addd #1 std 25,s subd #1 leax 3,s pshs x addd ,s++ pshs d ldb #$40 stb [,s++] L024d ldd 25,s addd #1 std 25,s subd #1 leax 3,s pshs x addd ,s++ tfr d,x clr ,x ldd #1 pshs d leax 5,s tfr x,d lbsr L1b31 leas 2,s std ,y cmpd #-1 bne L028f leax 3,s pshs x leax L152e,pcr pshs x ldd D000e lbsr L1b28 leas 4,s ldd D0002 lbsr L1b2b L028f clrb clra pshs d clrb clra pshs d clrb clra pshs d ldd ,y lbsr L1b34 leas 6,s leax D0176,y tfr x,d lbsr L077b leax D0176,y ldb 5,x clra pshs d leax D0176,y ldb 4,x clra tfr b,a clrb addd ,s++ std D000a,y ldd D000a,y tfr a,b clra std D0030,y ldd D000a,y anda #0 andb #255 std D0032,y leax D0176,y ldb 7,x clra pshs d leax D0176,y ldb 6,x clra tfr b,a clrb addd ,s++ std D0006,y ldd D0006,y subd #1 std D0008,y leax D0176,y ldb 2,x clra pshs d leax D0176,y ldb 1,x clra tfr b,a clrb addd ,s++ std D000c,y ldd D000c,y pshs d ldd D0006,y lbsr L1b67 std D000c,y leax D0176,y tfr x,d addd #$001f pshs d leax D004d,y tfr x,d lbsr L0bd0 leas 2,s clrb clra std 23,s L032d ldd 23,s cmpd #2 bgt L0359 leax D004a,y tfr x,d addd 23,s pshs d ldd 25,s leax D0176,y ldb d,x stb [,s++] ldd 23,s addd #1 std 23,s subd #1 bra L032d L0359 leax 3,s tfr x,d addd 32,s tfr d,x clr ,x ldd D0016,y lbne L03f2 leax 3,s pshs x leax D004d,y pshs x leax L1546,pcr tfr x,d lbsr L1b37 leas 4,s ldd D000a,y pshs d leax L1562,pcr tfr x,d lbsr L1b37 leas 2,s ldd D0006,y cmpd #1 bne L03a1 leax L1581,pcr tfr x,d lbsr L1b37 bra L03b0 L03a1 ldd D0006,y pshs d leax L1597,pcr tfr x,d lbsr L1b37 leas 2,s L03b0 leax D0036,y pshs x leax D004a,y tfr x,d lbsr L0750 leas 2,s leax D0036,y pshs x leax L15af,pcr tfr x,d lbsr L1b37 leas 2,s leax D0036,y pshs x leax D0176,y tfr x,d addd #8 lbsr L0750 leas 2,s leax D0036,y pshs x leax L15ca,pcr tfr x,d lbsr L1b37 leas 2,s L03f2 leax 3,s tfr x,d lbsr L1b3a cmpd #-1 bne L0411 leax L15f3,pcr pshs x ldd D000e lbsr L1b28 leas 2,s ldd D0002 lbsr L1b2b L0411 ldd D0016,y lbne L0487 ldd #4096 lbsr L1b3d std D0276,y cmpd #0 beq L043d ldd D0010,y beq L0454 ldd #4096 lbsr L1b3d std D0278,y cmpd #0 bne L0454 L043d ldd #4 pshs d leax L1618,pcr pshs x ldd D000e lbsr L1b28 leas 4,s clrb clra lbsr L1b2b L0454 clrb clra pshs d leax D0002,y pshs x leax D006e,y pshs x ldd D0276,y lbsr L1199 leas 6,s ldd D0010,y beq L0487 ldd #1 pshs d leax D0004,y pshs x leax D00aa,y pshs x ldd D0278,y lbsr L1199 leas 6,s L0487 leax D0176,y tfr x,d addd #4 pshs d ldb #2 addb [,s++] clra std 27,s leax D0176,y ldb 5,x beq L04ab ldd 27,s addd #1 std 27,s L04ab clrb clra pshs d ldd #$0013 pshs d leax D0176,y tfr x,d addd #8 pshs d ldd ,y lbsr L1b40 leas 6,s ldd #2 pshs d leax 25,s pshs x ldd ,y lbsr L1b43 leas 4,s cmpd #-1 bne L04e2 ldd D0002 lbsr L1b2b L04e2 ldd 27,s addd 23,s std 27,s ldd D0016,y bne L0500 ldd 27,s pshs d leax L164a,pcr tfr x,d lbsr L1b37 leas 2,s L0500 clrb clra std D002e,y leax 3,s stx D0106,y ldd D0016,y bne L0534 ldd 27,s pshs d leax 31,s pshs x clrb clra pshs d ldd D0002,y pshs d ldd D0276,y lbsr L0bff leas 8,s leax L1688,pcr tfr x,d lbsr L1b37 L0534 leax 3,s tfr x,d lbsr L07ab ldd D0016,y lbne L0612 leax L16ae,pcr tfr x,d lbsr L1b37 lbsr L1043 ldd D0010,y beq L0573 ldd D002a,y bne L055d ldd D0026,y beq L0573 L055d ldd #1 std D002e,y leax L16cf,pcr tfr x,d lbsr L1b37 leax 3,s tfr x,d lbsr L07ab L0573 leax L16f6,pcr tfr x,d lbsr L1b37 ldd D002a,y lbeq L05ae ldd D002a,y pshs d leax L16f8,pcr tfr x,d lbsr L1b37 leas 2,s ldd D002a,y cmpd #1 beq L05a5 leax L171f,pcr tfr x,d lbsr L1b37 L05a5 leax L1721,pcr tfr x,d lbsr L1b37 L05ae ldd D0026,y lbeq L05e0 ldd D0026,y pshs d leax L1723,pcr tfr x,d lbsr L1b37 leas 2,s ldd D0026,y cmpd #1 beq L05d7 leax L172e,pcr tfr x,d lbsr L1b37 L05d7 leax L1730,pcr tfr x,d lbsr L1b37 L05e0 ldd D0028,y lbeq L0612 ldd D0028,y pshs d leax L175e,pcr tfr x,d lbsr L1b37 leas 2,s ldd D0028,y cmpd #1 beq L0609 leax L1769,pcr tfr x,d lbsr L1b37 L0609 leax L176b,pcr tfr x,d lbsr L1b37 L0612 ldd D002c,y lbeq L0644 ldd D002c,y pshs d leax L1799,pcr tfr x,d lbsr L1b37 leas 2,s ldd D002c,y cmpd #1 beq L063b leax L17b7,pcr tfr x,d lbsr L1b37 L063b leax L17b9,pcr tfr x,d lbsr L1b37 L0644 ldd D0016,y lbne L067c leax D004d,y pshs x leax L17bb,pcr tfr x,d lbsr L1b37 leas 2,s ldd D002c,y bne L066a ldd D002a,y bne L066a ldd D0026,y beq L0673 L066a leax L17d4,pcr tfr x,d lbsr L1b37 L0673 leax L17d9,pcr tfr x,d lbsr L1b37 L067c ldd D0024,y cmpd #1 bne L0690 leax L17e1,pcr tfr x,d lbsr L1b37 bra L06a0 L0690 ldd D0024,y pshs d leax L17ee,pcr tfr x,d lbsr L1b37 leas 2,s L06a0 ldd D0022,y cmpd #1 bne L06b4 leax L17fe,pcr tfr x,d lbsr L1b37 bra L06c4 L06b4 ldd D0022,y pshs d leax L1806,pcr tfr x,d lbsr L1b37 leas 2,s L06c4 ldd D0016,y lbne L072c clrb clra pshs d ldd #-1 pshs d clrb clra pshs d ldd D0002,y pshs d ldd D0276,y lbsr L12f2 leas 8,s ldd D0002,y lbsr L1b46 ldd D0014,y bne L06f7 leax D006e,y tfr x,d lbsr L1b49 L06f7 ldd D0010,y lbeq L072c clrb clra pshs d ldd #-1 pshs d ldd #1 pshs d ldd D0004,y pshs d ldd D0278,y lbsr L12f2 leas 8,s ldd D0004,y lbsr L1b46 ldd D0014,y bne L072c leax D00aa,y tfr x,d lbsr L1b49 L072c clrb clra lbsr L1b2b leas 36,s rts L0735 leax L1810,pcr pshs x ldd D000e lbsr L1b28 leas 2,s leax L18e2,pcr pshs x ldd D000e lbsr L1b28 leas 2,s rts L0750 pshs d ldx ,s ldb 2,x clra pshs d ldx 2,s ldb 1,x clra tfr b,a clrb addd ,s++ pshs d ldb [2,s] clra pshs d leax L1916,pcr pshs x ldd 10,s lbsr L1b4c leas 6,s leas 2,s rts L077b pshs d ldd #$0100 pshs d ldd 2,s pshs d ldd ,y lbsr L1b43 leas 4,s cmpd #$0100 beq L07a5 leax L1920,pcr pshs x ldd D000e lbsr L1b28 leas 2,s ldd D0002 lbsr L1b2b L07a5 ldd #$0100 leas 2,s rts L07ab pshs d leas -42,s ldd D0018,y cmpd #$0027 blt L07d0 ldd #$0027 pshs d leax L193a,pcr pshs x ldd D000e lbsr L1b28 leas 4,s clrb clra lbsr L1b2b L07d0 ldd D0018,y addd #1 std D0018,y subd #1 ldd D000e,y lbeq L081b ldd #1 std ,s L07e7 ldd D0018,y subd #1 pshs d ldd 2,s cmpd ,s++ bge L080b leax L1964,pcr tfr x,d lbsr L1b37 ldd ,s addd #1 std ,s subd #1 bra L07e7 L080b ldd 42,s pshs d leax L1967,pcr tfr x,d lbsr L1b37 leas 2,s L081b ldd D002e,y bne L082c ldd D0024,y addd #1 std D0024,y subd #1 L082c ldd 42,s lbsr L1b3a cmpd #-1 bne L084f ldd 42,s pshs d leax L196a,pcr pshs x ldd D000e lbsr L1b28 leas 4,s ldd D0002 lbsr L1b2b L084f lbsr L1493 std 4,s ldd D0034,y subd #1 std D0034,y addd #1 ldd #1 pshs d ldd #$0040 pshs d clrb clra pshs d ldd 10,s lbsr L1b34 leas 6,s L0875 ldd #$0020 pshs d leax D00e6,y pshs x ldd 8,s lbsr L1b43 leas 4,s std ,s cmpd #-1 lbeq L09ba ldb D00e6,y beq L0875 ldd D0022,y addd #1 std D0022,y subd #1 leax D00e6,y pshs x leax D0156,y tfr x,d lbsr L0bd0 leas 2,s ldd D0016,y lbne L090e ldd D002e,y cmpd #1 bne L08e7 ldd D0006,y pshs d leax D00e6,y tfr x,d addd #$001d pshs d ldd #1 pshs d ldd D0004,y pshs d ldd D0278,y lbsr L0bff leas 8,s bra L090e L08e7 ldd D0006,y pshs d leax D00e6,y tfr x,d addd #$001d pshs d clrb clra pshs d ldd D0002,y pshs d ldd D0276,y lbsr L0bff leas 8,s addd #0 lbne L0875 L090e clrb clra pshs d clrb clra pshs d leax D00e6,y tfr x,d addd #$001d pshs d ldd ,y lbsr L1b40 leas 6,s leax D0176,y tfr x,d lbsr L077b leax D0176,y tfr x,d lbsr L09fa addd #0 lbeq L0875 leax D00e6,y pshs x leax 8,s tfr x,d lbsr L0bd0 leas 2,s ldd D0018,y lslb rola leax D0106,y pshs x addd ,s++ pshs d leax 8,s stx [,s++] ldd D0034,y lbne L09b0 leax 40,s pshs x leax 40,s pshs x ldd 8,s lbsr L1b4f leas 4,s ldd 4,s lbsr L1b46 ldd D0034,y addd #1 std D0034,y subd #1 leax 6,s tfr x,d lbsr L07ab lbsr L1493 std 4,s clrb clra pshs d ldd 42,s pshs d ldd 42,s pshs d ldd 10,s lbsr L1b34 leas 6,s lbra L0875 L09b0 leax 6,s tfr x,d lbsr L07ab lbra L0875 L09ba ldd 4,s lbsr L1b46 cmpd #-1 bne L09ca ldd D0002 lbsr L1b2b L09ca ldd D0034,y addd #1 std D0034,y subd #1 leax L1988,pcr tfr x,d lbsr L1b3a cmpd #-1 bne L09ea ldd D0002 lbsr L1b2b L09ea ldd D0018,y subd #1 std D0018,y addd #1 leas 44,s rts L09fa pshs d leas -7,s clrb clra std 2,s ldd #$0010 std ,s L0a07 ldd ,s addd #2 ldx 7,s ldb d,x tstb lbne L0a2d ldd ,s addd #1 ldx 7,s ldb d,x tstb lbne L0a2d ldd ,s ldx 7,s ldb d,x lbeq L0ad9 L0a2d ldd ,s cmpd #$0100 lbge L0ad9 ldd ,s addd #4 ldx 7,s ldb d,x clra pshs d ldd 2,s addd #3 ldx 9,s ldb d,x clra tfr b,a clrb addd ,s++ pshs d leax 6,s pshs x ldd 11,s addd 4,s lbsr L1b52 leas 4,s leax D004a,y pshs x ldd 9,s addd 2,s lbsr L1b55 leas 2,s cmpd #0 lbgt L0a8d leax D004a,y pshs x leax 6,s tfr x,d lbsr L1b55 leas 2,s cmpd #0 lble L0acf L0a8d ldd D002e,y lbne L0ac8 leax D0036,y pshs x ldd 9,s addd 2,s lbsr L0750 leas 2,s leax D0040,y pshs x leax 6,s tfr x,d lbsr L0750 leas 2,s leax D0040,y pshs x leax D0036,y pshs x leax L198b,pcr tfr x,d lbsr L1b37 leas 4,s lbsr L141d L0ac8 ldd #-1 std 2,s bra L0ad9 L0acf ldd ,s addd #5 std ,s lbra L0a07 L0ad9 ldd 2,s beq L0af3 ldd D002e,y bne L0aee ldd D002c,y addd #1 std D002c,y subd #1 L0aee clrb clra leas 9,s rts L0af3 ldd D0016,y lbne L0bb8 ldd #$0010 std ,s L0aff ldd ,s addd #2 ldx 7,s ldb d,x tstb lbne L0b25 ldd ,s addd #1 ldx 7,s ldb d,x tstb lbne L0b25 ldd ,s ldx 7,s ldb d,x lbeq L0bb8 L0b25 ldd ,s cmpd #$0100 lbge L0bb8 ldd D002e,y lbne L0b79 ldd ,s addd #4 ldx 7,s ldb d,x clra pshs d ldd 2,s addd #3 ldx 9,s ldb d,x clra tfr b,a clrb addd ,s++ pshs d ldd 9,s addd 2,s pshs d clrb clra pshs d ldd D0002,y pshs d ldd D0276,y lbsr L0bff leas 8,s addd #0 lbeq L0bae ldd #-1 std 2,s lbra L0bae L0b79 ldd ,s addd #4 ldx 7,s ldb d,x clra pshs d ldd 2,s addd #3 ldx 9,s ldb d,x clra tfr b,a clrb addd ,s++ pshs d ldd 9,s addd 2,s pshs d ldd #1 pshs d ldd D0004,y pshs d ldd D0278,y lbsr L0bff leas 8,s L0bae ldd ,s addd #5 std ,s lbra L0aff L0bb8 ldd 2,s beq L0bc1 clrb clra leas 9,s rts L0bc1 ldb [7,s] andb #$80 subb #0 beq L0bcc ldb #1 L0bcc clra leas 9,s rts L0bd0 pshs d L0bd2 ldd ,s addd #1 std ,s subd #1 pshs d ldx 6,s ldb ,x+ stx 6,s stb [,s++] cmpb #$80 bcs L0bd2 clr [,s] ldd ,s subd #1 std ,s addd #1 ldb [,s] andb #$7f stb [,s] leas 2,s rts L0bff pshs d leas -28,s ldd 38,s anda D0008,y andb D0009,y addd #0 beq L0c2a ldd D0008,y pshs d leax 12,s pshs x ldd 40,s lbsr L1b52 leas 4,s ldd 38,s subd D0008,y std 38,s bra L0c3a L0c2a clrb clra pshs d leax 12,s pshs x ldd 40,s lbsr L1b52 leas 4,s L0c3a leax ,s pshs x leax 12,s tfr x,d lbsr L0750 leas 2,s leax 17,s pshs x leax 17,s pshs x leax 17,s pshs x ldd D0006,y pshs d leax 46,s pshs x leax 20,s tfr x,d lbsr L1b58 leas 10,s ldd D000e,y lbeq L0caa leax ,s pshs x leax 12,s tfr x,d lbsr L0750 leas 2,s ldd 38,s pshs d leax 2,s pshs x leax L19b1,pcr tfr x,d lbsr L1b37 leas 4,s ldd 17,s pshs d ldd 17,s pshs d ldd 17,s pshs d leax L19d3,pcr tfr x,d lbsr L1b37 leas 6,s L0caa ldd 15,s pshs d ldd 15,s pshs d ldd 38,s pshs d ldd 38,s pshs d ldd 36,s lbsr L12f2 leas 8,s addd #0 beq L0cd0 ldd #-1 leas 30,s rts L0cd0 ldd #$0080 ldx 17,s beq L0cde L0cd8 asra rorb leax -1,x bne L0cd8 L0cde stb 27,s ldb 27,s cmpb #$80 lbeq L0d9f L0cea ldb 27,s lbeq L0d7d ldd 38,s lbeq L0d7d ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] andb 27,s tstb beq L0d36 ldd #$0031 pshs d ldd 36,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] andb 29,s clra pshs d ldd 19,s pshs d ldd 19,s lbsr L0f27 leas 6,s L0d36 ldd D002e,y bne L0d60 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ pshs d ldd 36,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] orb 29,s ldx [,s++] stb ,x L0d60 ldb 27,s lda #1 beq L0d6b L0d67 lsrb deca bne L0d67 L0d6b stb 27,s ldd 38,s subd #1 std 38,s addd #1 lbra L0cea L0d7d ldd 15,s addd #1 std 15,s subd #1 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,u ldd ,u addd #1 std ,u subd #1 L0d9f ldd 38,s cmpd #8 lblo L0e61 ldd 15,s cmpd #$00ff lble L0de3 clrb clra std 15,s ldd 15,s pshs d ldd 15,s addd #1 std 15,s pshs d ldd 38,s pshs d ldd 38,s pshs d ldd 36,s lbsr L12f2 leas 8,s addd #0 beq L0de3 ldd #-1 leas 30,s rts L0de3 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] beq L0e1a ldd #$0031 pshs d ldd 36,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] clra pshs d ldd 19,s pshs d ldd 19,s lbsr L0f27 leas 6,s L0e1a ldd D002e,y bne L0e33 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ pshs d ldb #255 ldx [,s++] stb ,x L0e33 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,u ldd ,u addd #1 std ,u subd #1 ldd 15,s addd #1 std 15,s subd #1 ldd 38,s subd #8 std 38,s lbra L0d9f L0e61 ldd 38,s lbeq L0f21 ldd #8 subd 38,s pshs d ldd #$00ff ldx ,s++ beq L0e7d L0e77 lslb rola leax -1,x bne L0e77 L0e7d stb 27,s ldd 15,s cmpd #$00ff lble L0eb9 clrb clra std 15,s ldd 15,s pshs d ldd 15,s addd #1 std 15,s pshs d ldd 38,s pshs d ldd 38,s pshs d ldd 36,s lbsr L12f2 leas 8,s addd #0 beq L0eb9 ldd #-1 leas 30,s rts L0eb9 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] andb 27,s tstb beq L0ef7 ldd #$0031 pshs d ldd 36,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] andb 29,s clra pshs d ldd 19,s pshs d ldd 19,s lbsr L0f27 leas 6,s L0ef7 ldd D002e,y bne L0f21 ldd 34,s lslb rola leax D001e,y pshs x addd ,s++ pshs d ldd 36,s lslb rola leax D001e,y pshs x addd ,s++ tfr d,x ldb [,x] orb 29,s ldx [,s++] stb ,x L0f21 clrb clra leas 30,s rts L0f27 pshs d leas -8,s ldd 14,s stb 4,s clrb clra std ,s L0f33 ldb 4,s lbeq L1040 ldb 4,s andb #$80 tstb lbeq L1027 ldd ,s pshs d ldd 14,s pshs d ldd 12,s pshs d ldd D0006,y pshs d leax 13,s tfr x,d lbsr L1b5b leas 8,s leax D0036,y pshs x leax 7,s tfr x,d lbsr L0750 leas 2,s ldd D002e,y lbne L0fee ldd 16,s cmpd #$0031 bne L0f98 leax D0036,y pshs x leax L19f7,pcr tfr x,d lbsr L1b37 leas 2,s ldd D002a,y addd #1 std D002a,y subd #1 lbra L0ffe L0f98 ldd 16,s cmpd #$0032 bne L0fc0 leax D0036,y pshs x leax L1a1c,pcr tfr x,d lbsr L1b37 leas 2,s ldd D0026,y addd #1 std D0026,y subd #1 lbra L0ffe L0fc0 ldd 16,s cmpd #$0033 lbne L0ffe ldd D0012,y beq L0fe0 leax D0036,y pshs x leax L1a54,pcr tfr x,d lbsr L1b37 leas 2,s L0fe0 ldd D0028,y addd #1 std D0028,y subd #1 bra L0ffe L0fee leax D0036,y pshs x leax L1a8c,pcr tfr x,d lbsr L1b37 leas 2,s L0ffe ldd D0010,y beq L1027 ldd D002e,y bne L1024 ldd D0006,y pshs d leax 7,s pshs x ldd #1 pshs d ldd D0004,y pshs d ldd D0278,y lbsr L0bff leas 8,s bra L1027 L1024 lbsr L141d L1027 ldd ,s addd #1 std ,s subd #1 ldb 4,s lda #1 beq L103b L1037 lslb deca bne L1037 L103b stb 4,s lbra L0f33 L1040 leas 10,s rts L1043 leas -10,s clrb clra pshs d ldd #$0100 pshs d clrb clra pshs d ldd ,y lbsr L1b34 leas 6,s clrb clra pshs d clrb clra pshs d clrb clra pshs d ldd D0002,y pshs d ldd D0276,y lbsr L12f2 leas 8,s leax D0176,y tfr x,d lbsr L077b clrb clra std 4,s std 6,s clrb clra std ,s L1085 ldd ,s cmpd D000a,y lbhs L1196 leax D0176,y tfr x,d addd 6,s pshs d ldb [D001e,y] eorb [,s++] stb 8,s tstb lbeq L1135 ldd ,s addd #1 cmpd D000a,y bne L10d2 ldd D000c,y anda #0 andb #7 pshs d ldd #8 subd ,s++ pshs d ldd #$00ff ldx ,s++ beq L10ca L10c4 lslb rola leax -1,x bne L10c4 L10ca pshs b ldb 9,s andb ,s+ stb 8,s L10d2 leax D0176,y tfr x,d addd 6,s pshs d ldb 10,s andb [,s++] stb 9,s tstb beq L1108 ldd #$0033 pshs d ldb 11,s clra pshs d ldd 8,s pshs d ldd #$0100 lbsr L1b6a pshs d ldd 10,s tfr a,b sex addd D001a,y lbsr L0f27 leas 6,s L1108 ldb 8,s andb [D001e,y] stb 9,s tstb beq L1135 ldd #$0032 pshs d ldb 11,s clra pshs d ldd 8,s pshs d ldd #$0100 lbsr L1b6a pshs d ldd 10,s tfr a,b sex addd D001a,y lbsr L0f27 leas 6,s L1135 ldd D001e,y addd #1 std D001e,y subd #1 ldd 4,s addd #1 std 4,s cmpd #4096 blt L116f clrb clra std 4,s ldd 4,s pshs d ldd D001a,y addd #$0010 pshs d clrb clra pshs d ldd D0002,y pshs d ldd D0276,y lbsr L12f2 leas 8,s L116f ldd 6,s addd #1 std 6,s cmpd #$0100 blt L1189 clrb clra std 6,s leax D0176,y tfr x,d lbsr L077b L1189 ldd ,s addd #1 std ,s subd #1 lbra L1085 L1196 leas 10,s rts L1199 pshs d leas -24,s ldd 32,s pshs d lbsr L1b5e pshs d leax L1aa1,pcr pshs x leax 10,s tfr x,d lbsr L1b4c leas 6,s leax 4,s pshs x ldd 30,s lbsr L1462 leas 2,s ldb [28,s] cmpb #$2f bne L11e0 ldd #3 pshs d ldd 30,s lbsr L1b61 leas 2,s std [30,s] cmpd #-1 bne L11f7 L11e0 ldd 28,s pshs d leax L1aaf,pcr pshs x ldd D000e lbsr L1b28 leas 4,s ldd D0002 lbsr L1b2b L11f7 clrb clra std ,s L11fb ldd ,s cmpd #4096 bge L1216 ldd ,s addd #1 std ,s subd #1 addd 24,s tfr d,x clr ,x bra L11fb L1216 ldd D000a,y tfr a,b clra lsra rorb lsra rorb lsra rorb lsra rorb std 2,s ldd D000a,y pshs d ldd #4096 lbsr L1b6d addd #0 beq L123e ldd 2,s addd #1 std 2,s subd #1 L123e clrb clra pshs d ldd 4,s tfr b,a clrb lslb rola lslb rola lslb rola lslb rola subd #1 pshs d clrb clra pshs d ldd [36,s] lbsr L1b34 leas 6,s ldd #1 pshs d ldd 26,s pshs d ldd [34,s] lbsr L1b64 leas 4,s cmpd #-1 bne L127d ldd D0002 lbsr L1b2b L127d clrb clra pshs d clrb clra pshs d clrb clra pshs d ldd [36,s] lbsr L1b34 leas 6,s ldd #1 std ,s L1296 ldd ,s cmpd 2,s lbgt L12c9 ldd #4096 pshs d ldd 26,s pshs d ldd [34,s] lbsr L1b64 leas 4,s cmpd #-1 bne L12bc ldd D0002 lbsr L1b2b L12bc ldd ,s addd #1 std ,s subd #1 lbra L1296 L12c9 ldd 32,s lslb rola leax D001a,y pshs x addd ,s++ pshs d clrb clra std [,s++] ldd 32,s lslb rola leax D001e,y pshs x addd ,s++ pshs d ldd 26,s std [,s++] leas 26,s rts L12f2 pshs d ldd 8,s cmpd D0030,y blt L131b ldd 10,s cmpd D0032,y blt L131b ldd D002e,y bne L1315 leax L1ad2,pcr tfr x,d lbsr L1b37 lbsr L141d L1315 ldd #-1 leas 2,s rts L131b ldd 6,s lslb rola leax D001a,y pshs x addd ,s++ pshs d ldd 10,s cmpd [,s++] lblt L1351 ldd 6,s lslb rola leax D001a,y pshs x addd ,s++ tfr d,x ldd ,x addd #$0010 subd #1 pshs d ldd 10,s cmpd ,s++ lble L13f8 L1351 clrb clra pshs d ldd 8,s lslb rola leax D001a,y pshs x addd ,s++ tfr d,x ldd ,x tfr b,a clrb pshs d clrb clra pshs d ldd 10,s lbsr L1b34 leas 6,s ldd #4096 pshs d ldd 2,s pshs d ldd 8,s lbsr L1b64 leas 4,s cmpd #-1 bne L138f ldd D0002 lbsr L1b2b L138f ldd 6,s lslb rola leax D001a,y pshs x addd ,s++ pshs d ldd 10,s asra rorb asra rorb asra rorb asra rorb lslb rola lslb rola lslb rola lslb rola std [,s++] ldd 8,s cmpd #-1 lbeq L13f8 clrb clra pshs d ldd 8,s lslb rola leax D001a,y pshs x addd ,s++ tfr d,x ldd ,x tfr b,a clrb pshs d clrb clra pshs d ldd 10,s lbsr L1b34 leas 6,s ldd #4096 pshs d ldd 2,s pshs d ldd 8,s lbsr L1b43 leas 4,s cmpd #-1 bne L13f8 ldd D0002 lbsr L1b2b L13f8 ldd 6,s lslb rola leax D001e,y pshs x addd ,s++ pshs d ldd 10,s pshs d ldd #$0010 lbsr L1b6a tfr b,a clrb addd 2,s addd 12,s std [,s++] clrb clra leas 2,s rts L141d leas -2,s clrb clra std ,s L1423 ldd ,s cmpd D0018,y bge L144e ldd ,s lslb rola leax D0106,y ldd d,x pshs d leax L1af5,pcr tfr x,d lbsr L1b37 leas 2,s ldd ,s addd #1 std ,s subd #1 bra L1423 L144e leax D0156,y pshs x leax L1af9,pcr tfr x,d lbsr L1b37 leas 2,s leas 2,s rts L1462 pshs d leas -4,s L1466 ldx 4,s ldb ,x+ stx 4,s tstb bne L1466 ldd 4,s subd #1 std 4,s L1476 ldd 4,s addd #1 std 4,s subd #1 pshs d ldb [10,s] stb [,s++] ldx 8,s ldb ,x+ stx 8,s tstb bne L1476 leas 6,s rts L1493 leas -2,s ldd #$0081 pshs d leax L1afd,pcr tfr x,d lbsr L1b31 leas 2,s std ,s cmpd #-1 bne L14bf leax L1aff,pcr pshs x ldd D000e lbsr L1b28 leas 2,s ldd D0002 lbsr L1b2b L14bf ldd ,s leas 2,s rts L14c4 ble L150a fcb $30 neg D002f L14c8 equ *-1 lsra fcb $30 neg D0064 L14cc equ *-1 com 8,s fcb $65 com 11,s abx bra L1502 asr 15648 fcb $72 fcb $65 fcb $71 fcb $75 rol -14,s fcb $65 com $2070 fcb $61 lsr $686c rol -13,s lsr $2061 fcb $72 asr -11,s tst 5,s jmp -12,s dec D0000 L14f4 lsr 3,s asl 5,s com 11,s abx bra L1566 inc 12,s fcb $65 asr 1,s L1502 fcb $6c bra L1574 neg 29801 clr 14,s L150a bra L1533 bcs L1571 beq L151a neg D0064 L1511 equ *-1 com 8,s fcb $65 com 11,s abx bra L1588 L151a fcb $6f bra L1581 fcb $65 ror $6963 fcb $65 bra L1597 neg $6563 rol 6,s rol 5,s lsr 10,x neg D0064 L152e equ *-1 com 8,s fcb $65 com 11,s L1533 equ *-1 abx bra L159a fcb $61 jmp 14,s clr -12,s bra L15ad neg $656e bra L1568 com $0a00 L1546 rorb clr 12,s fcb $75 tst 5,s bra L157b bra L1577 bcs L15c5 beq L1574 clr 14,s bra L15bc fcb $65 ror $6963 fcb $65 bra L1584 com $0a00 L1562 bcc L1589 leax Dfff4,y L1566 asl $2062 L1568 equ *-1 rol 29797 com $2069 fcb $6e bra L15d3 L1571 equ *-1 inc 12,s L1574 clr 3,s fcb $61 L1577 lsr $696f fcb $6e L157b bra L15ea fcb $61 neg $0a00 L1581 fcb $31 bra L15f7 L1584 fcb $65 com -12,s clr -14,s L1588 equ *-1 L1589 bra L15fb fcb $65 fcb $72 bra L15f2 inc -11,s com 29797 fcb $72 dec D0000 L1597 bcs L15fd bra L160e L159a equ *-1 fcb $65 com -12,s clr -14,s com $2070 fcb $65 fcb $72 bra L160a inc -11,s com 29797 fcb $72 L15ad dec D0000 L15af bcs L1624 bra L1627 clr -12,s fcb $61 fcb $6c bra L162c fcb $65 com -12,s L15bc clr -14,s com $206f fcb $6e bra L1631 fcb $65 L15c5 lsr 9,s fcb $61 dec D0000 L15ca comb fcb $65 com -12,s clr -14,s bra L15f7 com $2069 L15d3 equ *-2 com $2073 lsr $6172 lsr $206f fcb $66 bra L1653 clr 15,s lsr $2064 rol -14,s fcb $65 com -12,s L15ea equ *-1 clr -14,s rol $2046 lsra dec D0000 L15f2 equ *-1 L15f3 lsr 3,s asl 5,s L15f7 com 11,s abx bra L165f L15fb equ *-1 fcb $61 L15fd jmp 14,s clr -12,s bra L1666 asl 4,s bra L167b fcb $6f bra L167c L160a clr 15,s lsr $2064 L160e equ *-1 rol -14,s fcb $65 com -12,s clr -14,s rol >$004e L1618 equ *-1 fcb $6f bra L1689 fcb $65 tst 15,s fcb $72 rol $2061 ror $6169 L1624 equ *-2 inc 1,s L1627 equ *-1 fcb $62 inc 5,s bra L1693 L162c equ *-1 clr -14,s bra L1693 L1631 rol -12,s tst 1,s neg $2062 fcb $75 ror 6,s fcb $65 fcb $72 bra L1667 bcs L16a5 fcb $4b bra L16b6 fcb $65 fcb $71 bgt L1671 dec D0000 L164a bcc L1671 leax Dfff4,y asl $2073 fcb $65 com -12,s L1653 equ *-1 clr -14,s com $2075 com $6564 bra L16c4 clr -14,s L165f equ *-1 bra L16cb lsr D000c,y bra L16c7 L1666 inc 12,s L1667 equ *-1 clr 3,s fcb $61 lsr $696f fcb $6e bra L16de L1671 fcb $61 neg $2061 jmp 4,s bra L16eb clr 15,s L167b lsr $2064 L167c equ *-2 rol -14,s fcb $65 com -12,s clr -14,s rol $0a00 L1688 fcb $42 L1689 fcb $75 rol 12,s lsr 9,s jmp 7,s bra L16f3 inc 12,s L1693 equ *-1 clr 3,s fcb $61 lsr $696f fcb $6e bra L170a fcb $61 neg $2077 clr -14,s fcb $6b bra L170c L16a5 equ *-1 rol 12,s fcb $65 bgt L16d9 bgt L16b7 neg D0043 L16ae equ *-1 asl 5,s com 11,s rol 14,s fcb $67 L16b6 bra L1719 L16b7 equ *-1 inc 12,s clr 3,s fcb $61 lsr $696f fcb $6e bra L1730 fcb $61 L16c4 neg $2066 L16c7 rol 12,s fcb $65 bgt L16fa L16cb equ *-1 bgt L16d8 neg D000a L16cf equ *-1 negb fcb $61 lsr $686c rol -13,s lsr 29472 L16d8 equ *-2 L16d9 equ *-1 ror 15,s fcb $72 bra L1750 L16de equ *-1 fcb $75 fcb $65 com 29801 clr 14,s fcb $61 fcb $62 inc 5,s bra L174f L16eb equ *-1 inc -11,s com 29797 fcb $72 com 14858 L16f3 equ *-2 neg D000a L16f6 equ *-1 neg D0025 L16f8 equ *-1 fcb $64 L16fa bra L176c fcb $72 fcb $65 ror $696f fcb $75 com $6c79 bra L1768 inc 12,s clr 3,s L170a equ *-1 fcb $61 L170c lsr $6564 bra L1774 inc -11,s com 29797 fcb $72 com $2066 L1719 equ *-1 clr -11,s jmp 4,s neg D0073 L171f equ *-1 neg D000a L1721 equ *-1 neg D0025 L1723 equ *-1 fcb $64 bra L178a inc -11,s com 29797 fcb $72 neg D0073 L172e equ *-1 neg D0020 L1730 equ *-1 rol 14,s bra L179b rol 12,s fcb $65 bra L17ad lsr 29301 com -12,s fcb $75 fcb $72 fcb $65 bra L17a6 fcb $75 lsr $206e clr -12,s bra L17b5 fcb $6e bra L17b0 L174f inc 12,s L1750 equ *-1 clr 3,s fcb $61 lsr $696f fcb $6e bra L17c7 fcb $61 neg $0a00 L175e bcs L17c4 bra L17c5 inc -11,s com 29797 fcb $72 L1768 neg D0073 L1769 equ *-1 neg D0020 L176b equ *-1 L176c rol 14,s bra L17d1 inc 12,s clr 3,s L1774 fcb $61 lsr $696f fcb $6e bra L17e8 fcb $61 neg $2062 fcb $75 lsr $206e clr -12,s bra L17f0 fcb $6e bra L17f0 L178a rol 12,s fcb $65 bra L1802 lsr 29301 com -12,s fcb $75 fcb $72 fcb $65 dec D0000 L1799 bcs L17ff L179b bra L17ff fcb $61 fcb $64 bra L1807 rol 12,s fcb $65 bra L180a L17a6 fcb $65 com $6372 rol -16,s lsr $6f72 L17ad equ *-2 bra L1824 L17b0 equ *-1 fcb $65 com -12,s clr -14,s L17b5 equ *-1 neg D0073 L17b7 equ *-1 neg D000a L17b9 equ *-1 neg D000a L17bb equ *-1 beq L17e3 com $2720 ror 9,s inc 5,s L17c4 equ *-1 L17c5 bra L183a L17c7 lsr 29301 com -12,s fcb $75 fcb $72 fcb $65 bra L183a L17d1 com $2000 L17d4 jmp 15,s lsr $2000 L17d9 rol 14,s lsr $6163 lsr $0a00 L17e1 fcb $31 bra L1848 L17e3 equ *-1 rol -14,s fcb $65 com -12,s L17e8 equ *-1 clr -14,s rol $0a00 L17ee bcs L1854 L17f0 bra L1856 rol -14,s fcb $65 com -12,s clr -14,s rol 5,s com $0a00 L17fe fcb $31 L17ff bra L1867 rol 12,s L1802 equ *-1 fcb $65 dec D0000 L1806 bcs L186c L1807 equ *-1 bra L1870 L180a rol 12,s fcb $65 com $0a00 L1810 fcb $55 com $6167 fcb $65 abx bra L187c com 8,s fcb $65 com 11,s bra L187a blt L1890 neg 29811 L1824 tstb bra L188b fcb $65 ror $6963 fcb $65 clrb jmp 1,s tst 5,s bra L183d bra L1855 blt L18ae bra L1876 bra L18ab L183a equ *-1 fcb $61 lsr $686c L183d equ *-2 rol -13,s lsr $2074 fcb $6f bra L18ab rol -14,s L1848 equ *-1 fcb $65 com -12,s clr -14,s rol $2066 clr -14,s bra L18cc L1854 equ *-1 L1855 clr -14,s L1856 equ *-1 fcb $6b bra L18c0 rol 12,s fcb $65 com $0a20 bra L188f neg $203d bra L18d7 L1867 fcb $72 rol 14,s lsr $2070 L186c equ *-1 fcb $61 lsr $686c L1870 equ *-1 rol -13,s lsr 29472 L1876 ror 15,s fcb $72 bra L18ec L187a equ *-1 fcb $75 L187c fcb $65 com 29801 clr 14,s fcb $61 fcb $62 inc 5,s bra L18eb inc -11,s com 29797 L188b equ *-2 fcb $72 com $0a20 L188f equ *-2 L1890 equ *-1 bra L18c0 fcb $6d bra L18d3 bra L190b fcb $61 ror $6520 fcb $61 inc 12,s clr 3,s fcb $61 lsr $696f fcb $6e bra L1915 fcb $61 neg $2077 L18ab equ *-1 clr -14,s L18ae fcb $6b bra L1917 rol 12,s fcb $65 com $0a20 bra L18e6 fcb $62 bra L18f9 bra L1931 fcb $75 neg 28786 L18c0 equ *-2 fcb $65 com 29472 inc 9,s com 29801 jmp 7,s L18cc equ *-1 bra L193e fcb $66 bra L1947 jmp -11,s L18d3 equ *-1 com $6564 L18d7 bra L193c inc -11,s com 29797 fcb $72 com $0a00 L18e2 bra L1904 blt L1959 L18e6 bra L1925 bra L194e rol -13,s L18eb equ *-1 L18ec neg $6c61 rol $2063 clr -11,s jmp -12,s bra L1967 fcb $66 L18f9 bra L1961 rol 12,s fcb $65 com $2061 jmp 4,s bra L1969 L1904 equ *-1 rol -14,s fcb $65 com -12,s clr -14,s L190b equ *-1 rol 5,s com $206f jmp 12,s rol $0a00 L1915 equ *-1 L1916 bcc L193d L1917 equ *-1 leax Dfff2,y asl $2530 pshs dp,x,y,u neg D0064 L1920 equ *-1 com 8,s fcb $65 com 11,s L1925 equ *-1 abx bra L198f fcb $61 lsr $616c bra L19a1 fcb $65 fcb $61 L1931 fcb $64 bra L1999 fcb $72 fcb $72 clr -14,s dec D0000 L193a lsr 3,s L193c asl 5,s L193d equ *-1 L193e com 11,s abx bra L19a7 rol -14,s fcb $65 com -12,s L1947 equ *-1 clr -14,s rol 5,s com $206e L194e equ *-1 fcb $65 com 29797 fcb $64 bra L19ca clr 15,s bra L19be L1959 equ *-1 fcb $65 fcb $65 neg $2028 bcs L19c5 L1961 bvs L196d neg D0020 L1964 equ *-1 bra L1967 L1967 bcs L19dc L1969 neg D0064 L196a equ *-1 com 8,s L196d fcb $65 com 11,s abx bra L19d6 fcb $61 jmp 14,s clr -12,s bra L19dd asl 7,s lsr 9,s fcb $72 bra L19f5 fcb $6f bra L19ab bcs L19f9 beq L1988 L1988 bgt L19b8 neg D002a L198b equ *-1 bpl L19b8 bra L19d2 L198f equ *-1 fcb $61 fcb $64 bra L19da lsra bra L1a0a fcb $65 asr 13,s L1999 equ *-1 fcb $65 jmp -12,s bra L19c7 bcs L1a14 L19a1 blt L19c8 com $2920 ror 15,s L19a7 equ *-1 fcb $72 bra L1a11 L19ab rol 12,s fcb $65 abx bra L19b1 L19b1 blt L19e0 fcb $3e bra L1a29 fcb $65 lsr $6269 L19b8 equ *-2 lsr 29498 bra L1a12 L19be equ *-1 lsr $6172 lsr 15653 L19c5 com $2043 L19c7 equ *-1 L19c8 clr -11,s L19ca jmp -12,s mul bcc L19f4 leax Dfff4,y asl >$0020 L19d2 equ *-2 L19d3 equ *-1 comb fcb $65 L19d6 com -12,s clr -14,s L19da mul bcs L1a0d L19dc equ *-1 L19dd leas -8,s bra L1a23 L19e0 equ *-1 rol 29797 mul bcs L1a17 leas -8,s bra L1a2d rol -12,s mul bcs L1a21 asl $203c blt L1a22 L19f4 equ *-1 L19f5 dec D0000 L19f7 coma inc -11,s L19f9 equ *-1 com 29797 fcb $72 bra L1a25 com $2077 fcb $61 com $2070 fcb $72 fcb $65 ror $696f L1a0a equ *-2 fcb $75 L1a0d com $6c79 bra L1a73 L1a11 equ *-1 L1a12 inc 12,s L1a14 clr 3,s fcb $61 L1a17 lsr $6564 dec D0000 L1a1c coma inc -11,s com 29797 L1a21 equ *-1 L1a22 fcb $72 L1a23 bra L1a4a L1a25 com $2069 fcb $6e L1a29 bra L1a91 rol 12,s L1a2d fcb $65 bra L1aa3 lsr 29301 com -12,s fcb $75 fcb $72 fcb $65 bra L1a9c fcb $75 lsr $206e clr -12,s bra L1aab fcb $6e bra L1aa6 inc 12,s clr 3,s fcb $61 L1a4a lsr $696f fcb $6e bra L1abd fcb $61 neg $0a00 L1a54 coma inc -11,s com 29797 fcb $72 bra L1a82 com $2069 fcb $6e bra L1ac4 inc 12,s clr 3,s fcb $61 lsr $696f fcb $6e bra L1adb fcb $61 neg $2062 fcb $75 L1a73 lsr $206e clr -12,s bra L1ae3 fcb $6e bra L1ae3 rol 12,s fcb $65 bra L1af5 L1a82 lsr 29301 com -12,s fcb $75 fcb $72 fcb $65 dec D0000 L1a8c coma inc -11,s com 29797 L1a91 equ *-1 fcb $72 bra L1aba com $2069 fcb $6e bra L1b0b fcb $61 L1a9c lsr $683a bra L1aa1 L1aa1 ble L1b07 L1aa3 com 8,s fcb $65 L1aa6 com 11,s bcs L1ada leas -8,s L1aab equ *-1 bcs L1b12 neg D0064 L1aaf equ *-1 com 8,s fcb $65 com 11,s abx bra L1b1b fcb $61 jmp 14,s L1aba equ *-1 clr -12,s L1abd bra L1b2e neg $656e bra L1b3b L1ac4 clr -14,s fcb $6b ror 9,s inc 5,s bra L1af4 bcs L1b42 beq L1adb neg D002a L1ad2 equ *-1 bpl L1aff bra L1b2a fcb $65 asr 13,s L1ada fcb $65 L1adb jmp -12,s bra L1b4e fcb $75 lsr $206f L1ae3 fcb $66 bra L1b58 fcb $61 jmp 7,s fcb $65 bra L1b55 fcb $6e bra L1b55 rol 12,s fcb $65 abx bra L1af5 L1af4 equ *-1 L1af5 bcs L1b6a ble L1af9 L1af9 bcs L1b6e dec D0000 L1afd bgt L1aff L1aff lsr 3,s asl 5,s com 11,s abx bra L1b6b L1b07 equ *-1 fcb $61 jmp 14,s L1b0b clr -12,s bra L1b7e neg $656e L1b12 bra L1b3b bgt L1b3d bra L1b7c rol -14,s fcb $65 L1b1b com -12,s clr -14,s rol $0a00 L1b22 lbra L2561 L1b25 lbra L252e L1b28 lbra L1c32 L1b2a equ *-1 L1b2b lbra L1c00 L1b2e lbra L257d L1b31 lbra L2790 L1b34 lbra L2840 L1b37 lbra L1c67 L1b3a lbra L26a4 L1b3b equ *-2 L1b3d lbra L238e L1b40 lbra L282f L1b42 equ *-1 L1b43 lbra L27a7 L1b46 lbra L279d L1b49 lbra L2874 L1b4c lbra L1c1b L1b4e equ *-1 L1b4f lbra L2775 L1b52 lbra L2740 L1b55 lbra L2755 L1b58 lbra L26b6 L1b5b lbra L2707 L1b5e lbra L2881 L1b61 lbra L2802 L1b64 lbra L27bc L1b67 lbra L2604 L1b6a lbra L25dc L1b6b equ *-2 L1b6d lbra L25e8 L1b6e equ *-2 L1b70 clrb stb ,u++ L1b73 lda ,x+ cmpa #$0d beq L1b91 bsr L1bf9 beq L1b73 L1b7c equ *-1 leax -1,x L1b7e equ *-1 stx ,u++ inc D0000 L1b83 lda ,x+ cmpa #$0d beq L1b91 bsr L1bf9 bne L1b83 clr -1,x bra L1b73 L1b91 clr ,-x lda D0000 sta D0001 clra clrb pshs d L1b9b tst D0000 beq L1ba7 dec D0000 ldd ,--u pshs d bra L1b9b L1ba7 pshs x leax ,s pshs x leax -2,s pshs x leax ,u L1bb3 clr ,x+ cmpx ,s bcs L1bb3 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 L1c00 L1bf9 cmpa #$20 beq L1bff cmpa #9 L1bff rts L1c00 pshs d L1c02 ldd D0008 beq L1c0d ldd D0008 lbsr L1c15 bra L1c02 L1c0d ldd ,s lbsr L1c18 leas 2,s rts L1c15 lbra L1f66 L1c18 lbra L287e L1c1b pshs d leax 6,s pshs x ldd 6,s pshs d ldd 4,s lbsr L1c2f leas 4,s leas 2,s rts L1c2f lbra L1c94 L1c32 pshs d leas -256,s leax 262,s pshs x ldd 262,s pshs d leax 4,s tfr x,d lbsr L1c61 leas 4,s ldd 256,s pshs d leax 2,s tfr x,d lbsr L1c64 leas 2,s leas 258,s rts L1c61 lbra L1c94 L1c64 lbra L20bf L1c67 pshs d leas -256,s leax 260,s pshs x ldd 258,s pshs d leax 4,s tfr x,d lbsr L1c8e leas 4,s leax ,s tfr x,d lbsr L1c91 leas 258,s rts L1c8e lbra L1c94 L1c91 lbra L205a L1c94 pshs d leas -269,s L1c9a ldx 273,s ldb ,x+ stx 273,s stb ,s tstb lbeq L1ec7 ldb ,s cmpb #$25 beq L1cc7 ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 2,s stb [,s++] bra L1c9a L1cc7 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 L1cef ldd 273,s addd #1 std 273,s ldb #1 stb 7,s L1cef ldb [273,s] clra lbsr L1f54 addd #0 beq L1d15 ldb [273,s] cmpb #$30 bne L1d08 ldb #$30 stb 8,s L1d08 leax 273,s tfr x,d lbsr L1f57 std 2,s bra L1d19 L1d15 clrb clra std 2,s L1d19 ldb [273,s] cmpb #$2e bne L1d3b ldd 273,s addd #1 std 273,s leax 273,s tfr x,d lbsr L1f57 std 4,s ldb #1 stb 6,s L1d3b ldx 273,s ldb ,x+ stx 273,s stb ,s ldb ,s clra lbsr L1f5a cmpb #$64 beq L1d70 cmpb #$75 beq L1d9d cmpb #$78 lbeq L1da3 cmpb #$6f lbeq L1da9 cmpb #$63 lbeq L1dd3 cmpb #$73 lbeq L1df5 lbra L1eb0 L1d70 ldd [275,s] cmpd #0 bge L1d9d 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 L1d9d ldb #$0a stb 1,s bra L1dad L1da3 ldb #$10 stb 1,s bra L1dad L1da9 ldb #8 stb 1,s L1dad ldb 1,s clra pshs d ldx 277,s ldd ,x++ stx 277,s pshs d leax 13,s tfr x,d lbsr L1ed0 leas 4,s clra pshs d ldd 4,s subd ,s++ std 2,s lbra L1e37 L1dd3 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 L1e37 L1df5 ldb 6,s bne L1dfe ldd #$0100 std 4,s L1dfe ldx 275,s ldd ,x++ stx 275,s std 11,s L1e0a ldb [11,s] beq L1e37 ldd 4,s beq L1e37 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 L1e0a L1e37 clr [9,s] leax 13,s stx 9,s ldb 7,s bne L1e68 L1e42 ldd 2,s subd #1 std 2,s addd #1 cmpd #0 ble L1e68 ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 10,s stb [,s++] bra L1e42 L1e68 ldx 9,s ldb ,x+ stx 9,s stb [269,s] tstb beq L1e82 ldd 269,s addd #1 std 269,s bra L1e68 L1e82 ldb 7,s lbeq L1c9a L1e88 ldd 2,s subd #1 std 2,s addd #1 cmpd #0 lble L1c9a ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 10,s stb [,s++] bra L1e88 L1eb0 ldd 269,s addd #1 std 269,s subd #1 pshs d ldb 2,s stb [,s++] lbra L1c9a L1ec7 clr [269,s] leas 271,s rts L1ed0 pshs d leas -3,s ldd [3,s] std ,s ldd 7,s pshs d ldd 11,s lbsr L1f60 stb 2,s ldd [3,s] addd #1 std [3,s] subd #1 pshs d ldb 4,s cmpb #$0a bcc L1efe ldb 4,s addb #$30 bra L1f02 L1efe ldb 4,s addb #$37 L1f02 stb [,s++] L1f04 ldd 7,s pshs d ldd 11,s lbsr L1f63 std 7,s addd #0 beq L1f41 ldd 7,s pshs d ldd 11,s lbsr L1f60 stb 2,s ldd [3,s] addd #1 std [3,s] subd #1 pshs d ldb 4,s cmpb #$0a bcc L1f39 ldb 4,s addb #$30 bra L1f3d L1f39 ldb 4,s addb #$37 L1f3d stb [,s++] bra L1f04 L1f41 ldx [3,s] clr ,x ldd ,s lbsr L1f5d ldd [3,s] subd ,s clra leas 5,s rts L1f54 lbra L2517 L1f57 lbra L201b L1f5a lbra L252e L1f5d lbra L206d L1f60 lbra L25e8 L1f63 lbra L2604 L1f66 pshs d leas -5,s clrb clra std 2,s ldd D0008 std ,s L1f72 ldd ,s lbeq L1fd5 ldd ,s cmpd 5,s lbne L1fc8 ldd 2,s beq L1f94 ldd 2,s addd #8 pshs d ldx 2,s ldd 8,x std [,s++] bra L1f9a L1f94 ldx ,s ldd 8,x std D0008 L1f9a clr 4,s ldd 5,s lbsr L2012 ldx 5,s ldb 7,x clra lbsr L2015 cmpd #-1 bne L1fb3 ldb #1 stb 4,s L1fb3 ldd 5,s lbsr L1fdb ldb 4,s beq L1fc2 ldd #-1 leas 7,s rts L1fc2 ldd #1 leas 7,s rts L1fc8 ldd ,s std 2,s ldx ,s ldd 8,x std ,s lbra L1f72 L1fd5 ldd #-1 leas 7,s rts L1fdb pshs d ldd ,s addd #6 tfr d,x ldb ,x andb #8 tstb beq L1ff2 ldx ,s ldd 4,x lbsr L2018 L1ff2 ldd ,s cmpd D000a beq L2007 ldd ,s cmpd D000c beq L2007 ldd ,s cmpd D000e bne L200a L2007 leas 2,s rts L200a ldd ,s lbsr L2018 leas 2,s rts L2012 lbra L2374 L2015 lbra L279d L2018 lbra L2460 L201b pshs d leas -2,s clrb clra std ,s L2023 ldx [2,s] ldb ,x clra lbsr L2054 addd #0 beq L204f ldx [2,s] ldb ,x+ stx [2,s] clra pshs d ldd 2,s pshs d ldd #$000a lbsr L2057 addd ,s++ subd #$0030 std ,s bra L2023 L204f ldd ,s leas 4,s rts L2054 lbra L2517 L2057 lbra L2599 L205a pshs d ldd D000c pshs d ldd 2,s lbsr L206a leas 2,s leas 2,s rts L206a lbra L20bf L206d pshs d leas -5,s clrb clra std ,s ldd 5,s lbsr L20bc subd #1 std 2,s L207f ldd ,s cmpd 2,s lbge L20b9 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 L207f L20b9 leas 7,s rts L20bc lbra L257d L20bf pshs d leas -263,s ldd 267,s lbsr L21ad ldd 263,s std 1,s leax 7,s stx 3,s L20d6 ldb [1,s] lbeq L216d ldb [1,s] cmpb #$0a lbne L2115 ldb #$0d stb [3,s] ldd #$0100 pshs d leax 9,s pshs x ldx 271,s ldb 7,x clra lbsr L21b0 leas 4,s cmpd #-1 bne L210e ldd #-1 leas 265,s rts L210e leax 7,s stx 3,s lbra L2163 L2115 ldb [1,s] cmpb #9 bne L2152 ldd 3,s leax 7,s pshs x subd ,s++ pshs d ldd #8 lbsr L21b9 pshs d ldd #8 subd ,s++ std 5,s L2135 ldd 5,s beq L2163 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 L2135 L2152 ldd 3,s addd #1 std 3,s subd #1 pshs d ldb [3,s] stb [,s++] L2163 ldd 1,s addd #1 std 1,s lbra L20d6 L216d clr [3,s] ldd 3,s leax 7,s pshs x cmpd ,s++ lbeq L21a4 leax 7,s tfr x,d lbsr L21b6 pshs d leax 9,s pshs x ldx 271,s ldb 7,x clra lbsr L21b3 leas 4,s cmpd #-1 bne L21a4 ldd #-1 leas 265,s rts L21a4 ldd 263,s leas 265,s rts L21ad lbra L2374 L21b0 lbra L27e6 L21b3 lbra L27bc L21b6 lbra L257d L21b9 lbra L25dc pshs d ldd D000c pshs d ldd 2,s lbsr L21cc leas 2,s leas 2,s rts L21cc pshs d ldd 4,s addd #2 tfr d,x ldd ,x subd #1 std ,x cmpd #0 blt L21f7 ldd [4,s] addd #1 std [4,s] subd #1 pshs d ldb 3,s stb [,s++] clra bra L2208 L21f7 ldd #1 pshs d ldd 6,s pshs d ldb 5,s clra lbsr L221b leas 4,s L2208 leas 2,s rts pshs d ldd D000e pshs d ldd 2,s lbsr L21cc leas 2,s leas 2,s rts L221b 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 L2241 ldd 7,s addd #6 tfr d,x ldb ,x andb #$30 cmpb #0 beq L2247 L2241 ldd #-1 leas 5,s rts L2247 ldb 10,s beq L2250 ldd #1 bra L2252 L2250 clrb clra L2252 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 L22a3 ldx 7,s ldd 4,x bne L22a3 ldd 7,s addd #4 pshs d ldd #$0100 lbsr L2388 std [,s++] cmpd #0 bne L229f ldd 7,s addd #6 tfr d,u ldb ,u orb #4 stb ,u bra L22a3 L229f clrb clra std ,s L22a3 ldd 7,s addd #6 tfr d,x ldb ,x andb #4 tstb lbeq L22e7 ldb 10,s lbeq L2318 ldd #1 pshs d leax 4,s pshs x ldx 11,s ldb 7,x clra lbsr L238b leas 4,s cmpd #-1 lbne L2318 ldd 7,s addd #6 tfr d,u ldb ,u orb #$20 stb ,u ldd #-1 leas 5,s rts L22e7 ldd ,s beq L2318 ldd ,s pshs d ldx 9,s ldd 4,x pshs d ldx 11,s ldb 7,x clra lbsr L238b leas 4,s cmpd #-1 bne L2318 ldd 7,s addd #6 tfr d,u ldb ,u orb #$20 stb ,u ldd #-1 leas 5,s rts L2318 ldd 7,s addd #2 pshs d ldd 9,s addd #6 tfr d,x ldb ,x andb #4 tstb beq L2331 clrb clra bra L2334 L2331 ldd #$0100 L2334 std [,s++] ldx 7,s ldd 4,x std [7,s] ldb 10,s beq L236e ldd 7,s addd #6 tfr d,x ldb ,x andb #4 cmpb #0 bne L236e 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++] L236e ldb 4,s clra leas 5,s rts L2374 pshs d clrb clra pshs d ldd 2,s pshs d clrb clra lbsr L221b leas 4,s leas 2,s rts L2388 lbra L238e L238b lbra L27bc L238e pshs d leas -8,s ldd 8,s addd #3 lsra rorb lsra rorb addd #1 std 6,s ldd D027e,y std 2,s cmpd #0 bne L23c0 leax D027a,y stx 2,s stx D027e,y stx D027a,y clrb clra std D027c,y L23c0 ldd [2,s] std ,s L23c5 ldx ,s ldd 2,x cmpd 6,s lblo L241b ldx ,s ldd 2,x cmpd 6,s bne L23e0 ldd [,s] std [2,s] bra L240d L23e0 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++] L240d ldd 2,s std D027e,y ldd ,s addd #4 leas 10,s rts L241b ldd ,s cmpd D027e,y lbne L2455 ldd 6,s lslb rola lslb rola lbsr L2514 std 4,s cmpd #-1 bne L243c clrb clra leas 10,s rts L243c ldd 4,s addd #2 pshs d ldd 8,s std [,s++] ldd 4,s addd #4 lbsr L2460 ldd D027e,y std ,s L2455 ldd ,s std 2,s ldd [,s] std ,s lbra L23c5 L2460 pshs d leas -4,s ldd 4,s subd #4 std ,s ldd D027e,y std 2,s L2471 ldd ,s cmpd 2,s bls L2480 ldd ,s cmpd [2,s] bcs L249f L2480 ldd 2,s cmpd [2,s] bcs L2497 ldd ,s cmpd 2,s bhi L249f ldd ,s cmpd [2,s] bcs L249f L2497 ldd [2,s] std 2,s lbra L2471 L249f ldd ,s addd #2 tfr d,x ldd ,x lslb rola lslb rola addd ,s cmpd [2,s] bne L24d2 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 L24d7 L24d2 ldd [2,s] std [,s] L24d7 ldd 2,s addd #2 tfr d,x ldd ,x lslb rola lslb rola addd 2,s cmpd ,s bne L2506 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 L250b L2506 ldd ,s std [2,s] L250b ldd 2,s std D027e,y leas 6,s rts L2514 lbra L267b L2517 pshs d ldb 1,s cmpb #$30 bcs L2529 ldb 1,s cmpb #$39 bhi L2529 ldb #1 bra L252a L2529 clrb L252a clra leas 2,s rts L252e pshs d ldb 1,s clra lbsr L2547 addd #0 beq L2541 ldb 1,s addb #$20 bra L2543 L2541 ldb 1,s L2543 clra leas 2,s rts L2547 lbra L254a L254a pshs d ldb 1,s cmpb #$41 bcs L255c ldb 1,s cmpb #$5a bhi L255c ldb #1 bra L255d L255c clrb L255d clra leas 2,s rts L2561 pshs d L2563 ldd ,s addd #1 std ,s subd #1 pshs d ldx 6,s ldb ,x+ stx 6,s stb [,s++] tstb bne L2563 leas 2,s rts L257d pshs d leas -2,s ldd 2,s std ,s L2585 ldb [,s] beq L2592 ldd ,s addd #1 std ,s bra L2585 L2592 ldd ,s subd 2,s leas 4,s rts L2599 leas -5,s clr ,s bsr L25d2 std 1,s ldd 7,s bsr L25d2 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 L25cc nega negb sbca #0 L25cc ldx 5,s leas 9,s jmp ,x L25d2 tsta bpl L25db com 2,s nega negb sbca #0 L25db rts L25dc ldx 2,s bsr L265b pshs cc stx 3,s puls cc bra L25ea L25e8 andcc #247 L25ea orcc #1 pshs cc ldx #0 puls cc bra L2609 ldx 2,s bsr L265b pshs cc stx 3,s ldx #32767 puls cc bra L2609 L2604 ldx #-1 andcc #246 L2609 leas -3,s pshs cc std 2,s bne L2617 puls cc tfr x,d bra L2655 L2617 lda #1 sta 1,s L261b tst 2,s bmi L2627 asl 3,s rol 2,s inc 1,s bra L261b L2627 ldd 6,s clr 6,s clr 7,s L262d subd 2,s bcc L2637 addd 2,s andcc #254 bra L2639 L2637 orcc #1 L2639 rol 7,s rol 6,s lsr 2,s ror 3,s dec 1,s bne L262d puls cc bcs L264f pshs cc ldd 6,s puls cc L264f bpl L2655 nega negb sbca #0 L2655 ldx 3,s leas 7,s jmp ,x L265b pshs u tfr d,u pshs x eora ,s++ andcc #254 pshs cc tfr x,d bsr L2673 tfr d,x tfr u,d bsr L2673 puls cc,u,pc L2673 tsta bpl L267a nega negb sbca #0 L267a rts L267b 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 L269d ldd D0000 leax d,x stx D0000 rts L269d clra std D0002 ldd #-1 rts L26a4 tfr d,x lda #1 os9 I$ChgDir bcc L26b3 std D0002 ldd #-1 rts L26b3 clra clrb rts L26b6 leas -4,s ldu 6,s tfr d,x ldd ,x std ,s lda 2,x sta 2,s ldd 8,s bra L26de L26c8 lsr ,s ror 1,s ror 2,s bcc L26da inc 2,s bne L26da inc 1,s bne L26da inc ,s L26da lsr ,u ror 1,u L26de lsra rorb bcc L26c8 clra ldb 2,s andb #7 ldu 14,s std ,u ldd 1,s lsra rorb lsra rorb lsra rorb clra ldu 12,s std ,u ldd ,s lsra rorb lsra rorb lsra rorb ldu 10,s std ,u leas 4,s rts L2707 tfr d,x clra clrb std ,x stb 2,x ldd 4,s lslb rola lslb rola lslb rola std ,x ldd 6,s lslb rola lslb rola lslb rola addd 1,x std 1,x bcc L2729 inc ,x L2729 addd 8,s std 1,x bcc L2731 inc ,x L2731 ldd 2,s bra L273b L2735 asl 2,x rol 1,x rol ,x L273b asra rorb bne L2735 rts L2740 tfr d,x ldu 2,s ldb ,x stb ,u ldd 1,x addd 4,s std 1,u bcc L2752 inc ,u L2752 clra clrb rts L2755 tfr d,x ldu 2,s ldb ,x cmpb ,u bhi L2771 bcs L276d ldd 1,x cmpd 1,u bhi L2771 bcs L276d clra clrb rts L276d ldd #-1 rts L2771 ldd #1 rts L2775 tfr b,a ldb #5 os9 I$GetStt bcs L278c tfr x,d ldx 4,s stu ,x ldx 2,s std ,x clra clrb bra L278f L278c ldd #-1 L278f rts L2790 tfr d,x lda 3,s os9 I$Open bcs L27fb tfr a,b clra rts L279d tfr b,a os9 I$Close bcs L27fb clra clrb rts L27a7 pshs y tfr b,a ldx 4,s ldy 6,s os9 I$Read puls x exg x,y bcs L27fb tfr x,d rts L27bc pshs y tfr b,a ldx 4,s ldy 6,s os9 I$Write puls x exg x,y bcs L27fb tfr x,d rts pshs y tfr b,a ldx 4,s ldy 6,s os9 I$ReadLn puls x exg x,y bcs L27fb tfr x,d rts L27e6 pshs y tfr b,a ldx 4,s ldy 6,s os9 I$WritLn puls x exg x,y bcs L27fb tfr x,d rts L27fb clra std D0002 ldd #-1 rts L2802 tfr d,x lda #2 ldb 3,s bmi L280e tfr b,a anda #3 L280e orb #1 pshs d,x os9 I$Create puls x,u exg x,u bcc L282b pshs x os9 I$Delete puls x bcs L27fb tfr u,d os9 I$Create bcs L27fb L282b tfr a,b clra rts L282f pshs d ldx 4,s ldd ,x std 4,s clrb lda 2,x addd 6,s std 6,s puls d L2840 tfr b,a ldb 7,s ldx 2,s ldu 4,s decb bne L2854 ldb #5 os9 I$GetStt bcs L27fb bra L285e L2854 decb bne L286c ldb #2 os9 I$GetStt bcs L27fb L285e exg d,u addd 4,s exg d,u exg d,x adcb 3,s adca 2,s exg d,x L286c os9 I$Seek bcs L27fb clra clrb rts L2874 tfr d,x os9 I$Delete bcs L27fb clra clrb rts L287e os9 F$Exit L2881 bsr L288c tfr a,b clra rts bsr L288c tfr x,d rts L288c pshs y os9 F$ID tfr y,x puls y rts L2896 lsr 3,s asl 5,s com d,s fcb $02 emod L28a0 equ * end ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]