DEL
Header for : Del
Module size: $A5 #165
Module CRC : $8F70C4 (Good)
Hdr parity : $8D
Exec. off : $0035 #53
Data size : $01C3 #451
Edition : $05 #5
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O
CODE
* Disassembly by Os9disasm of del
mod L00a5,L000d,$11,$81,L0035,D01c3
* OS-9 system function equates
F$Exit equ $06
I$WritLn equ $8c
I$DeletX equ $90
* class D external label equates
Dfffe equ $fffe
* OS9 data area definitions
D0000 rmb 39
D0027 rmb 46
D0055 rmb 81
D00a6 rmb 285
D01c3 equ .
L000d lsra
fcb $65
ldd 5,x
L0011 dec D0055
com $653a
bra L005c
fcb $65
fcb $6c
bra L0077
blt L0096
tstb
bra L005d
neg $6174
asl Dfffe,y
bra L00a3
cwai #$70
fcb $61
lsr $683e
tst $205b
blt L00ab
tstb
tst D00a6
L0035 equ *-1
anda #$81
tst D0027
lslb
lda #1
sta D0000
bsr L0054
leax -1,x
L0043 lda D0000
os9 I$DeletX
bcs L0051
lda ,x
cmpa #$0d
bne L0043
clrb
L0051 os9 F$Exit
L0054 lda ,x+
cmpa #$20
beq L0054
cmpa #$2c
L005c beq L0054
L005d equ *-1
cmpa #$2d
bne L0067
bsr L0086
leax 1,x
rts
L0067 pshs x
L0069 lda ,x+
cmpa #$20
beq L0069
cmpa #$2c
beq L0069
cmpa #$2d
beq L007e
L0077 cmpa #$0d
bne L0069
L007b puls x
rts
L007e bsr L0086
lda #$0d
sta -2,x
bra L007b
L0086 lda ,x+
eora #$58
anda #$df
bne L0093
lda #4
sta D0000
rts
L0093 leax L0011,pcr
L0096 equ *-1
ldy #$0050
clra
os9 I$WritLn
clrb
bra L0051
emod
L00a5 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