====== CMP ====== Header for : cmp Module size: $1019 #4121 Module CRC : $4B6613 (Good) Hdr parity : $21 Exec. off : $0A4B #2635 Data size : $0899 #2201 Edition : $32 #50 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of cmp mod L1019,L000d,$11,$81,L0a4b,D0899 * OS-9 system function equates F$Exit equ $06 I$Create equ $83 I$Open equ $84 I$Read equ $89 I$ReadLn equ $8b I$WritLn equ $8c I$Close equ $8f * class D external label equates Dfff2 equ $fff2 Dfff8 equ $fff8 Dfffa equ $fffa Dfffe equ $fffe Dffff equ $ffff * OS9 data area definitions D0000 rmb 1 D0001 rmb 1 D0002 rmb 2 D0004 rmb 1 D0005 rmb 4 D0009 rmb 1 D000a rmb 2 D000c rmb 3 D000f rmb 17 D0020 rmb 5 D0025 rmb 29 D0042 rmb 32 D0062 rmb 1 D0063 rmb 35 D0086 rmb 102 D00ec rmb 1965 D0899 equ . L000d com 13,s subb 13033 L0010 equ *-2 stu 31263 nega addd #$008a std ,--s tfr s,d addd #2 std ,--s ldd 140,s std ,--s lbsr L0084 leas 6,s tfr s,d std ,--s lbsr L0a0e leas 2,s leas 134,s rts L003b leas -134,s tfr s,d addd #$008c std ,--s tfr s,d addd #2 std ,--s ldd 142,s std ,--s lbsr L0084 leas 6,s ldd 136,s std ,--s tfr s,d addd #2 std ,--s lbsr L0a12 leas 4,s leas 134,s rts tfr s,d addd #6 std ,--s ldd 4,s std ,--s ldd 8,s std ,--s lbsr L0084 leas 6,s rts L0084 leas -4,s leas -2,s L0088 ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s lbeq L03ad ldb 5,s sex std ,--s ldd #$0025 cmpd ,s++ lbne L0398 ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s ldb 5,s sex std ,--s ldd #$0020 ora ,s+ orb ,s+ std ,--s ldd #$002d cmpd ,s++ lbne L00dd ldd #1 lbra L00e2 L00dd clra clrb lbra L00e2 L00e2 std 1172,u lbeq L00fc ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s L00fc clra clrb std 1062,u std 1068,u ldd #$0020 stb 1176,u ldb 5,s sex std ,--s ldd #$0030 cmpd ,s++ lbne L0135 ldd #$0030 stb 1176,u ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s L0135 ldb 5,s sex std ,--s ldd #$0030 cmpd ,s++ lbgt L018c ldb 5,s sex std ,--s ldd #$0039 cmpd ,s++ lblt L018c ldd 1068,u std ,--s ldd #$000a lbsr L06a8 std ,--s ldb 7,s sex std ,--s ldd #$0030 puls x pshs d tfr x,d subd ,s++ addd ,s++ std 1068,u ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s lbra L0135 L018c ldb 5,s sex std ,--s ldd #$002e cmpd ,s++ lbne L0204 ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s L01ad ldb 5,s sex std ,--s ldd #$0030 cmpd ,s++ lbgt L0204 ldb 5,s sex std ,--s ldd #$0039 cmpd ,s++ lblt L0204 ldd 1062,u std ,--s ldd #$000a lbsr L06a8 std ,--s ldb 7,s sex std ,--s ldd #$0030 puls x pshs d tfr x,d subd ,s++ addd ,s++ std 1062,u ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s lbra L01ad L0204 clra clrb std ,s ldb 5,s sex std ,--s ldd #$0020 ora ,s+ orb ,s+ std ,--s ldd #$006c cmpd ,s++ lbne L0226 ldd #1 lbra L022b L0226 clra clrb lbra L022b L022b std 1170,u lbeq L025a ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s ldd 12,s std ,--s std ,--s ldd #2 addd ,s++ std 14,s ldd ,s++ tfr d,x ldd ,x std ,s L025a leax L037d,pcr stx ,--s ldb 7,s sex std ,--s ldd #$0020 ora ,s+ orb ,s+ lbsr L0687 lbra L0395 tfr s,d addd #$000a std ,--s ldd #$000a std ,--s ldd 16,s std ,--s std ,--s ldd #2 addd ,s++ std 18,s ldd ,s++ tfr d,x ldd ,x std ,--s ldd 6,s std ,--s lbsr L03bb leas 8,s lbra L0395 tfr s,d addd #$000a std ,--s ldd #8 std ,--s ldd 16,s std ,--s std ,--s ldd #2 addd ,s++ std 18,s ldd ,s++ tfr d,x ldd ,x std ,--s ldd 6,s std ,--s lbsr L03bb leas 8,s lbra L0395 tfr s,d addd #$000a std ,--s ldd #$0010 std ,--s ldd 16,s std ,--s std ,--s ldd #2 addd ,s++ std 18,s ldd ,s++ tfr d,x ldd ,x std ,--s ldd 6,s std ,--s lbsr L03bb leas 8,s lbra L0395 ldd 10,s std ,--s addd #1 std 12,s ldd ,s++ std ,--s ldd 14,s std ,--s std ,--s ldd #2 addd ,s++ std 16,s ldd ,s++ tfr d,x ldd ,x stb [,s++] lbra L0395 ldd 12,s std ,--s std ,--s ldd #2 addd ,s++ std 14,s ldd ,s++ tfr d,x ldd ,x std 2,s L033a ldd 2,s std ,--s addd #1 std 4,s ldd ,s++ tfr d,x ldb ,x sex stb 5,s lbeq L0365 ldd 10,s std ,--s addd #1 std 12,s ldd ,s++ std ,--s ldb 7,s sex stb [,s++] lbra L033a L0365 lbra L0395 ldd 10,s std ,--s addd #1 std 12,s ldd ,s++ std ,--s ldb 7,s sex stb [,s++] lbra L0395 L037d neg D0005 stu $eb00 fcb $64 ldu -2816 fcb $6f stu $2400 asl -173 neg D0063 stu $8200 com >-88 L0395 lbra L03aa L0398 ldd 10,s std ,--s addd #1 std 12,s ldd ,s++ std ,--s ldb 7,s sex stb [,s++] L03aa lbra L0088 L03ad ldd 10,s std ,--s clra clrb stb [,s++] ldd #1 leas 6,s rts L03bb leas -12,s leas -6,s ldd 26,s tfr d,x ldd ,x std 16,s tfr s,d addd #6 std 14,s ldx 20,s ldd 22,s std ,--s stx ,--s clra clrb ldx #0 cmpx ,s++ bne L03e6 cmpd ,s L03e6 leas 2,s lble L0401 ldd 24,s std ,--s ldd #$000a cmpd ,s++ lbne L0401 ldd #1 lbra L0406 L0401 clra clrb lbra L0406 L0406 std 2,s lbeq L0427 ldx 20,s ldd 22,s coma comb exg d,x coma comb leax 1,x beq L041f addd #1 L041f exg d,x stx 20,s std 22,s L0427 ldx 20,s ldd 22,s std ,--s stx ,--s clra clrb ldx #0 cmpx ,s++ bne L043d cmpd ,s L043d leas 2,s lbne L0459 ldd 14,s std ,--s addd #1 std 16,s ldd ,s++ std ,--s ldd #$0030 stb [,s++] lbra L04e0 L0459 ldx 20,s ldd 22,s lbeq L04e0 ldx 20,s ldd 22,s std ,--s stx ,--s ldd 28,s ldx #0 lbsr L07d2 ldx ,s++ ldd ,s++ std ,s ldd ,s std ,--s ldd #$000a cmpd ,s++ lble L0498 ldd ,s std ,--s ldd #$0030 addd ,s++ std ,s lbra L04b0 L0498 ldd ,s std ,--s ldd #$0041 std ,--s ldd #$000a puls x pshs d tfr x,d subd ,s++ addd ,s++ std ,s L04b0 ldd 14,s std ,--s addd #1 std 16,s ldd ,s++ std ,--s ldd 2,s stb [,s++] ldx 20,s ldd 22,s std ,--s stx ,--s ldd 28,s ldx #0 lbsr L07d2 leas 4,s stx 20,s std 22,s lbra L0459 L04e0 ldd 14,s std ,--s tfr s,d addd #8 puls x pshs d tfr x,d subd ,s++ std 4,s ldd 1068,u std ,--s ldd 6,s puls x pshs d tfr x,d subd ,s++ std 1068,u std ,--s clra clrb cmpd ,s++ lbge L0592 ldd 2,s lbeq L0550 ldd 1068,u std ,--s subd #1 std 1068,u ldd ,s++ ldb 1176,u sex std ,--s ldd #$0030 cmpd ,s++ lbne L0550 ldd 16,s std ,--s addd #1 std 18,s ldd ,s++ std ,--s ldd #$002d stb [,s++] clra clrb std 2,s L0550 ldd 1172,u std ,--s clra clrb cmpd ,s++ lbne L0592 L055f ldd 1068,u std ,--s subd #1 std 1068,u ldd ,s++ std ,--s clra clrb cmpd ,s++ lbge L0592 ldd 16,s std ,--s addd #1 std 18,s ldd ,s++ std ,--s ldb 1176,u sex stb [,s++] lbra L055f L0592 ldd 2,s lbeq L05ac ldd 16,s std ,--s addd #1 std 18,s ldd ,s++ std ,--s ldd #$002d stb [,s++] L05ac ldd 4,s std ,--s subd #1 std 6,s ldd ,s++ std ,--s clra clrb cmpd ,s++ lbge L05e4 ldd 16,s std ,--s addd #1 std 18,s ldd ,s++ std ,--s ldd 16,s subd #1 std 16,s tfr d,x ldb ,x sex stb [,s++] lbra L05ac L05e4 ldd 1068,u std ,--s subd #1 std 1068,u ldd ,s++ std ,--s clra clrb cmpd ,s++ lbge L0617 ldd 16,s std ,--s addd #1 std 18,s ldd ,s++ std ,--s ldb 1176,u sex stb [,s++] lbra L05e4 L0617 ldd 26,s std ,--s ldd 18,s std [,s++] leas 18,s rts clra clrb std ,--s lbsr L0984 leas 2,s rts ldd #1 std ,--s ldb 5,s sex std ,--s lbsr L09a9 leas 4,s rts L063f ldd 1174,u tfr d,x ldb ,x sex rts lbsr L063f std -2,s lbeq L0663 ldd 1174,u std ,--s ldd #1 addd ,s++ tfr d,x ldb ,x sex rts L0663 clra clrb rts lbsr L063f std -2,s lbeq L0684 ldd 1174,u std ,--s addd #1 std 1174,u ldd ,s++ tfr d,x ldb ,x sex rts L0684 clra clrb rts L0687 ldx 2,s ldy ,x beq L0699 L068e leax 4,x cmpd ,x beq L069b leay Dffff,y bne L068e L0699 ldx 2,s L069b ldd 2,x lbeq L0918 addd 2,s std ,s lbra L0918 L06a8 clr ,-s tsta bpl L06b4 com ,s comb coma addd #1 L06b4 tfr d,y ldd 3,s bpl L06c1 com ,s comb coma addd #1 L06c1 ldx #0 pshs d pshs x tfr y,d bsr L0747 L06cc tst ,s+ lbeq L0918 comb coma addd #1 lbra L0918 ldx 2,s pshs x ldx #0 pshs x bsr L0747 lbra L0918 clr ,-s exg x,d tsta blt L06f3 exg d,x bra L0702 L06f3 com ,s coma comb exg d,x coma comb addd #1 bcc L0702 leax 1,x L0702 tfr d,y tst 3,s bpl L0721 com ,s com 6,s com 5,s com 4,s com 3,s ldd 5,s addd #1 std 5,s ldd 3,s adcb #0 adca #0 std 3,s L0721 ldd 5,s pshs d ldd 5,s pshs d tfr y,d bsr L0747 tst ,s+ lbeq L091f coma comb exg x,d coma comb exg d,x addd #1 lbhs L091f leax 1,x lbra L091f L0747 ldy #0 pshs y pshs y L074f stx -2,s bne L0757 std -2,s beq L077d L0757 exg x,d lsra rorb exg d,x rora rorb bcc L0773 pshs d ldd 4,s addd 10,s std 4,s ldd 2,s adcb 9,s adca 8,s std 2,s puls d L0773 asl 9,s rol 8,s rol 7,s rol 6,s bra L074f L077d puls x puls d lbra L091f clr ,-s tsta bpl L0790 com ,s comb coma addd #1 L0790 tfr d,y ldd 3,s bpl L079d com ,s comb coma addd #1 L079d ldx #0 pshs d pshs x tfr y,d lbsr L0851 ldx 2,s leas 4,s tst 3,s lbpl L06cc exg x,d comb coma addd #1 exg x,d lbra L06cc ldx 2,s pshs x ldx #0 pshs x lbsr L0851 ldx 2,s leas 4,s lbra L0918 L07d2 clr ,-s tsta bpl L07e8 com ,s comb coma exg x,d comb coma exg d,x addd #1 bcc L07e8 leax 1,x L07e8 tfr d,y tst 3,s bpl L0807 com ,s com 6,s com 5,s com 4,s com 3,s ldd 5,s addd #1 std 5,s ldd 3,s adcb #0 adca #0 std 3,s L0807 ldd 5,s pshs d ldd 5,s pshs d tfr y,d bsr L0851 tst 4,s bpl L0826 comb coma exg x,d comb coma exg d,x addd #1 bcc L0826 leax 1,x L0826 tfr d,y tst 7,s bpl L0844 com 3,s com 2,s com 1,s com ,s ldd 2,s addd #1 std 2,s bcc L0844 ldd ,s addd #1 std ,s L0844 ldd ,s++ std 5,s ldd ,s++ std 5,s leas 1,s tfr y,d rts L0851 ldy #0 pshs y pshs y cmpx 6,s bhi L0864 bcs L0869 cmpd 8,s bls L0869 L0864 ldx ,s++ ldd ,s++ rts L0869 leay D0001,y cmpx 6,s bhi L0882 bcs L0878 cmpd 8,s bhi L0882 beq L088c L0878 lslb rola exg x,d rolb rola exg d,x bra L0869 L0882 exg x,d lsra rorb exg d,x rora rorb leay Dffff,y L088c pshs x ldx 10,s std 10,s ldd ,s stx ,s ldx 8,s std 8,s puls d L089c asl 3,s rol 2,s rol 1,s rol ,s cmpx 6,s bhi L08af bcs L08bb cmpd 8,s bcs L08bb L08af subd 8,s exg d,x sbcb 7,s sbca 6,s exg d,x inc 3,s L08bb lsr 6,s ror 7,s ror 8,s ror 9,s leay Dffff,y bne L089c stx 6,s std 8,s ldx ,s++ ldd ,s++ rts tfr d,x ldd 2,s leax ,x L08d6 beq L0918 lsra rorb leax -1,x bra L08d6 tfr d,y ldx 2,s ldd 4,s leay ,y L08e6 beq L091f exg x,d lsra rorb exg x,d rora rorb leay Dffff,y bra L08e6 L08f4 tfr d,x ldd 2,s leax ,x L08fa beq L0918 lslb rola leax -1,x bra L08fa tfr d,y ldx 2,s ldd 4,s leay ,y L090a beq L091f lslb rola exg x,d rolb rola exg d,x leay Dffff,y bra L090a L0918 ldy ,s++ sty ,s rts L091f ldy ,s++ sty 2,s leas 2,s rts leax >L092f,pcr tfr x,d rts L092f ble L0995 leax D000f,y rol 14,s com 12,s fcb $75 lsr 5,s ble L093c L093c tfr u,d rts ldd #$0499 rts tfr s,d pshs u subd ,s++ subd #$0499 rts L094d ldb [4,s] lda #1 cmpb #$72 beq L0960 lda #2 cmpb #$77 beq L0960 L095c ldd #0 rts L0960 ldx 2,s pshs a os9 I$Open bcc L0976 lda ,s bita #2 beq L0976 ldb #$0b ldx 3,s os9 I$Create L0976 puls b bcs L095c tfr a,b clra rts lda 3,s os9 I$Close rts L0984 lda 3,s leas -2,s tfr s,x ldy #1 os9 I$Read bcc L0997 ldb #255 L0995 bra L099b L0997 ldb ,s andb #$7f L099b sex leas 2,s cmpb #$0a beq L0984 cmpb #$0d bne L09a8 ldb #$0a L09a8 rts L09a9 lda 5,s ldb 3,s cmpb #9 bne L09c0 L09b1 ldb #$20 bsr L09e4 bcs L09e0 ldb >0,u cmpb #1 bne L09b1 rts L09c0 cmpb #$0a beq L09c8 cmpb #$0d bne L09d2 L09c8 ldb #1 stb >0,u ldb #$0d bra L09dc L09d2 asl >0,u bne L09dc inc >0,u L09dc bsr L09e4 bcc L09e2 L09e0 ldb #255 L09e2 sex rts L09e4 pshs d leax 1,s ldy #1 os9 I$WritLn puls d,pc clra bra L09f6 lda 7,s L09f6 ldx 2,s ldy 4,s os9 I$ReadLn bcs L0a09 leay Dffff,y tfr y,d clr d,x ldd 2,s rts L0a09 ldd #-1 rts L0a0d tst D0086 L0a0e equ *-1 fcb $01 bra L0a14 L0a12 lda 5,s L0a14 ldx 2,s L0a16 leay ,x L0a18 ldb ,x+ beq L0a37 cmpb #$0a beq L0a24 cmpb #$0d bne L0a18 L0a24 pshs x bsr L0a37 leax >L0a0d,pcr ldy #1 os9 I$WritLn puls x bra L0a16 L0a37 pshs a,y leax -1,x tfr x,d subd 1,s tfr d,y puls a,x leay ,y beq L0a4a os9 I$WritLn L0a4a rts L0a4b clrb ldb #1 stb >0,u L0a52 lda ,x+ cmpa #$20 beq L0a52 cmpa #$0d beq L0a71 incb leay -1,x pshs y L0a61 lda ,x+ cmpa #$20 bne L0a6b clr -1,x bra L0a52 L0a6b cmpa #$0d bne L0a61 clr -1,x L0a71 leax L000d,pcr pshs x clra leax ,s pshs d,x subb #2 bls L0a9d leax 2,x lslb leay b,x L0a85 lda ,x ldb ,y sta ,y stb ,x+ lda ,x ldb D0001,y sta D0001,y stb ,x+ leay Dfffe,y pshs y cmpx ,s++ bcs L0a85 L0a9d lbsr L0aa4 L0aa0 clrb os9 F$Exit L0aa4 leas -4,s leas -4,s leax >6,u tfr x,d std ,--s ldd #2 addd ,s++ std ,--s leax >6,u tfr x,d std ,--s clra clrb addd ,s++ std ,--s leax >6,u tfr x,d std ,--s ldd #4 addd ,s++ std ,--s leax >38,u tfr x,d std [,s++] std [,s++] std [,s++] leax >20,u tfr x,d std ,--s ldd #2 addd ,s++ std ,--s leax >20,u tfr x,d std ,--s clra clrb addd ,s++ std ,--s leax >20,u tfr x,d std ,--s ldd #4 addd ,s++ std ,--s leax 550,u tfr x,d std [,s++] std [,s++] std [,s++] leax >6,u tfr x,d std ,--s ldd #$000a addd ,s++ std ,--s leax >20,u tfr x,d std ,--s ldd #$000a addd ,s++ std ,--s ldd #$0200 std [,s++] std [,s++] leax >6,u tfr x,d std ,--s ldd #6 addd ,s++ std ,--s leax >20,u tfr x,d std ,--s ldd #6 addd ,s++ std ,--s clra clrb std [,s++] std [,s++] ldd #1 std 6,s L0b66 ldd 6,s std ,--s ldd 12,s cmpd ,s++ lble L0d22 ldd 12,s std ,--s ldd 8,s std ,--s addd #1 std 10,s ldd ,s++ std ,--s ldd #1 lbsr L08f4 addd ,s++ tfr d,x ldd ,x std ,s ldd ,s std ,--s ldd ,s++ tfr d,x ldb ,x sex std ,--s ldd #$002d cmpd ,s++ lbne L0c1c ldd ,s std ,--s ldd #1 addd ,s++ tfr d,x ldb ,x sex lbeq L0c1c ldd #1 std 4,s ldd ,s std ,--s ldd 6,s std ,--s addd #1 std 8,s ldd ,s++ addd ,s++ tfr d,x ldb ,x sex stb 3,s lbeq L0c19 leax >L0c12,pcr stx ,--s ldb 5,s sex std ,--s ldd #$0020 ora ,s+ orb ,s+ lbsr L0687 lbra L0c16 ldb 3,s sex std ,--s leax L0ef0,pcr tfr x,d std ,--s lbsr L0010 leas 4,s clra clrb std ,--s lbsr L0aa0 leas 2,s lbra L0c16 L0c12 neg D0000 stu $e216 L0c16 equ *-1 stu $a716 L0c19 equ *-1 fcb $01 com D00ec L0c1c equ *-1 andb Lf00d,pcr cmpb -1,x fcb $01 ldb ,x sex std ,--s ldd #$002d cmpd ,s++ lbne L0c42 leax L0f09,pcr tfr x,d std ,s clra clrb std 4,s lbra L0c7a L0c42 leax L0f18,pcr tfr x,d std ,--s ldd 2,s std ,--s lbsr L094d leas 4,s std 4,s std ,--s clra clrb cmpd ,s++ lbne L0c7a ldd ,s std ,--s leax L0f1a,pcr tfr x,d std ,--s lbsr L0010 leas 4,s clra clrb std ,--s lbsr L0aa0 leas 2,s L0c7a leax >6,u tfr x,d std ,--s ldd #6 addd ,s++ tfr d,x ldd ,x std ,--s clra clrb cmpd ,s++ lbne L0cbf leax >6,u tfr x,d std ,--s ldd #6 addd ,s++ std ,--s ldd 2,s std [,s++] leax >6,u tfr x,d std ,--s ldd #8 addd ,s++ std ,--s ldd 6,s std [,s++] lbra L0d1f L0cbf leax >20,u tfr x,d std ,--s ldd #6 addd ,s++ tfr d,x ldd ,x std ,--s clra clrb cmpd ,s++ lbne L0d04 leax >20,u tfr x,d std ,--s ldd #6 addd ,s++ std ,--s ldd 2,s std [,s++] leax >20,u tfr x,d std ,--s ldd #8 addd ,s++ std ,--s ldd 6,s std [,s++] lbra L0d1f L0d04 leax L0f2b,pcr tfr x,d std ,--s ldd #2 std ,--s lbsr L003b leas 4,s clra clrb std ,--s lbsr L0aa0 leas 2,s L0d1f lbra L0b66 L0d22 clra clrb ldx #0 stx 1064,u std 1066,u stx >34,u std >36,u leax L0f48,pcr tfr x,d std ,--s lbsr L0010 leas 2,s L0d44 leax >6,u tfr x,d std ,--s lbsr L0fea leas 2,s std >2,u std ,--s ldd #-1 cmpd ,s++ lbeq L0e18 leax >20,u tfr x,d std ,--s lbsr L0fea leas 2,s std >4,u std ,--s ldd #-1 cmpd ,s++ lbeq L0e18 ldd >2,u std ,--s ldd >4,u cmpd ,s++ lbeq L0dfa ldx 1064,u ldd 1066,u std ,--s stx ,--s addd #1 exg d,x adcb #0 adca #0 exg d,x stx 1064,u std 1066,u ldx ,s++ ldd ,s++ std ,--s stx ,--s clra clrb ldx #0 cmpx ,s++ bne L0dc2 cmpd ,s L0dc2 leas 2,s lbne L0dd5 leax L0f57,pcr tfr x,d std ,--s lbsr L0010 leas 2,s L0dd5 ldd >4,u std ,--s ldd >2,u std ,--s ldx >34,u ldd >36,u std ,--s stx ,--s leax L0f79,pcr tfr x,d std ,--s lbsr L0010 leas 10,s L0dfa ldx >34,u ldd >36,u addd #1 exg d,x adcb #0 adca #0 exg d,x stx >34,u std >36,u lbra L0d44 L0e18 ldx 1064,u ldd 1066,u std ,--s stx ,--s clra clrb ldx #0 cmpx ,s++ bne L0e30 cmpd ,s L0e30 leas 2,s lbne L0e43 leax L0f8b,pcr tfr x,d std ,--s lbsr L0010 leas 2,s L0e43 ldx >34,u ldd >36,u std ,--s stx ,--s leax L0f99,pcr tfr x,d std ,--s lbsr L0010 leas 6,s ldx 1064,u ldd 1066,u std ,--s stx ,--s leax L0fb3,pcr tfr x,d std ,--s lbsr L0010 leas 6,s ldd >2,u std ,--s ldd #-1 cmpd ,s++ lbne L0ecd leax >20,u tfr x,d std ,--s lbsr L0fea leas 2,s std ,--s ldd #-1 cmpd ,s++ lbne L0eaa clra clrb std ,--s lbsr L0aa0 leas 2,s lbra L0eca L0eaa leax >20,u tfr x,d std ,--s ldd #6 addd ,s++ tfr d,x ldd ,x std ,--s leax L0fcc,pcr tfr x,d std ,--s lbsr L0010 leas 4,s L0eca lbra L0eed L0ecd leax >6,u tfr x,d std ,--s ldd #6 addd ,s++ tfr d,x ldd ,x std ,--s leax L0fdb,pcr tfr x,d std ,--s lbsr L0010 leas 4,s L0eed leas 8,s rts L0ef0 coma tst -16,s abx bra L0f6b jmp 11,s jmp 15,s asr $6e20 clr -16,s lsr $696f fcb $6e bra L0f32 bcs L0f6a dec D0000 L0f09 com 29793 jmp 4,s fcb $61 fcb $72 fcb $64 bra L0f7c jmp -16,s fcb $75 lsr >$0072 L0f18 equ *-1 neg D0063 L0f1a equ *-1 fcb $61 jmp 14,s clr -12,s bra L0f91 neg $656e abx bra L0f4d com $0a00 L0f2b fcb $75 com $653a bra L0f94 tst -16,s L0f32 equ *-1 bra L0fb0 blt L0fa6 neg 29821 bra L0fac fcb $61 lsr $6831 bra L0fb2 fcb $61 lsr $6832 dec D0000 L0f48 dec D0020 lsra rol 6,s L0f4d ror 5,s fcb $72 fcb $65 jmp 3,s fcb $65 com $0a00 L0f57 dec D0062 rol 29797 bra L0f7e bra L0f80 bra L0f82 bls L0f95 bra L0f89 leas 10,x mul mul L0f6a mul L0f6b mul mul mul mul mul bra L0f92 mul mul bra L0fb3 mul dec D0000 L0f79 bcs L0fab fcb $38 L0f7c inc -8,s L0f7e bra L0fa0 L0f80 bcs L0fb2 L0f82 leas -8,s bra L0fab leax Dfff2,y asl $0a00 L0f89 equ *-2 L0f8b dec D0020 bra L0faf fcb $4e clr 14,s L0f91 equ *-1 L0f92 fcb $65 bra L0fc3 L0f94 equ *-1 L0f95 bgt L0fc5 dec D0000 L0f99 dec D0042 rol 29797 com $2063 L0fa0 equ *-1 clr 13,s neg $6172 L0fa6 fcb $65 lsr Dfffa,y bra L0fcb L0fab bra L0fd2 L0fac equ *-1 leax Dfff8,y L0faf inc -8,s L0fb0 equ *-1 dec D0000 L0fb2 equ *-1 L0fb3 fcb $42 rol 29797 com $2064 rol 6,s ror 5,s fcb $72 fcb $65 jmp -12,s abx L0fc3 bra L0fe5 L0fc5 bcs L0ff7 fcb $38 inc -8,s dec D0000 L0fcb equ *-1 L0fcc dec D0025 com $2069 com $206c L0fd2 equ *-2 clr 14,s asr 5,s fcb $72 dec D0000 L0fdb dec D0025 com $2069 com $206c clr 14,s L0fe5 asr 5,s fcb $72 dec D0000 L0fea ldy 2,s ldx ,y cmpx D0004,y bcs L100c lda D0009,y ldx D0002,y L0ff7 ldy D000a,y os9 I$Read bcs L1012 tfr y,d ldy 2,s std D000c,y addd D0002,y std D0004,y ldx D0002,y L100c ldb ,x+ clra stx ,y rts L1012 ldd #-1 rts emod L1019 equ * end ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]