Header for : List Module size: $4F #79 Module CRC : $49AC36 (Good) Hdr parity : $67 Exec. off : $0012 #18 Data size : $028D #653 Edition : $04 #4 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O
* Disassembly by Os9disasm of list mod L004f,L000d,$11,$81,L0012,D028d * OS-9 system function equates F$Exit equ $06 I$Open equ $84 I$ReadLn equ $8b I$WritLn equ $8c I$Close equ $8f * OS9 data area definitions D0000 rmb 1 D0001 rmb 652 D028d equ . L000d inca rol -13,s andb $049f L0012 equ *-1 fcb $01 lda #1 os9 I$Open bcs L0049 sta D0000 stx D0001 L001f lda D0000 leax 3,u ldy #$00c8 os9 I$ReadLn bcs L0035 lda #1 os9 I$WritLn bcc L001f bra L0049 L0035 cmpb #$d3 bne L0049 lda D0000 os9 I$Close bcs L0049 ldx D0001 lda ,x cmpa #$0d bne L0012 clrb L0049 os9 F$Exit emod L004f equ * end