Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/utils/sleuth3/cssauxil3.asm @ 3215:195c09cade21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated MMC Driver makefile so it will have place holders for dsk, dskclean, and dskcopy so that make does not error out when chaining into the driver tree to build disk images where applicable.
author David Ladd <drencor-xeen@users.sourceforge.net>
date Wed, 20 Dec 2017 16:07:36 -0600
parents afd0f7d9b514
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3149
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
2 ***************************************
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
3 **
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
4 auxino lbsr xcrlf get aux file info
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
5 leax altnm,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
6 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
7 leax disim,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
8 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
9 leax axfile,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
10 lbsr inbufr get file name to line buffer
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
11 cmpa #$0d
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
12 bne strtin process input aux file
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
13 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
14 leax altnm,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
15 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
16 leax disom,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
17 lbsr xpdat
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
18 leax otfile,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
19 lbsr inbufr get file name to line buffer
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
20 cmpa #$0d
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
21 lbne statoa process output aux file
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
22 rts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
23 **
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
24 strtin bsr stopin start aux input file
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
25 lda #READ. open input axfile
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
26 clrb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
27 leax axfile,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
28 os9 I$Open
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
29 bcs strtie
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
30 exg a,b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
31 std axblok+iobfd,u file desc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
32 ldd #bufaux buffer length
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
33 std axblok+iobbl,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
34 ldd #$0000
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
35 std axblok+iobcc,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
36 leax axbuff,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
37 stx axblok+iobba,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
38 stx axblok+iobca,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
39 lda #READ. mode
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
40 sta axblok+iobfc,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
41 inc getfl,u set aux flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
42 bra strtix
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
43 strtie lda #$02 error
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
44 leax errarz,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
45 ldy #errarl
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
46 os9 I$WritLn
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
47 clr axfile,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
48 ldd #$0000
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
49 std axblok+iobfd,u file desc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
50 strtix rts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
51 **
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
52 stopin pshs x stop aux input
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
53 tst getfl,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
54 beq stopix
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
55 clr getfl,u reset aux flag
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
56 clr axfile,u close file
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
57 lda axblok+iobfd+1,u file desc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
58 os9 I$Close
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
59 bcc stopie
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
60 lda #$02 error
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
61 leax errarz,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
62 ldy #errarl
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
63 os9 I$WritLn
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
64 stopie ldd #$0000
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
65 std axblok+iobfd,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
66 stopix puls x,pc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
67 **
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
68 statoa leax otfile,u open output otfile
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
69 ldd #(WRITE.*256)+(READ.+WRITE.+PREAD.) access and attributes
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
70 os9 I$Create
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
71 bcc statof
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
72 cmpb #218 files exists?
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
73 bne stater
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
74 ldd #(WRITE.*256)+(UPDAT.+PREAD.) about the same attr's
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
75 os9 I$Open
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
76 bcc statof
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
77 * lda #$02 error
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
78 * leax errarz,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
79 * ldy #errarl
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
80 * os9 I$WritLn
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
81 stater os9 F$PErr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
82 clr otfile,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
83 rts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
84 statof clrb file desc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
85 exg a,b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
86 std otblok+iobfd,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
87 ldd #buflen buffer length
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
88 std otblok+iobbl,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
89 std otblok+iobcc,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
90 ldd otblok+iobba,u buffer addr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
91 std otblok+iobca,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
92 clr confl,u don't output to console
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
93 inc dskfl,u output to disk
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
94 statra lda #$73 #'s=partial reset
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
95 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
96 lbsr xouts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
97 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
98 lda #$6f #'o offset
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
99 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
100 lbsr xouts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
101 tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
102 beq stata1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
103 lda #$30 #'0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
104 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
105 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
106 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
107 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
108 bra stata2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
109 stata1 leax oaddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
110 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
111 stata2 tst disif,u chk for input file
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
112 beq statrb
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
113 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
114 lda #$73 an s
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
115 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
116 lbsr xouts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
117 leax infile,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
118 lbsr dmptav
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
119 statrb ldx typem,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
120 statrc cmpx typee,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
121 bhs statre
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
122 statrd stx caddr,u output a line
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
123 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
124 ldx caddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
125 lda ,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
126 cmpa #'Z was #$5a chk 'Z
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
127 beq statr2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
128 ora #$20
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
129 lbsr xoute type
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
130 lbsr xouts space
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
131 leax $01,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
132 lbsr xot4s start
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
133 lbsr xot4s end
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
134 leax $01,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
135 statr1 leax $02,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
136 bra statrc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
137 statr2 ldd $01,x chk start/end
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
138 cmpd $03,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
139 bne statr4
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
140 lda #$6d make 'm
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
141 lbsr xoute type
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
142 lbsr xouts space
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
143 leax $03,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
144 statr3 lbsr xot4s end
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
145 lbsr xot2s value
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
146 bra statr1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
147 statr4 lda #$74 make 't
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
148 lbsr xoute type
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
149 lbsr xouts space
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
150 leax $01,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
151 lbsr xot4s start
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
152 bra statr3
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
153 statre lbsr xcrlf print parms
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
154 ldx faddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
155 leax $01,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
156 beq statrf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
157 tst os9flx,u chk for OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
158 beq state1
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
159 tst infile,u chk for file
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
160 bne statrf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
161 state1 lda #$6e make 'n
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
162 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
163 lbsr xouts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
164 tst os9flx,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
165 beq state2
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
166 leax oaddr,u OS/9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
167 lbsr xot4s
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
168 ldd taddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
169 addd oaddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
170 pshs d
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
171 tfr s,x
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
172 lbsr xot4s
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
173 puls d
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
174 bra state9
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
175 state2 leax faddr,u flex
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
176 lbsr xot4s
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
177 lbsr xot4s
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
178 leax xaddr,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
179 lbsr xot4h
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
180 state9 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
181 statrf tst equfl,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
182 beq statrh
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
183 lda #$65 #'e
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
184 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
185 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
186 statrh tst posfl,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
187 beq statri
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
188 lda #$70 #'p
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
189 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
190 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
191 statri lda #$7a #'z
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
192 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
193 lbsr xouts
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
194 lda pmode,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
195 bpl statrj
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
196 lda #$09
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
197 statrj adda #$30 #'0
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
198 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
199 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
200 statrk tst crofl,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
201 bne statcl
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
202 lda #$62 b
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
203 lbsr xoute
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
204 lbsr xcrlf
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
205 statcl inc confl,u output to console
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
206 clr dskfl,u don't output to disk
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
207 leax otblok,u force output
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
208 lbsr fob
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
209 bcc static
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
210 lda #$02 error
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
211 leax errarz,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
212 ldy #errarl
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
213 os9 I$WritLn
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
214 static lda otblok+iobfd+1,u file desc
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
215 os9 I$Close
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
216 bcc statie
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
217 lda #$02 error
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
218 leax errarz,pcr
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
219 ldy #errarl
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
220 os9 I$WritLn
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
221 statie ldd #$0000
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
222 std otblok+iobfd,u
afd0f7d9b514 Add the Sleuth multipass disassembler from Bud Pass
Bill Pierce <merlinious999@gmail.com>
parents:
diff changeset
223 statrx rts