====== DISPLAY ======
<code>
Header for : Display
Module size: $84  #132
Module CRC : $C666E2 (Good)
Hdr parity : $AC
Exec. off  : $0015  #21
Data size  : $01C2  #450
Edition    : $01  #1
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

</code>
===== CODE =====
<code>
* Disassembly by Os9disasm of display

 mod L0084,L000d,$11,$81,L0015,D01c2

* OS-9 system function equates

F$Exit equ $06
I$Write equ $8a

* class D external label equates

Dffff equ $ffff

* OS9 data area definitions

 rmb 1
D0001 rmb 449
D01c2 equ .

L000d lsra  
 rol   -13,s
 neg   $6c61
 adcb  $0110
L0015 equ *-1
 subd  #1
 bls   L0036
 pshs  x
 leay  ,x
L001f bsr   L003a
 bcs   L0027
 stb   ,x+
 bra   L001f
L0027 tfr   x,d
 subd  ,s
 tfr   d,y
 puls  x
 lda   #1
 os9 I$Write
 bcs   L0037
L0036 clrb  
L0037 os9 F$Exit
L003a ldb   ,y+
 cmpb  #$2c
 bne   L0042
L0040 ldb   ,y+
L0042 cmpb  #$20
 beq   L0040
 leay  Dffff,y
 bsr   L0062
 bcs   L0061
 pshs  b
 bsr   L0062
 bcs   L005e
 asl   ,s
 asl   ,s
 asl   ,s
 asl   ,s
 addb  ,s
 stb   ,s
L005e clrb  
 puls  b
L0061 rts   
L0062 ldb   ,y
 subb  #$30
 cmpb  #9
 bls   L007a
 cmpb  #$31
 bcs   L0070
 subb  #$20
L0070 subb  #7
 cmpb  #$0f
 bhi   L007f
 cmpb  #$0a
 bcs   L007f
L007a andcc #254
 leay  D0001,y
 rts   
L007f comb  
 rts   

 emod 

L0084 equ *

 end
</code>
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]