Header for : Merge Module size: $68 #104 Module CRC : $E0D2E4 (Good) Hdr parity : $40 Exec. off : $0013 #19 Data size : $09C7 #2503 Edition : $03 #3 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O
* Disassembly by Os9disasm of merge mod L0068,L000d,$11,$81,L0013,D09c7 * OS-9 system function equates F$Exit equ $06 I$Open equ $84 I$Read equ $89 I$Write equ $8a I$Close equ $8f * OS9 data area definitions D0000 rmb 1 D0001 rmb 2 D0003 rmb 2 D0005 rmb 47 D0034 rmb 2451 D09c7 equ . L000d tsta fcb $65 fcb $72 asr b,s com D0034 L0013 equ *-1 nega stx D0001 tfr x,d subd #$0107 subd ,s++ std D0005 leau 7,u stu D0003 L0024 ldx D0001 bsr L005c clrb cmpa #$0d beq L0059 lda #1 os9 I$Open bcs L0059 sta D0000 stx D0001 L0038 lda D0000 ldy D0005 ldx D0003 os9 I$Read bcs L004d lda #1 os9 I$Write bcc L0038 bra L0059 L004d cmpb #$d3 bne L0058 lda D0000 os9 I$Close bcc L0024 L0058 coma L0059 os9 F$Exit L005c lda ,x+ cmpa #$20 beq L005c leax -1,x rts emod L0068 equ * end