SETIME
Header for : Setime
Module size: $118 #280
Module CRC : $E43C1B (Good)
Hdr parity : $31
Exec. off : $007F #127
Data size : $0200 #512
Edition : $08 #8
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O
CODE
* Disassembly by Os9disasm of setime
mod L0118,L000d,$11,$81,L007f,D0200
* OS-9 system function equates
F$Exit equ $06
F$STime equ $16
I$ReadLn equ $8b
I$WritLn equ $8c
* class D external label equates
Dfffa equ $fffa
* OS9 data area definitions
rmb 7
D0007 rmb 3
D000a rmb 5
D000f rmb 17
D0020 rmb 480
D0200 equ .
L000d comb
fcb $65
lsr $696d
bitb 8,x
L0014 dec D000a
asr D0020
bra L0058
fcb $3e
bra L006b
fcb $6f
bra L0063
inc 15,s
com 11,s
bra L0093
clr 4,s
fcb $75
inc 5,s
bra L0093
clr -11,s
jmp 4,s
bra L006f
cwai #$0a
dec D000a
L0036 equ *-1
dec D0007
bra L005b
fcb $3e
fcb $3e
bra L0082
inc 15,s
com 11,s
bra L008e
jmp 9,s
lsr $6961
inc 9,s
dec $6174
rol 15,s
fcb $6e
bra L0099
fcb $72
fcb $72
clr -14,s
L0058 com $203c
L005b cwai #$0a
dec D000a
L005e equ *-1
bra L0081
bra L0083
L0063 bra L0085
bra L00e0
rol $2f6d
tst D000f,y
L006b equ *-1
lsr 4,s
bra L00d8
L006f equ *-1
asl Dfffa,y
tst 13,s
abx
com 29450
lsrb
rol 13,s
fcb $65
bra L00bd
bra L0090
L007f equ *-1
subd #2
L0081 equ *-2
L0082 equ *-1
L0083 bcc L00a3
L0085 leas -20,s
leax >L005e,pcr
ldy #$0021
L008e equ *-2
L0090 lda #1
os9 I$WritLn
L0093 equ *-2
leax ,s
lda #$0d
L0099 sta ,x
ldy #$0013
clra
os9 I$ReadLn
L00a3 leas -6,s
bsr L00e3
stb ,s
bsr L00e3
stb 1,s
bsr L00e3
stb 2,s
bsr L00e3
stb 3,s
bsr L00e3
stb 4,s
bsr L00e3
stb 5,s
L00bd leax ,s
os9 F$STime
bcc L00df
cmpb #$ea
bne L00d2
leax L0014,pcr
ldy #$0022
bra L00da
L00d2 leax L0036,pcr
ldy #$0028
L00d8 equ *-2
L00da lda #1
os9 I$WritLn
L00df clrb
L00e0 os9 F$Exit
L00e3 clrb
bsr L0101
bsr L0101
lda ,x+
cmpa #$20
beq L0100
cmpa #$2f
beq L0100
cmpa #$3a
beq L0100
cmpa #$2c
beq L0100
cmpa #$2e
beq L0100
leax -1,x
L0100 rts
L0101 lda ,x
suba #$30
bcs L0114
cmpa #9
bhi L0114
leax 1,x
pshs a
lda #$0a
mul
addb ,s+
L0114 rts
emod
L0118 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