Table of Contents

DUMP

Header for : Dump
Module size: $24E  #590
Module CRC : $4AF9F5 (Good)
Hdr parity : $64
Exec. off  : $0124  #292
Data size  : $0125  #293
Edition    : $04  #4
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

CODE

* Disassembly by Os9disasm of dump

 mod L024e,L000d,$11,$81,L0124,D0125

* OS-9 system function equates

F$Exit equ $06
I$Create equ $83
I$Open equ $84
I$Read equ $89
I$WritLn equ $8c

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 1
D0002 rmb 1
D0003 rmb 1
D0004 rmb 1
D0005 rmb 1
D0006 rmb 1
D0007 rmb 2
D0009 rmb 1
D000a rmb 1
D000b rmb 21
D0020 rmb 13
D002d rmb 7
D0034 rmb 7
D003b rmb 2
D003d rmb 4
D0041 rmb 27
D005c rmb 74
D00a6 rmb 127
D0125 equ .

L000d lsra  
 fcb $75
 fcb $6d
 subb  $0441
L0012 equ *-1
 lsr   4,s
 fcb $72
 bra   L0038
 bra   L004a
 bra   L004d
 bra   L003e
 fcb $32
 bra   L0054
 bra   L0043
 pshs  y
 puls  y
 bra   L005f
 bra   L0062
 bra   L004d
 fcb $38
 bra   L0069
 bra   L0052
 fcb $41
 bra   L0077
 bra   L0057
 coma  
L0038 bra   L007e
 bra   L005c
 fcb $45
 bra   L0085
L003e equ *-1
 bra   L0061
 fcb $30
 bra   L0076
L0043 equ *-1
 bra   L007a
 bra   L007e
 bra   L0082
L004a bra   L008d
 bra   L0091
L004d equ *-1
 bra   L0095
 tst   D002d
L0051 equ *-1
L0052 blt   L0081
L0054 blt   L0076
 bra   L0085
L0057 equ *-1
 blt   L0087
 blt   L007c
L005c blt   L008b
 blt   L008d
L005f equ *-1
 bra   L008f
L0061 equ *-1
L0062 blt   L0091
 blt   L0086
 blt   L0095
 blt   L0097
L0069 equ *-1
 bra   L0099
 blt   L009b
 blt   L0090
 blt   L009f
 blt   L00a1
 bra   L00a3
L0076 blt   L00a5
L0077 equ *-1
 blt   L009a
L007a blt   L00a9
L007c blt   L00ab
L007e bra   L00a0
 blt   L00af
L0081 equ *-1
L0082 blt   L00b1
 blt   L00b3
L0085 equ *-1
L0086 blt   L00b5
L0087 equ *-1
 blt   L00b7
 blt   L00b9
L008b equ *-1
 blt   L00bb
L008d equ *-1
 blt   L00bd
L008f equ *-1
L0090 tst   D000a
L0091 equ *-1
 dec   D000a
 dec   D0020
L0095 equ *-1
 bra   L00b8
L0097 equ *-1
 bra   L00ba
L0099 equ *-1
L009a fcb $30
L009b bra   L00ce
 bra   L00d1
L009f bra   L00d4
L00a0 equ *-1
L00a1 bra   L00d7
L00a3 bra   L00da
L00a5 bra   L00dd
 bra   L00e0
L00a9 bra   L00cb
L00ab fcb $30
 bra   L00e0
 bra   L00e4
L00af equ *-1
 bra   L00e8
L00b1 equ *-1
 dec   D0041
L00b3 equ *-1
 lsra  
L00b5 lsra  
 fcb $52
L00b7 bra   L00f1
L00b8 equ *-1
L00b9 bra   L00f4
L00ba equ *-1
L00bb bra   L00fe
L00bd bra   L0101
 bra   L0104
 bra   L0107
 bra   L010a
 bra   L010d
 bra   L00e9
 fcb $38
 bra   L010d
L00cb equ *-1
 bra   L0111
L00ce bra   L0115
 tst   D003d
L00d1 equ *-1
 mul   
 mul   
L00d4 mul   
 bra   L0102
L00d7 blt   L0104
 blt   L0106
L00da equ *-1
 blt   L0108
L00dd blt   L010a
 blt   L010c
L00e0 equ *-1
 blt   L010e
 blt   L0110
L00e4 equ *-1
 blt   L0107
 bmi   L0109
L00e8 equ *-1
L00e9 bmi   L010b
 bmi   L010d
 bmi   L010f
 tst   D0034
L00f0 equ *-1
L00f1 lsr   D00a6
L00f2 equ *-1
 suba  #$81
L00f4 equ *-1
 bra   L011e
 orb   12319
 cmpa  #$2d
 bne   L0120
L00fe ldb   1,x
 cmpb  #$4c
L0101 equ *-1
L0102 beq   L0108
L0104 cmpb  #$6c
L0106 bne   L0112
L0107 equ *-1
L0108 leax  2,x
L0109 equ *-1
L010a inc   D0000
L010b equ *-1
L010c ldb   #$1f
L010d equ *-1
L010e stb   D000b
L010f equ *-1
L0110 bra   L00f2
L0111 equ *-1
L0112 cmpb  #$48
 beq   L011a
L0115 equ *-1
 cmpb  #$68
 bne   L0122
L011a clr   D0001
 leax  2,x
L011e bra   L00f2
L0120 cmpa  #$0d
L0122 puls  b,pc
L0124 lda   #$3f
 sta   D000b
 ldd   #1
 sta   D0000
 stb   D0001
 std   D0002
 bsr   L00f0
 beq   L0151
 lda   #1
 os9 I$Open
 lblo  L020c
 sta   D0002
 bsr   L00f0
 beq   L0151
 lda   #2
 ldb   #$0b
 os9 I$Create
 lblo  L020c
 sta   D0003
L0151 ldd   #0
L0154 std   D0004
 tst   D0001
 beq   L018b
 tst   D0000
 bne   L0164
 bitb  #$3f
 bne   L018b
 bra   L0167
L0164 tstb  
 bne   L018b
L0167 leax  L0090,pcr
 lbsr  L01fd
 leax  L0012,pcr
 tst   D0000
 bne   L017a
 leax  L0091,pcr
L017a lbsr  L01fd
 leax  L0051,pcr
 tst   D0000
 bne   L0189
 leax  L00d1,pcr
L0189 bsr   L01fd
L018b leax  29,u
 lda   #$20
 ldb   D000b
L0192 sta   ,x+
 decb  
 bne   L0192
 leax  29,u
 stx   D0007
 lda   D0004
 bsr   L020f
 lda   D0005
 bsr   L020f
 leax  35,u
 stx   D0007
 leax  76,u
 stx   D0009
 ldy   #$0010
 tst   D0000
 bne   L01c4
 leax  34,u
 stx   D0007
 leax  51,u
 stx   D0009
 ldy   #8
L01c4 leax  13,u
 lda   D0002
 os9 I$Read
 bcs   L0207
 tfr   y,d
 stb   D0006
L01d1 bsr   L0231
 decb  
 beq   L01e3
 bsr   L0231
 tst   D0000
 beq   L01e0
 lda   #$20
 bsr   L0227
L01e0 decb  
 bne   L01d1
L01e3 lda   #$0d
 sta   D005c
 tst   D0000
 bne   L01ed
 sta   D003b
L01ed leax  29,u
 bsr   L01fd
 bcs   L020c
 ldd   D0004
 addb  D0006
 adca  #0
 lbra  L0154
L01fd ldy   #$0050
 lda   D0003
 os9 I$WritLn
 rts   
L0207 cmpb  #$d3
 bne   L020c
 clrb  
L020c os9 F$Exit
L020f pshs  a
 lsra  
 lsra  
 lsra  
 lsra  
 bsr   L021d
 lda   ,s
 bsr   L021d
 puls  a,pc
L021d anda  #$0f
 cmpa  #9
 bls   L0225
 adda  #7
L0225 adda  #$30
L0227 pshs  x
 ldx   D0007
 sta   ,x+
 stx   D0007
 puls  x,pc
L0231 lda   ,x+
 bsr   L020f
 pshs  a,x
 anda  #$7f
 cmpa  #$20
 bcs   L0241
 cmpa  #$7e
 bcs   L0243
L0241 lda   #$2e
L0243 ldx   D0009
 sta   ,x+
 stx   D0009
 puls  a,x,pc

 emod 

L024e equ *

 end

RTS

Return to OS-9 or Top