====== ASM ====== Header for : Asm Module size: $16E5 #5861 Module CRC : $6996B8 (Good) Hdr parity : $DB Exec. off : $0011 #17 Data size : $1000 #4096 Edition : $05 #5 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of asm mod L16e5,L000d,$11,$81,L0011,D1000 * OS-9 system function equates F$Exit equ $06 F$PErr equ $0f F$Time equ $15 F$CRC equ $17 I$Create equ $83 I$Open equ $84 I$Seek equ $88 I$Write equ $8a I$ReadLn equ $8b I$WritLn equ $8c I$Close equ $8f * class D external label equates Dfff0 equ $fff0 Dffff equ $ffff * OS9 data area definitions D0000 rmb 1 D0001 rmb 1 D0002 rmb 1 D0003 rmb 1 D0004 rmb 1 D0005 rmb 1 D0006 rmb 1 D0007 rmb 1 D0008 rmb 1 D0009 rmb 1 D000a rmb 1 D000b rmb 1 D000c rmb 1 D000d rmb 1 D000e rmb 1 D000f rmb 1 D0010 rmb 2 D0012 rmb 2 D0014 rmb 2 D0016 rmb 1 D0017 rmb 1 D0018 rmb 1 D0019 rmb 1 D001a rmb 1 D001b rmb 2 D001d rmb 2 D001f rmb 1 D0020 rmb 1 D0021 rmb 1 D0022 rmb 1 D0023 rmb 1 D0024 rmb 1 D0025 rmb 1 D0026 rmb 1 D0027 rmb 1 D0028 rmb 1 D0029 rmb 1 D002a rmb 1 D002b rmb 1 D002c rmb 1 D002d rmb 1 D002e rmb 1 D002f rmb 1 D0030 rmb 1 D0031 rmb 1 D0032 rmb 1 D0033 rmb 1 D0034 rmb 1 D0035 rmb 1 D0036 rmb 1 D0037 rmb 1 D0038 rmb 1 D0039 rmb 1 D003a rmb 1 D003b rmb 1 D003c rmb 1 D003d rmb 1 D003e rmb 1 D003f rmb 1 D0040 rmb 1 D0041 rmb 1 D0042 rmb 1 D0043 rmb 1 D0044 rmb 1 D0045 rmb 1 D0046 rmb 1 D0047 rmb 2 D0049 rmb 1 D004a rmb 1 D004b rmb 1 D004c rmb 1 D004d rmb 1 D004e rmb 1 D004f rmb 1 D0050 rmb 1 D0051 rmb 1 D0052 rmb 1 D0053 rmb 1 D0054 rmb 1 D0055 rmb 1 D0056 rmb 1 D0057 rmb 1 D0058 rmb 1 D0059 rmb 1 D005a rmb 1 D005b rmb 1 D005c rmb 1 D005d rmb 1 D005e rmb 1 D005f rmb 1 D0060 rmb 1 D0061 rmb 1 D0062 rmb 1 D0063 rmb 1 D0064 rmb 1 D0065 rmb 5 D006a rmb 3 D006d rmb 1 D006e rmb 1 D006f rmb 1 D0070 rmb 1 D0071 rmb 1 D0072 rmb 1 D0073 rmb 2 D0075 rmb 11 D0080 rmb 1 D0081 rmb 2 D0083 rmb 2 D0085 rmb 2 D0087 rmb 1 D0088 rmb 2 D008a rmb 2 D008c rmb 1 D008d rmb 1 D008e rmb 1 D008f rmb 8 D0097 rmb 15 D00a6 rmb 1 D00a7 rmb 2 D00a9 rmb 6 D00af rmb 7 D00b6 rmb 11 D00c1 rmb 1 D00c2 rmb 1 D00c3 rmb 3 D00c6 rmb 8 D00ce rmb 1 D00cf rmb 8 D00d7 rmb 10 D00e1 rmb 7 D00e8 rmb 4 D00ec rmb 12 D00f8 rmb 3848 D1000 equ . L000d fcb $41 com $ed05 L0011 tfr u,d addd #$01c0 std D0014 std D0016 addd #9 std D0000 addd #$0051 std D0002 addd #$0085 std D0004 addd #$0092 std D0006 std D001f std D0008 addd #$0050 std D000a addd #$0028 std D000e addd #$0100 std D0010 addd #$0034 std D001d leau Dffff,y stu D0012 lds D0014 clra ldb #1 sta D0059 sta D005b sta D005e sta D005d stb D005c sta D0058 sta D005a stb D005f sta D0060 sta D003e sta D0018 sta D0019 stb D001a ldb #255 stb D0056 sta D0057 ldb #$42 stb D0036 ldb #$50 stb D0037 lbsr L1696 lda D0056 bmi L0081 inc D0057 L0081 ldx D0008 clr ,x ldx D000a clr ,x ldx D0010 L008b clr ,x+ cmpx D0012 bls L008b ldb D005d beq L0099 dec D003e bra L00a0 L0099 bsr L00a5 lbsr L1607 inc D003e L00a0 bsr L00a5 lbra L159f L00a5 bsr L00b1 L00a7 lbsr L1537 bcc L00ad rts L00ad bsr L00d5 bra L00a7 L00b1 clra clrb std D0028 std D0022 std D0026 std D0024 std D0040 std D0042 stb D003f stb D0055 stb D0054 incb std D003a std D0038 ldd D000e std D001b lbsr L1360 lbsr L141a rts L00d5 clra clrb std D004a std D0061 std D0063 sta D0065 sta D0046 sta D002a sta D0021 sta D004c sta D002c sta D004f sta D004e sta D004d lda #$35 sta D002b ldd D0040 std D0044 ldx D0000 lda ,x cmpa #$0d beq L0136 cmpa #$2a beq L0136 cmpa #$20 beq L0125 ldb D002b orb #8 stb D002b lbsr L0368 bcc L0119 ldb #1 lbsr L02fa bra L0125 L0119 tst D0054 bne L0125 lbsr L0f4a bcc L0125 lbsr L02fa L0125 lbsr L1164 cmpa #$0d bne L0141 lda D002b bita #8 beq L0136 lda #9 bra L0138 L0136 lda #$80 L0138 sta D002b lda D0054 bne L018e lbra L01f2 L0141 stx D002f L0143 lda ,x+ cmpa #$0d beq L0150 cmpa #$20 bne L0143 lbsr L1164 L0150 stx D0031 ldx D002f ldb #$74 leay L03b8,pcr lbsr L0344 bcc L0172 L015f ldb #2 lbsr L02fa ldb #3 stb D0046 lda D002b anda #$df sta D002b ldx D0031 bra L01c4 L0172 lda D0054 beq L0195 ldb D0001,y andb #$0f cmpb #$0d bne L0181 inca bra L018c L0181 cmpb #$0e bne L018e deca beq L0195 ldb ,y bne L018e L018c sta D0054 L018e inc D0039 bne L0194 inc D0038 L0194 rts L0195 ldd ,y sta D0062 stb D0047 lda #$10 bitb #$10 bne L01a7 lda #$11 bitb #$20 beq L01ab L01a7 sta D0061 inc D0046 L01ab leay L0780,pcr andb #$0f lslb ldd b,y jsr d,y lda D002b bita #$20 beq L01c4 lda ,x clr ,x+ cmpa #$0d beq L01d3 L01c4 lbsr L1164 cmpa #$0d beq L01d3 ldb D002b beq L01d3 orb #$40 stb D002b L01d3 ldb D005d beq L01db ldb D0021 bne L01f2 L01db ldd D0040 addb D0046 adca #0 std D0040 bra L01f2 L01e5 ldd #$2084 ldx D0004 L01ea sta ,x+ decb bne L01ea L01ef ldx D0004 rts L01f2 ldb D003e beq L01ef ldb D002b beq L01ef bsr L01e5 tst D0060 bne L0205 ldd D0038 lbsr L1084 L0205 ldb D002b bitb #$80 beq L0213 ldb #$0d ldy D0000 lbra L02ab L0213 bitb #1 beq L0240 lda #$45 ldb D0021 bne L022f lda #$44 ldb D002c bne L022f lda #$57 ldb D004f beq L0236 inc D0023 bne L022f inc D0022 L022f ldb #6 lbsr L02e2 sta ,x L0236 ldb #8 lbsr L02e2 ldd D0044 lbsr L1057 L0240 ldb D002b bitb #4 beq L0272 ldb D0046 beq L0272 ldb #$61 tfr dp,a tfr d,u ldb ,u+ bne L0256 L0254 ldb ,u+ L0256 pshs b lbsr L106b puls a ldb D005d beq L0265 ldb D0021 bne L026e L0265 lbsr L130d inc D0025 bne L026e inc D0024 L026e dec D0046 bne L0254 L0272 ldy D0000 ldb D002b bitb #8 beq L0281 ldb #$18 bsr L02e2 bsr L02c9 L0281 ldb D002b bitb #$10 beq L028f ldb #$21 bsr L02e2 bsr L02c9 leay D0001,y L028f ldb D002b bitb #$20 beq L02a3 ldb #$27 bsr L02e2 ldy D0031 lbsr L11bd lda #$20 sta ,x+ L02a3 ldb D002b bitb #$40 beq L02b7 ldb #$32 L02ab bsr L02e2 L02ad lda ,y+ cmpa #$0d beq L02b7 sta ,x+ bra L02ad L02b7 ldb D002b andb #$bf cmpb #4 beq L02c8 lbsr L1370 inc D0039 bne L02c8 inc D0038 L02c8 rts L02c9 lda ,y+ cmpa #$20 beq L02c9 L02cf cmpa #$0d beq L02df cmpx D001f bcc L02d9 sta ,x+ L02d9 lda ,y+ cmpa #$20 bne L02cf L02df leay Dffff,y rts L02e2 pshs u tst D0060 beq L02ec leax 1,x bra L02f8 L02ec ldu D0004 leau b,u pshs u cmpx ,s++ bcc L02f8 tfr u,x L02f8 puls u,pc L02fa pshs d,x,y,u tst D005c beq L0325 leay L061c,pcr ldx D0004 lbsr L11bd clra decb lslb leay L062a,pcr ldd d,y leay d,y lbsr L11bd ldb 1,s cmpb #$18 bne L0322 ldy 2,s bsr L033d L0322 lbsr L1368 L0325 inc D0021 inc D0029 bne L032d inc D0028 L032d puls d,x,y,u,pc lbsr L01e5 ldb #$18 bsr L02e2 ldy D0000 bra L033d L033b sta ,x+ L033d lda ,y+ cmpa #$0d bne L033b rts L0344 pshs b,x L0346 lda ,y+ bmi L035e eora ,x+ anda #$df beq L0346 L0350 lda ,y+ bpl L0350 L0354 leay D0002,y ldx 1,s decb bne L0346 comb puls b,x,pc L035e eora ,x+ anda #$5f bne L0354 leas 3,s clrb rts L0368 lbsr L1164 bsr L03a0 bcs L03b7 pshs y,u ldu D0016 ldb #8 leax 1,x bra L0393 L0379 lda ,x+ bsr L03a0 bcc L0393 cmpa #$39 bhi L039a cmpa #$30 bcc L0393 cmpa #$2e beq L0393 cmpa #$24 beq L0393 cmpa #$5f bne L039a L0393 sta ,u+ decb bne L0379 bra L039c L039a leax -1,x L039c clr ,u+ puls y,u,pc L03a0 cmpa #$41 bcs L03b5 cmpa #$5a bhi L03ad L03a8 anda #$5f andcc #254 rts L03ad cmpa #$61 bcs L03b5 cmpa #$7a bls L03a8 L03b5 orcc #1 L03b7 rts L03b8 clra fcb $52 fcb $c7 neg D000c fcb $45 fcb $4e lsra addd #$000e inca fcb $42 fcb $52 cmpb #$16 neg D004c fcb $42 comb sbcb D0017 neg D004f fcb $52 coma addd #6657 fcb $41 fcb $4e lsra coma addd #7169 coma asrb fcb $41 adcb #$3c fcb $01 fcb $41 lsra lsra andb #$c3 fcb $02 comb fcb $55 fcb $42 andb #$83 fcb $02 inca lsra andb #$cc fcb $02 inca lsra eorb D008e fcb $02 inca lsra bitb D00ce fcb $02 coma tsta negb eorb D008c fcb $02 deca comb sbcb D008d fcb $42 comb lsrb andb #$cd fcb $42 comb lsrb eorb D008f fcb $42 comb lsrb bitb D00cf fcb $42 coma tsta negb bitb D0083 bhi L0461 tsta negb addd D008c bhi L0467 tsta negb andb #$83 nop coma tsta negb adcb D008c nop inca lsra adcb D008e nop inca lsra addd D00ce nop comb lsrb adcb D008f fcb $52 comb lsrb addd D00cf fcb $52 fcb $41 lsra andb #$8b com D0043 tsta subb D0081 com D0053 fcb $55 sbcb #$80 com D0053 fcb $42 addd #$8203 fcb $41 fcb $4e andb #$84 com D0042 rola andb D0085 com D004c L0461 equ *-1 andb #$86 com D0053 andb D0087 L0467 equ *-1 coma fcb $45 clra sbcb D0088 com D0041 lsra addd #$8903 clra sbcb D008a com D004e fcb $45 fcb $c7 neg D0004 coma clra fcb $cd com D0004 inca comb sbcb D0004 lsr D0052 clra sbcb D0006 lsr D0041 comb sbcb D0007 lsr D004c comb ldd #$0804 fcb $41 comb ldd #$0804 fcb $52 clra ldd #$0904 lsra fcb $45 addd #$0a04 rola fcb $4e addd #$0c04 lsrb comb andb D000d lsr D004a tsta subb D000e lsra coma inca sbcb D000f lsr D0052 lsrb addd D0039 fcb $05 tsta fcb $55 ldd #15621 fcb $4e clra subb D0012 fcb $05 comb rolb fcb $4e addd #4869 lsra fcb $41 cmpb #$19 fcb $05 comb fcb $45 eorb D001d fcb $05 fcb $41 fcb $42 eorb D003a fcb $05 fcb $52 lsrb adcb #$3b fcb $05 comb asrb rola sbca 16149 comb asrb rola subd 16165 comb asrb adcb #$3f fcb $05 inca fcb $45 fcb $41 eorb D0030 ror D004c fcb $45 fcb $41 adcb D0031 ror D004c fcb $45 fcb $41 addd D0032 ror D004c fcb $45 fcb $41 bitb D0033 ror D0054 rora sbcb D001f asr D0045 lslb fcb $c7 fcb $1e asr D0050 comb asla addd D0034 asl D0050 fcb $55 inca addd D0035 asl D0050 comb asla bitb D0036 asl D0050 fcb $55 inca bitb D0037 asl D004c sbcb #0 daa L0530 fcb $42 comb sbcb D008d dec D0042 fcb $52 cmpb #$20 dec D0042 fcb $52 ldu #8458 fcb $42 asla adcb #$22 dec D0042 inca addd D0023 dec D0042 asla addd D0024 dec D0042 coma addd #$240a fcb $42 inca fcb $cf bcs L0562 fcb $42 coma addd D0025 dec D0042 fcb $4e bitb #$26 dec D0042 L0562 equ *-1 fcb $45 cmpb D0027 dec D0042 rorb addd #$280a fcb $42 rorb addd D0029 dec D0042 negb ldd #$2a0a fcb $42 tsta adcb #$2b dec D0042 asra bitb #$2c dec D0042 inca andb D002d dec D0042 asra andb D002e dec D0042 inca bitb #$2f dec D0052 tsta sbcb #0 fcb $0b rora coma addd #$010b rora lsra sbcb #2 fcb $0b rora coma addd D0003 fcb $0b rora coma sbcb #4 fcb $0b fcb $45 fcb $51 bitb D0005 fcb $0b tsta clra andb #6 fcb $0b fcb $45 tsta clra andb #7 fcb $0b comb fcb $45 lsrb lsra subb D0007 inc D0053 fcb $45 andb D0008 fcb $0b clra comb adca $090b fcb $45 fcb $4e andb #1 inc D004e fcb $41 fcb $cd fcb $02 inc D004f negb andb D0003 inc D0054 lsrb ldd #$040c negb fcb $41 fcb $c7 fcb $05 inc D0053 negb addd #$060c fcb $55 comb bitb #8 inc D0049 rora fcb $45 cmpb D0000 tst D0049 rora fcb $4e bitb #1 tst D0049 rora inca andb D0002 tst D0049 rora inca bitb #3 tst D0049 rora asra bitb #4 tst D0049 rora asra andb D0005 tst D0049 rora negb cmpa $060d fcb $45 inca comb bitb #1 jmp D002a L061c equ *-1 bpl L0649 bpl L064b bra L0668 fcb $72 fcb $72 clr -14,s abx bra L062a L062a neg D0035 neg D003f neg D0049 neg D0053 neg D005c neg D005e neg D006a neg D0071 neg D0080 neg D008f neg D0097 neg D00a9 neg D00b6 neg D00c3 neg D00ce neg D00d7 L0649 equ *-1 neg D00e1 L064b equ *-1 neg D00ec neg D00f8 fcb $01 fcb $02 fcb $01 inc D0001 fcb $18 fcb $01 brn L065a bmi L065c L065a equ *-1 pulu cc L065c equ *-1 rola neg D0062 fcb $61 fcb $64 bra L06d0 fcb $61 fcb $62 fcb $65 fcb $6c L0668 neg D0062 fcb $61 fcb $64 bra L06d7 jmp -13,s lsr 29184 rol 14,s bra L06e5 fcb $75 tst 2,s fcb $65 fcb $72 neg D0064 rol -10,s bra L06e4 rol $2030 neg D0020 neg D0065 asl 28786 bra L0701 rol $6e74 fcb $61 asl >$0070 fcb $61 fcb $72 fcb $65 jmp -13,s neg D0072 fcb $65 lsr 5,s ror 9,s jmp 5,s fcb $64 bra L0714 fcb $61 tst 5,s neg D0075 jmp 4,s fcb $65 ror 9,s jmp 5,s fcb $64 bra L0723 fcb $61 tst 5,s neg D0070 asl 1,s com $696e fcb $67 neg D0073 rol $6d62 clr 12,s bra L073d fcb $61 fcb $62 inc 5,s bra L0735 fcb $75 L06d0 inc 12,s neg D0061 lsr 4,s fcb $72 L06d7 fcb $65 com 29472 tst 15,s lsr 5,s neg D006f fcb $75 lsr $206f L06e4 equ *-1 L06e5 fcb $66 bra L075a fcb $61 jmp 7,s fcb $65 neg D0072 fcb $65 com 30060 lsr 15922 puls cc,b,x,y neg D0072 fcb $65 fcb $67 bra L076b fcb $61 tst 5,s neg D0072 L0701 equ *-1 fcb $65 fcb $67 bra L0779 rol -6,s fcb $65 com >$0069 jmp -16,s fcb $75 lsr $2070 fcb $61 lsr $6800 L0714 equ *-2 clr 2,s dec 5,s com -12,s bra L078e fcb $61 lsr $6800 rol 14,s L0723 equ *-1 lsr 5,s asl $2072 fcb $65 fcb $67 neg D005d bra L079c rol -13,s com $696e fcb $67 L0735 neg D006e fcb $65 fcb $65 lsr -13,s bra L07a9 L073d fcb $61 fcb $62 fcb $65 fcb $6c neg D006f neg 29728 inc 9,s com 29696 com 15,s jmp -13,s lsr $2064 fcb $65 fcb $66 neg D0063 fcb $61 jmp D0007,y lsr $206f L075a equ *-2 neg $656e bra L0761 L0761 inc 1,s fcb $62 fcb $65 fcb $6c bra L07d6 clr -12,s bra L07cd L076b equ *-1 inc 12,s clr -9,s fcb $65 fcb $64 neg D0063 clr 14,s fcb $64 bra L07e7 L0779 fcb $65 com 29801 jmp 7,s neg D0000 L0780 equ *-1 exg d,d bcs L0785 L0785 rts neg D004e neg D0073 neg D00a6 neg D00af L078e neg D00c6 fcb $01 lsr D0001 sex fcb $01 abx fcb $01 incb fcb $01 fcb $61 fcb $01 rol $07a9 L079c equ *-2 lda #3 sta D0046 lbra L0951 lbsr L0932 bcc L07af L07a9 equ *-1 ldb #$0c lbsr L02fa L07af lbsr L12f7 stb D0063 lda #2 sta D0046 rts inc D0046 lbsr L0932 lblo L09c6 lbsr L12f1 std D0063 inc D0046 inc D0046 lbra L0941 L07cd equ *-1 inc D0046 lda ,x+ anda #$5f cmpa #$41 L07d6 beq L07e7 cmpa #$42 beq L07e1 leas 2,s lbra L015f L07e1 ldb #$40 orb D0062 stb D0062 L07e7 lbsr L0932 lblo L09c6 lbsr L0941 bra L07af inc D0046 lda D0062 cmpa #$0e beq L080b lda ,x anda #$5f ldb #$40 cmpa #$41 beq L0819 ldb #$50 cmpa #$42 beq L0819 L080b lbsr L09c6 ldb D0062 bitb #$f0 beq L0825 orb #$40 stb D0062 rts L0819 orb D0062 stb D0062 leax 1,x ldb #$df andb D002b stb D002b L0825 rts inc D0046 ldb D002b andb #$df stb D002b rts inc D0046 lbsr L09c6 lda D004e bne L0825 ldd #4626 std D0062 ldb #2 stb D0046 ldb #$0c lbra L02fa ldb #2 stb D0046 lbsr L1164 lbsr L096b bcc L0857 L0852 ldb #$0f lbra L02fa L0857 lda ,x+ cmpa #$2c bne L0852 pshs b lbsr L096b puls a bcs L0852 pshs d anda #8 andb #8 pshs b eora ,s+ beq L0879 ldb #$10 leas 2,s lbra L02fa L0879 puls a asla asla asla asla ora ,s+ sta D0063 rts ldb #2 stb D0046 lbsr L1164 L088b lbsr L096b bcs L0852 ora D0063 sta D0063 lda ,x+ cmpa #$2c beq L088b leax -1,x rts lda #4 sta D0046 leax -1,x ldb #$13 leay L0530,pcr lbsr L0344 bcc L08b3 leas 2,s lbra L015f L08b3 lda ,y sta D0062 lbra L0951 lda #2 sta D0046 lbsr L12f1 subd D0040 subd #2 cmpd #$007f bgt L08d2 cmpd #-128 bge L08d9 L08d2 ldb #$0d lbsr L02fa ldb #254 L08d9 stb D0063 rts leau L09a2,pcr pshs x ldb #$0c L0973 lda ,y beq L098f cmpa ,x+ beq L0981 adda #$20 cmpa -1,x bne L098f L0981 lda D0001,y beq L099a cmpa ,x+ beq L099a adda #$20 cmpa -1,x beq L099a L098f ldx ,s leay D0003,y decb bne L0973 orcc #1 puls x,pc L099a decb leas 2,s lda D0002,y andcc #254 rts L09a2 lsra negb asl D0043 coma fcb $01 fcb $42 neg D0004 fcb $41 neg D0002 neg D0000 neg D0000 neg D0000 negb coma suba #$53 neg D0040 fcb $55 neg D0040 rolb neg D0020 lslb neg D0010 lsra neg D0006 L09c6 lbsr L1164 bsr L0a14 cmpa #$5b bne L09d7 inc D004d leax 1,x lda ,x bsr L0a14 L09d7 cmpa #$2c lbeq L0a64 ldb 1,x cmpb #$2c bne L09f1 anda #$df cmpa #$41 beq L0a27 cmpa #$42 beq L0a2b cmpa #$44 beq L0a2f L09f1 lbsr L12f1 bcc L09f8 clra clrb L09f8 std D004a lda ,x cmpa #$2c lbeq L0b18 ldb D004d bne L0a35 ldb D004c bmi L0a35 bne L0a53 lda D004a cmpa D003f beq L0a53 bra L0a35 L0a14 ldb #255 cmpa #$3e beq L0a20 cmpa #$3c bne L0a26 ldb #1 L0a20 stb D004c leax 1,x lda ,x L0a26 rts L0a27 ldb #$86 bra L0a31 L0a2b ldb #$85 bra L0a31 L0a2f ldb #$8b L0a31 leax 1,x bra L0a97 L0a35 ldd D004a inc D0046 inc D0046 inc D004f tst D004d bne L0a4a std D0063 ldb #$30 orb D0062 stb D0062 rts L0a4a std D0064 ldb #$9f stb D0063 lbra L0aea L0a53 inc D0046 ldb D004b stb D0063 ldb D0062 bitb #$f0 beq L0a63 orb #$10 stb D0062 L0a63 rts L0a64 leax 1,x clr D004a clr D004b ldd ,x cmpd #$2d2d beq L0a8d cmpa #$2d beq L0a93 bsr L0ac7 lblo L0b68 stb D0063 ldd ,x cmpd #$2b2b beq L0aab cmpa #$2b beq L0ab1 lbra L0b22 L0a8d leax 1,x ldb #$83 bra L0a97 L0a93 bsr L0abd ldb #$82 L0a97 stb D0063 leax 1,x bsr L0ac7 bcc L0aa5 L0a9f ldb #$13 lbsr L02fa clrb L0aa5 orb D0063 stb D0063 bra L0aea L0aab ldb #$81 leax 1,x bra L0ab5 L0ab1 bsr L0abd ldb #$80 L0ab5 leax 1,x orb D0063 stb D0063 bra L0aea L0abd tst D004d beq L0ac6 ldb #$0c lbsr L02fa L0ac6 rts L0ac7 lda ,x+ anda #$5f clrb cmpa #$58 beq L0ae2 ldb #$20 cmpa #$59 beq L0ae2 ldb #$40 cmpa #$55 beq L0ae2 ldb #$60 cmpa #$53 bne L0ae5 L0ae2 andcc #254 rts L0ae5 leax -1,x orcc #1 rts L0aea ldb #$20 orb D0062 stb D0062 inc D0046 inc D004e tst D004d beq L0b08 ldb #$10 orb D0063 stb D0063 lda ,x+ cmpa #$5d beq L0b08 ldb #$14 bra L0b14 L0b08 lda ,x cmpa #$20 beq L0b17 cmpa #$0d beq L0b17 ldb #$0c L0b14 lbsr L02fa L0b17 rts L0b18 leax 1,x bsr L0ac7 bcs L0b68 orb D0063 stb D0063 L0b22 ldd D004a tst D004c bmi L0b5a bne L0b52 ldd D004a bne L0b32 ldb #$84 bra L0b62 L0b32 tst D004d bne L0b46 cmpd #$000f bgt L0b46 cmpd #-16 blt L0b46 andb #$1f bra L0b62 L0b46 cmpd #$007f bgt L0b5a cmpd #-128 blt L0b5a L0b52 stb D0064 inc D0046 ldb #$88 bra L0b62 L0b5a std D0064 inc D0046 inc D0046 ldb #$89 L0b62 orb D0063 stb D0063 bra L0aea L0b68 ldd ,x anda #$5f andb #$5f cmpd #20547 lbne L0a9f leax 2,x lda ,x anda #$5f cmpa #$52 bne L0b82 leax 1,x L0b82 inc D0046 ldd D004a subd D0040 subb D0046 sbca #0 subd #1 tst D004c bmi L0b9b beq L0b9b stb D0064 ldb #$8c bra L0b62 L0b9b subd #1 inc D0046 std D0064 ldb #$8d bra L0b62 bsr L0be4 pshs d addd D0026 std D0026 bsr L0bef beq L0bb6 lda #4 bsr L0bf7 L0bb6 bsr L0bd8 bsr L0bef beq L0bbe bsr L0c0a L0bbe addd ,s++ L0bc0 pshs a lda D002b anda #8 ora #$31 sta D002b puls a tst D005a beq L0bd3 std D0040 rts L0bd3 std D0042 inc D002c rts L0bd8 tst D005a beq L0bdf ldd D0040 rts L0bdf ldd D0042 std D0044 rts L0be4 lbsr L11c2 bcc L0bee lbsr L02fa clra clrb L0bee rts L0bef pshs a lda D002b bita #8 puls a,pc L0bf7 ldu D002d ldb 8,u bmi L0c09 cmpb #2 bne L0c07 cmpa #2 beq L0c07 ora #$80 L0c07 sta 8,u L0c09 rts L0c0a tst D003e ble L0c24 cmpd 9,u beq L0c26 pshs d lda 8,u bmi L0c22 cmpa #2 beq L0c22 ldb #$0a lbsr L02fa L0c22 puls d L0c24 std 9,u L0c26 rts lda #3 bra L0c2d lda #2 L0c2d bsr L0bef bne L0c38 ldb #$15 lbsr L02fa bra L0c46 L0c38 bsr L0bf7 bsr L0be4 ldu D002d bsr L0c0a std D0044 ldb #$39 stb D002b L0c46 rts lda ,x+ pshs a cmpa #$0d beq L0c64 cmpa #$2f bhi L0c64 bsr L0c8d L0c55 lda ,x+ cmpa ,s beq L0c69 cmpa #$0d beq L0c64 lbsr L0cec bra L0c55 L0c64 ldb #$17 lbsr L02fa L0c69 puls a,pc lda ,x+ pshs a cmpa #$0d beq L0c64 cmpa #$2f bhi L0c64 bsr L0c8d L0c79 ldd ,x+ cmpa #$0d beq L0c64 cmpa ,s beq L0c69 cmpb ,s bne L0c89 ora #$80 L0c89 bsr L0cec bra L0c79 L0c8d pshs a,x leax -1,x L0c91 leax 1,x lda ,x cmpa #$0d beq L0ca1 cmpa ,s bne L0c91 leax 1,x lda ,x L0ca1 clr ,x+ stx D0033 cmpa #$0d bne L0cab sta ,x L0cab puls a,x,pc bsr L0cd5 L0caf lbsr L12f7 tfr b,a bsr L0cec lda ,x+ cmpa #$2c beq L0caf leax -1,x rts bsr L0cd5 L0cc1 lbsr L12f1 pshs b bsr L0cec puls a bsr L0cec lda ,x+ cmpa #$2c beq L0cc1 leax -1,x rts L0cd5 pshs x L0cd7 lbsr L12f1 lda ,x+ cmpa #$2c beq L0cd7 clr -1,x stx D0033 cmpa #$0d bne L0cea sta ,x L0cea puls x,pc L0cec ldb D0046 cmpb #4 bcs L0cf4 bsr L0d03 L0cf4 pshs d tfr dp,a ldb #$62 tfr d,u puls d sta b,u inc D0046 rts L0d03 pshs d,x ldb D002a bne L0d14 ldx D0033 lbsr L01c4 tst D005b beq L0d27 bra L0d30 L0d14 tst D005b bne L0d2d lda D0056 pshs a clr D0056 com D0056 lbsr L01d3 puls a sta D0056 L0d27 ldb #4 stb D002b bra L0d34 L0d2d lbsr L01d3 L0d30 ldb #5 stb D002b L0d34 ldd D0040 std D0044 clr D0046 inc D002a clr 1,s puls d,x,pc ldd D0051 coma comb std D0062 ldb D0053 comb lda D002b anda #$df sta D002b bra L0d59 ldd #4159 std D0062 lbsr L12f7 L0d59 stb D0064 ldb #3 stb D0046 rts clra clrb stb D0050 std D0040 std D0044 std D0042 lbsr L1360 lbsr L0cd5 ldd #$87cd bsr L0d93 bsr L0d90 bsr L0d8e bsr L0da9 bsr L0da4 bsr L0da9 bsr L0da4 lda D0050 coma bsr L0da1 lda ,x cmpa #$2c bne L0db8 bsr L0d8e L0d8e bsr L0da9 L0d90 lbsr L12f1 L0d93 pshs b tfr a,b bsr L0d9b puls b L0d9b tfr b,a eorb D0050 stb D0050 L0da1 lbra L0cec L0da4 lbsr L12f7 bra L0d9b L0da9 lda ,x+ cmpa #$2c beq L0db8 leax -1,x ldb #$17 lbsr L02fa leas 2,s L0db8 rts lbsr L0be4 std D0044 lbra L0bc0 ldb D002b andb #8 orb #$10 stb D002b lbsr L01f2 lbsr L156c bcc L0dd3 leas 4,s L0dd3 rts ldb #$27 ldu D000a L0dd8 lbsr L1164 lda D003e bne L0de3 lda ,u bne L0dfc L0de3 lda ,x+ cmpa #$0d beq L0df4 sta ,u+ decb bne L0de3 lda #$0d L0df0 cmpa ,x+ bne L0df0 L0df4 clr ,u leax -1,x ldb #$30 stb D002b L0dfc rts ldb #$4f ldu D0008 bra L0dd8 lbsr L1408 L0e06 leas 2,s rts bsr L0e21 bcc L0e12 ldb #$30 stb D002b rts L0e12 stb ,-s beq L0e1d L0e16 lbsr L149a dec ,s bne L0e16 L0e1d leas 1,s bra L0e06 L0e21 lbsr L10b4 bcc L0e2b lbsr L02fa orcc #1 L0e2b rts L0e2c ldb #$30 stb D002b lbsr L1164 L0e33 clr ,-s lda ,x+ cmpa #$2d bne L0e3f com ,s lda ,x+ L0e3f leau L10aa,pcr ldy #5 L108e clr ,s L1090 subd ,u bcs L1098 inc ,s bra L1090 L1098 addd ,u++ pshs b ldb 1,s addb #$30 stb ,x+ puls b leay Dffff,y bne L108e puls b,y,u,pc L10aa beq L10bc com D00e8 neg D0064 neg D000a neg D0001 L10b4 lbsr L1164 leax 1,x cmpa #$25 beq L111d L10bc equ *-1 cmpa #$24 beq L10c5 leax -1,x bra L10f7 L10c5 leas -4,s bsr L1134 L10c9 bsr L113b bcc L10dd cmpb #$61 bcs L10d3 subb #$20 L10d3 cmpb #$41 bcs L114d cmpb #$46 bhi L114d subb #$37 L10dd stb ,s ldd 2,s bita #$f0 bne L1160 lslb rola lslb rola lslb rola lslb rola addb ,s adca #0 std 2,s inc 1,s bra L10c9 L10f7 leas -4,s bsr L1134 L10fb bsr L113b bcs L114d stb ,s ldd 2,s lslb rola std 2,s lslb rola lslb rola bcs L1160 addd 2,s bcs L1160 addb ,s adca #0 bcs L1160 std 2,s inc 1,s bra L10fb L111d leas -4,s bsr L1134 L1121 ldb ,x+ subb #$30 bcs L114d lsrb bne L114d rol 3,s rol 2,s bcs L1160 inc 1,s bra L1121 L1134 clra clrb std 2,s std 4,s rts L113b ldb ,x+ cmpb #$30 bcs L1145 cmpb #$39 bls L1148 L1145 orcc #1 rts L1148 subb #$30 andcc #254 rts L114d leax -1,x tst 1,s beq L1159 ldd 2,s andcc #254 bra L115d L1159 orcc #4 L115b orcc #1 L115d leas 4,s rts L1160 andcc #251 bra L115b L1164 lda ,x+ cmpa #$20 beq L1164 leax -1,x rts L116d pshs d,x lda 3,s mul pshs d lda 2,s ldb 5,s mul addb ,s stb ,s lda 3,s ldb 4,s mul addb ,s stb ,s ldd ,s ldx #0 leas 6,s rts L118e pshs d,x,y ldd ,s bne L1198 orcc #1 bra L11b8 L1198 ldd #$0010 stb 4,s clrb L119e asl 3,s rol 2,s rolb rola subd ,s bmi L11ac inc 3,s bra L11ae L11ac addd ,s L11ae dec 4,s bne L119e tfr d,x ldd 2,s andcc #254 L11b8 leas 6,s rts L11bb sta ,x+ L11bd lda ,y+ bne L11bb rts L11c2 pshs y,u leau ,s bsr L1164 bsr L11d0 andcc #254 puls y,u,pc L11ce leax 1,x L11d0 bsr L1211 pshs d L11d4 lda ,x cmpa #$2d bne L11e2 bsr L120f nega negb sbca #0 bra L11e8 L11e2 cmpa #$2b bne L11ee bsr L120f L11e8 addd ,s std ,s bra L11d4 L11ee tsta beq L120d cmpa #$0d beq L120d cmpa #$20 beq L120d cmpa #$2c beq L120d cmpa #$29 beq L120d cmpa #$5d beq L120d L1205 ldb #6 L1207 leas ,u orcc #1 puls y,u,pc L120d puls d,pc L120f leax 1,x L1211 bsr L123f pshs d L1215 lda ,x cmpa #$2f bne L122a bsr L123d pshs x ldx 2,s lbsr L118e bcc L1237 ldb #4 bra L1207 L122a cmpa #$2a bne L120d bsr L123d pshs x ldx 2,s lbsr L116d L1237 puls x std ,s bra L1215 L123d leax 1,x L123f bsr L126d pshs d L1243 lda ,x cmpa #$26 bne L1251 bsr L126b andb 1,s anda ,s bra L1267 L1251 cmpa #$21 bne L125d bsr L126b orb 1,s ora ,s bra L1267 L125d cmpa #$3f bne L120d bsr L126b eorb 1,s eora ,s L1267 std ,s bra L1243 L126b leax 1,x L126d lda ,x cmpa #$5e bne L1279 bsr L1284 comb coma bra L1283 L1279 cmpa #$2d bne L1286 bsr L1284 nega negb sbca #0 L1283 rts L1284 leax 1,x L1286 lda ,x cmpa #$28 bne L12a2 lbsr L11ce pshs d lda ,x cmpa #$29 puls d beq L12b6 ldb D0007 bra L129d L129d leas 2,s L129f lbra L1207 L12a2 cmpa #$2a bne L12aa ldd D0040 bra L12b6 L12aa tst D005a bne L12b9 cmpa #$2e bne L12b9 ldd D0042 inc D002c L12b6 leax 1,x rts L12b9 cmpa #$27 bne L12c5 ldd ,x++ cmpb #$0d beq L12d6 clra rts L12c5 cmpa #$22 bne L12d9 leax 1,x ldd ,x++ cmpa #$0d beq L12d6 cmpb #$0d beq L12d6 rts L12d6 lbra L1205 L12d9 lbsr L10b4 bcc L12ee beq L12e4 ldb #3 bra L129f L12e4 lbsr L0368 bcs L12d6 lbsr L0fa2 bcs L129f L12ee andcc #254 rts L12f1 lbsr L11c2 bcs L1304 L12f6 rts L12f7 lbsr L11c2 bcs L1304 tsta beq L12f6 inca beq L12f6 ldb #$0e L1304 lbsr L02fa ldd #-1 orcc #1 rts L130d bsr L134d pshs d,x ldx D001b sta ,x+ stx D001b cmpx D0010 bcs L1321 bsr L1323 ldx D000e stx D001b L1321 puls d,x,pc L1323 pshs d,x,y lda D0058 beq L1340 lda D003e beq L1340 ldd D001b subd D000e beq L1340 tfr d,y ldx D000e lda D0019 beq L1340 os9 I$Write bcs L1342 L1340 puls d,x,y,pc L1342 os9 F$PErr ldb #$12 lbsr L02fa lbra L15a2 L134d pshs d,x,y,u leax ,s ldy #1 tfr dp,a ldb #$51 tfr d,u os9 F$CRC puls d,x,y,u,pc L1360 ldd #-1 std D0051 stb D0053 rts L1368 lda D0057 beq L139a lda D0056 bmi L139a L1370 lda D0035 bne L137b pshs x lbsr L1408 puls x L137b bsr L138a lda D003e beq L1387 lda D0056 bmi L1387 dec D0035 L1387 ldx D0004 rts L138a lda D0057 beq L1392 lda D0056 bpl L139a L1392 lda D005c beq L1387 lda D0021 beq L1387 L139a lda D003e beq L1387 pshs a,y bsr L13b8 clra ldb D0037 ldx D0004 leax d,x bsr L13b8 ldx D0004 ldy #$0085 lda D001a os9 I$WritLn puls a,y,pc L13b8 lda #$0d sta ,x+ rts L13bd leas -6,s pshs x leax 2,s os9 F$Time puls x bcs L13f0 lda 1,s bsr L13f7 ldb #$2f stb ,x+ lda 2,s bsr L13f7 stb ,x+ lda ,s bsr L13f7 bsr L13f2 lda 3,s bsr L13f7 ldb #$3a stb ,x+ lda 4,s bsr L13f7 stb ,x+ lda 5,s bsr L13f7 L13f0 leas 6,s L13f2 lda #$20 sta ,x+ rts L13f7 pshs b ldb #$2f L13fb incb suba #$0a bcc L13fb stb ,x+ adda #$3a sta ,x+ puls b,pc L1408 lda D0056 bmi L1476 lda D0059 beq L1414 bsr L147d bra L141a L1414 ldb D0035 addb #3 bsr L1471 L141a ldx D0004 pshs x ldx D0002 stx D0004 ldb D0036 subb #4 stb D0035 lbsr L01e5 leay $0041 L1533 equ *-1 comb tsta abx L1537 pshs d,x,y,u lda D005d beq L1549 leax ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]