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
* 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