Disassymbl

    5 REM "DISASSYMBL" © by Ben H. Jackson, 1985; ALL RIGHTS RESERVED
   10 REM SAVE "DISASSYMBL" LINE 1
   20 PRINT "Never RUN this program ! Always GOTO 100 to RUN or re-start"
   21 STOP 
  100 CLS : INPUT "ENTER BEGINNING ADDRESS ";ADDRESS
  110 LET PEEK=PEEK ADDRESS
  115 IF PEEK=0 THEN PRINT ADDRESS;"   0","NOP": LPRINT ADDRESS;"   0","NOP": GO TO 170
  120 PRINT ADDRESS;"   ";PEEK ADDRESS,A$(PEEK): LPRINT ADDRESS;"   ";PEEK ADDRESS,A$(PEEK): IF PEEK=237 THEN GO TO 300
  125 IF PEEK=203 THEN GO TO 700
  130 RESTORE 2000: FOR I=1 TO 26
  140 READ TWOBIT: IF PEEK=TWOBIT THEN GO TO 400
  150 NEXT I
  160 RESTORE 4000: FOR I=1 TO 24: READ OB: IF PEEK=OB THEN GO TO 200
  165 NEXT I
  170 LET ADDRESS=ADDRESS+1
  171 POKE 23692,255
  180 GO TO 110
  200 LET BIT=PEEK ADDRESS: LET ADDRESS=ADDRESS+1: LET ONEBIT=PEEK ADDRESS
  210 IF (BIT=16 OR BIT=24 OR BIT=32 OR BIT=40 OR BIT=48 OR BIT=56) AND ONEBIT>=128 THEN LET ONEBIT=ONEBIT-256
  220 PRINT ADDRESS;"   ";PEEK ADDRESS,ONEBIT: LPRINT ADDRESS;"   ";PEEK ADDRESS,ONEBIT
  230 GO TO 170
  305 LET ADDRESS=ADDRESS+1: PRINT ADDRESS;"   ";PEEK ADDRESS,B$(PEEK ADDRESS): LPRINT ADDRESS;"   ";PEEK ADDRESS,B$(PEEK ADDRESS)
  310 RESTORE 3000
  320 FOR I=1 TO 8
  330 READ TWOBIT: IF PEEK ADDRESS=TWOBIT THEN GO TO 400
  340 NEXT I
  390 GO TO 170
  400 LET NUMBER=PEEK (ADDRESS+1)+256*PEEK (ADDRESS+2)
  410 LET ADDRESS=ADDRESS+1: PRINT ADDRESS;"   ";PEEK ADDRESS,NUMBER: LPRINT ADDRESS;"   ";PEEK ADDRESS,NUMBER: LET ADDRESS=ADDRESS+1
  420 PRINT ADDRESS;"   ";PEEK ADDRESS: LPRINT ADDRESS;"   ";PEEK ADDRESS
  430 GO TO 170
  700 LET ADDRESS=ADDRESS+1: PRINT ADDRESS,C$(PEEK ADDRESS+1): LPRINT ADDRESS,C$(PEEK ADDRESS+1)
  710 GO TO 170
 2000 DATA 1,17,33,34,42,49,50,58,194,195,196,202,204,205,210,212,218,220,226,228,234,236,242,244,250,252,67,75,83,91,99,107,115,123
 3000 DATA 67,75,83,91,99,107,115,123
 4000 DATA 6,14,16,22,24,30,32,38,40,46,48,54,56,62,198,206,211,214,219,222,230,238,246,254
 5000 INPUT "ADDRESS? ";ADDRESS
 5010 PRINT ADDRESS;"  ";PEEK ADDRESS,CHR$ PEEK ADDRESS
 5020 LET ADDRESS=ADDRESS+1
 5040 GO TO 5010