====== SETIME ======
<code>
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>
===== CODE =====
<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
</code>
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]