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
This website uses cookies. By using the website, you agree with storing cookies on your computer. Also you acknowledge that you have read and understand our Privacy Policy. If you do not agree leave the website.
OK More information about cookies