====== DUMP ====== Header for : Dump Module size: $24E #590 Module CRC : $4AF9F5 (Good) Hdr parity : $64 Exec. off : $0124 #292 Data size : $0125 #293 Edition : $04 #4 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of dump mod L024e,L000d,$11,$81,L0124,D0125 * OS-9 system function equates F$Exit equ $06 I$Create equ $83 I$Open equ $84 I$Read equ $89 I$WritLn equ $8c * 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 2 D0009 rmb 1 D000a rmb 1 D000b rmb 21 D0020 rmb 13 D002d rmb 7 D0034 rmb 7 D003b rmb 2 D003d rmb 4 D0041 rmb 27 D005c rmb 74 D00a6 rmb 127 D0125 equ . L000d lsra fcb $75 fcb $6d subb $0441 L0012 equ *-1 lsr 4,s fcb $72 bra L0038 bra L004a bra L004d bra L003e fcb $32 bra L0054 bra L0043 pshs y puls y bra L005f bra L0062 bra L004d fcb $38 bra L0069 bra L0052 fcb $41 bra L0077 bra L0057 coma L0038 bra L007e bra L005c fcb $45 bra L0085 L003e equ *-1 bra L0061 fcb $30 bra L0076 L0043 equ *-1 bra L007a bra L007e bra L0082 L004a bra L008d bra L0091 L004d equ *-1 bra L0095 tst D002d L0051 equ *-1 L0052 blt L0081 L0054 blt L0076 bra L0085 L0057 equ *-1 blt L0087 blt L007c L005c blt L008b blt L008d L005f equ *-1 bra L008f L0061 equ *-1 L0062 blt L0091 blt L0086 blt L0095 blt L0097 L0069 equ *-1 bra L0099 blt L009b blt L0090 blt L009f blt L00a1 bra L00a3 L0076 blt L00a5 L0077 equ *-1 blt L009a L007a blt L00a9 L007c blt L00ab L007e bra L00a0 blt L00af L0081 equ *-1 L0082 blt L00b1 blt L00b3 L0085 equ *-1 L0086 blt L00b5 L0087 equ *-1 blt L00b7 blt L00b9 L008b equ *-1 blt L00bb L008d equ *-1 blt L00bd L008f equ *-1 L0090 tst D000a L0091 equ *-1 dec D000a dec D0020 L0095 equ *-1 bra L00b8 L0097 equ *-1 bra L00ba L0099 equ *-1 L009a fcb $30 L009b bra L00ce bra L00d1 L009f bra L00d4 L00a0 equ *-1 L00a1 bra L00d7 L00a3 bra L00da L00a5 bra L00dd bra L00e0 L00a9 bra L00cb L00ab fcb $30 bra L00e0 bra L00e4 L00af equ *-1 bra L00e8 L00b1 equ *-1 dec D0041 L00b3 equ *-1 lsra L00b5 lsra fcb $52 L00b7 bra L00f1 L00b8 equ *-1 L00b9 bra L00f4 L00ba equ *-1 L00bb bra L00fe L00bd bra L0101 bra L0104 bra L0107 bra L010a bra L010d bra L00e9 fcb $38 bra L010d L00cb equ *-1 bra L0111 L00ce bra L0115 tst D003d L00d1 equ *-1 mul mul L00d4 mul bra L0102 L00d7 blt L0104 blt L0106 L00da equ *-1 blt L0108 L00dd blt L010a blt L010c L00e0 equ *-1 blt L010e blt L0110 L00e4 equ *-1 blt L0107 bmi L0109 L00e8 equ *-1 L00e9 bmi L010b bmi L010d bmi L010f tst D0034 L00f0 equ *-1 L00f1 lsr D00a6 L00f2 equ *-1 suba #$81 L00f4 equ *-1 bra L011e orb 12319 cmpa #$2d bne L0120 L00fe ldb 1,x cmpb #$4c L0101 equ *-1 L0102 beq L0108 L0104 cmpb #$6c L0106 bne L0112 L0107 equ *-1 L0108 leax 2,x L0109 equ *-1 L010a inc D0000 L010b equ *-1 L010c ldb #$1f L010d equ *-1 L010e stb D000b L010f equ *-1 L0110 bra L00f2 L0111 equ *-1 L0112 cmpb #$48 beq L011a L0115 equ *-1 cmpb #$68 bne L0122 L011a clr D0001 leax 2,x L011e bra L00f2 L0120 cmpa #$0d L0122 puls b,pc L0124 lda #$3f sta D000b ldd #1 sta D0000 stb D0001 std D0002 bsr L00f0 beq L0151 lda #1 os9 I$Open lblo L020c sta D0002 bsr L00f0 beq L0151 lda #2 ldb #$0b os9 I$Create lblo L020c sta D0003 L0151 ldd #0 L0154 std D0004 tst D0001 beq L018b tst D0000 bne L0164 bitb #$3f bne L018b bra L0167 L0164 tstb bne L018b L0167 leax L0090,pcr lbsr L01fd leax L0012,pcr tst D0000 bne L017a leax L0091,pcr L017a lbsr L01fd leax L0051,pcr tst D0000 bne L0189 leax L00d1,pcr L0189 bsr L01fd L018b leax 29,u lda #$20 ldb D000b L0192 sta ,x+ decb bne L0192 leax 29,u stx D0007 lda D0004 bsr L020f lda D0005 bsr L020f leax 35,u stx D0007 leax 76,u stx D0009 ldy #$0010 tst D0000 bne L01c4 leax 34,u stx D0007 leax 51,u stx D0009 ldy #8 L01c4 leax 13,u lda D0002 os9 I$Read bcs L0207 tfr y,d stb D0006 L01d1 bsr L0231 decb beq L01e3 bsr L0231 tst D0000 beq L01e0 lda #$20 bsr L0227 L01e0 decb bne L01d1 L01e3 lda #$0d sta D005c tst D0000 bne L01ed sta D003b L01ed leax 29,u bsr L01fd bcs L020c ldd D0004 addb D0006 adca #0 lbra L0154 L01fd ldy #$0050 lda D0003 os9 I$WritLn rts L0207 cmpb #$d3 bne L020c clrb L020c os9 F$Exit L020f pshs a lsra lsra lsra lsra bsr L021d lda ,s bsr L021d puls a,pc L021d anda #$0f cmpa #9 bls L0225 adda #7 L0225 adda #$30 L0227 pshs x ldx D0007 sta ,x+ stx D0007 puls x,pc L0231 lda ,x+ bsr L020f pshs a,x anda #$7f cmpa #$20 bcs L0241 cmpa #$7e bcs L0243 L0241 lda #$2e L0243 ldx D0009 sta ,x+ stx D0009 puls a,x,pc emod L024e equ * end ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]