Header for : Date
Module size: $FD  #253
Module CRC : $2B6204 (Good)
Hdr parity : $D5
Exec. off  : $0070  #112
Data size  : $01C0  #448
Edition    : $03  #3
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

* Disassembly by Os9disasm of date

 mod L00fd,L000d,$11,$81,L0070,D01c0

* OS-9 system function equates

F$Exit equ $06
F$Time equ $15
I$WritLn equ $8c

* class D external label equates

D3f3f equ $3f3f
Dfff4 equ $fff4

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 1
D0002 rmb 1
D0003 rmb 1
D0004 rmb 1
D0005 rmb 1
D0006 rmb 442
D01c0 equ .

L000d lsra  
 fcb $61
 lsr   $e503
L0012 bge   L0034
 leay  [D3f3f,y]
L0016 equ *-2
 swi   
 suba  10,u
 fcb $61
 jmp   -11,s
 fcb $61
 fcb $72
 rol   $a046
 fcb $65
 fcb $62
 fcb $72
 fcb $75
 fcb $61
 fcb $72
 rol   $a04d
 fcb $61
 fcb $72
 com   8,s
 suba  1,u
 neg   29289
L0034 equ *-1
 inc   ,y+
 tsta  
 fcb $61
 rol   $a04a
 fcb $75
 jmp   5,s
 suba  10,u
 fcb $75
 inc   -7,s
 suba  1,u
 fcb $75
 asr   -11,s
 com   29856
 comb  
 fcb $65
 neg   29797
 tst   2,s
 fcb $65
 fcb $72
 suba  15,u
 com   -12,s
 clr   2,s
 fcb $65
 fcb $72
 suba  14,u
 clr   -10,s
 fcb $65
 tst   2,s
 fcb $65
 fcb $72
 suba  4,u
 fcb $65
 com   5,s
 tst   2,s
 fcb $65
 fcb $72
 suba  Dfff4,y
L0070 equ *-1
 fcb $10
 leax  ,u
 leau  8,u
 stu   D0006
 os9 F$Time
 bsr   L00b1
 lda   [,s++]
 eora  #$54
 anda  #$df
 bne   L008c
 ldd   #$2020
 std   ,u++
 bsr   L00a1
L008c lda   #$0d
 sta   ,u+
 lda   #1
 ldx   D0006
 ldy   #$0028
 os9 I$WritLn
 bcs   L009e
 clrb  
L009e os9 F$Exit
L00a1 ldb   D0003
 bsr   L00d2
 ldb   D0004
 bsr   L00ab
 ldb   D0005
L00ab lda   #$3a
 sta   ,u+
 bra   L00d2
L00b1 leay  L0016,pcr
 ldb   D0001
 beq   L00c4
 cmpb  #$0c
 bhi   L00c4
L00bd lda   ,y+
 bpl   L00bd
 decb  
 bne   L00bd
L00c4 bsr   L00ef
 ldb   D0002
 bsr   L00d2
 leay  L0012,pcr
 bsr   L00ef
 ldb   D0000
L00d2 lda   #$2f
L00d4 inca  
 subb  #$64
 bcc   L00d4
 sta   ,u+
 cmpa  #$30
 bne   L00e1
 leau  -1,u
L00e1 lda   #$3a
L00e3 deca  
 addb  #$0a
 bcc   L00e3
 sta   ,u+
 addb  #$30
 stb   ,u+
 rts   
L00ef lda   ,y
 anda  #$7f
 sta   ,u+
 lda   ,y+
 bpl   L00ef
 rts   

 emod 

L00fd equ *

 end

Return to OS-9 or Top