S-C DisAssembler
1000 *SAVE D.VARIABLES
1010 .DUMMY
1020 *--------------------------------
1030 XREF.FLAG .BS 1 =0 TO INCLUDE XREF, <0 TO EXCLUDE
1040 TAB.TO.OPCODE .BS 1
1050 STAR.DASH.FLAG .BS 1
1060 CMDBUF .BS 80
1070 CMDBUF.SZ .EQ *-CMDBUF
1080 CURRCHAR .BS 1
1090 CMD.CHAR .BS 1
1100 ACCUM .BS 2
1110 CURRENT.LINE.NUMBER .BS 2
1120 RPTCNT .BS 1
1130 RPTCHR .BS 1
1140 CHRPTR .BS 1
1150 SYMBOL.SORTED.FLAG .BS 1
1160 ERROR.A .BS 1
1170 ERROR.Y .BS 1
1180 LBL.X .BS 1
1190 LBL.Y .BS 1
1200 *--------------------------------
1210 LBLCHR.Z .BS 1
1220 LBLCHR.I .BS 1
1230 LBLCHR.X .BS 1
1240 I.RANGE .BS 4
1250 *--------------------------------
1260 LABEL.LO .BS 1
1270 LABEL.HI .BS 1
1280 LABEL.LEN .BS 1
1290 LABEL.NAME .BS 32
1300 *--------------------------------
1310 STUFF.INDEX .BS 1
1320 LINE
1330 LINLEN .BS 1
1340 LINNUM .BS 2
1350 .BS 80
1360 *--------------------------------
1370 SYMBOL.TABLE .EQ * START HERE
1380 *--------------------------------
1390 .ED
D.DISPLAYS