1 REM 7777777777777777777777777777777777777777777777777777777777777777777777777777
    2 REM 7777777777777777777777777777777777777777777777777777777777777777777777777777
    3 REM 7777777777777777777777777777777777777777777777777777777777777777777777777777
    4 "D" CLEAR : CLS : RESTORE 1:C= PEEK &FDCD+256* PEEK &FDCE+2:H=256:J=&F9D1: POKE &FFDD,&9F,&F6
    5 POKE &FFE9,&C6: USING : PAUSE "DISASSEMBLER(C)J.SCHULZE": WAIT 0
    6 PRINT "DISP(1)         PRINT(2)                 QUIT(Q)": WAIT 
    7 A$= INKEY$ : IF A$="" THEN 7
    8 IF A$="Q" CLS : END 
    9 A= VAL A$: IF A=1 OR A=2 ON A GOTO 16,26
   10 GOTO 7
   11 POKE &F9D0,D,A- INT (A/H)*H, INT (A/H): CALL C: WAIT :B= PEEK (J-1): RETURN 
   12 ON B GOSUB 29,30,31,32,33,36,37,38: RETURN 
   13 WAIT 0
   14 PRINT  USING "&&&&&"; STR$ A; USING ;" "; USING "&&&&&";K$; USING ;" "; USING "&&&&&";E$; USING ;" "; USING "&&&&&";F$
   15 WAIT : RETURN 
   16 CLS :N=0: INPUT "Adresse ";A,"Bank ";D: IF D<0 OR D>7 OR D<> INT D THEN 16
   17 CLS 
   18 A=A+N: GOSUB 11: GOSUB 12: GOSUB 13
   19 P$= INKEY$ : IF P$="" THEN 19
   20 P= ASC P$: IF P=13 THEN 18
   21 IF P=90 CLS : GOTO 5
   22 IF P=78 THEN 16
   23 IF P=68 THEN 26
   24 IF P=81 CLS : END 
   25 GOTO 19
   26 CLS : INPUT "Von ";M,"Bis ";N,"Bank(0-7) ";D: IF D<0 OR D>7 OR D<> INT D OR N<=M THEN 26
   27 PRINT = LPRINT : FOR A=M TO N: GOSUB 11: GOSUB 12: GOSUB 14
   28 A=A+N-1: NEXT A: PRINT = PRINT : GOTO 5
   29 K$=A$( PEEK J):E$= STR$  PEEK (J+1):F$= STR$ (A+ VAL E$+1):N=2: RETURN 
   30 K$=A$( PEEK J):E$= STR$  PEEK (J+1):F$= STR$ (A- VAL E$+1):N=2: RETURN 
   31 K$=A$( PEEK J):E$= STR$ ( PEEK &FD93+256* PEEK &F9D2):F$="":N=2: RETURN 
   32 K$=A$( PEEK J):E$= STR$  PEEK (J+1):F$="":N=1: RETURN 
   33 GOSUB 39:L= VAL E$:A=A+4: GOSUB 11: GOSUB 39:K$="":J=J+3: FOR I=1 TO L-1:A=A+4: GOSUB 40
   34 A=A-1: GOSUB 11: NEXT I
   35 A=A+4:E$= STR$ ( PEEK (J+2)+256* PEEK (J+1)):N=2:F$="":J=J-3: RETURN 
   36 K$=A$( PEEK J):E$="":F$="":N=1: RETURN 
   37 K$=A$( PEEK J):E$= STR$  PEEK (J+1):F$="":N=2: RETURN 
   38 K$=A$( PEEK J):E$= STR$ ( PEEK (J+2)+256* PEEK (J+1)):F$="":N=3: RETURN 
   39 K$=A$( PEEK J)
   40 E$= STR$  PEEK (J+1):F$= STR$ ( PEEK (J+3)+256* PEEK (J+2)): GOSUB 14: RETURN 
   50 "B" RESTORE 1:C= PEEK &FDCD+256* PEEK &FDCE-1: RESTORE 52
   51 FOR I=0 TO 208: READ A: POKE C+I,A: NEXT I: BEEP 1: END 
   52 DATA 1,243,13,16,249,208,0,2,129,24,16,52,0,129,83,0,35,144,53,144,89,16,249
   53 DATA 208,103,111,56,157,103,4,58,160,103,16,58,149,56,159,103,20,58,150,103
   54 DATA 40,58,139,56,86,103,42,58,87,56,80,103,44,58,81,56,74,103,47,58,75,56
   55 DATA 73,103,56,58,115,56,62,103,58,58,63,56,56,103,59,56,57,103,78,58,99,103
   56 DATA 79,58,102,103,96,58,91,103,105,58,94,56,78,103,120,58,88,103,122,58,89
   57 DATA 56,68,103,128,58,83,103,192,58,46,103,212,58,61,103,216,58,64,103,224
   58 DATA 58,53,44,12,77,2,1,82,44,63,2,2,82,44,58,80,219,80,219,144,89,117,224
   59 DATA 69,80,219,81,113,63,77,2,3,82,44,38,89,117,128,80,219,81,2,128,219,2,4
   60 DATA 82,44,24,2,5,82,44,19,113,63,2,6,82,44,12,113,63,2,7,82,44,5,2,8,82,77
   61 DATA 17,209,25,35,16,52,0,82,55
   70 "M" CLEAR : RESTORE 71: DIM A$(161)*5: FOR I=0 TO 161: READ A$(I): NEXT I: PRINT #"MNEMOS";A$(*): END 
   71 DATA "LII","LIJ","LIA","LIB","IX","DX","IY","DY","MVW","EXW","MVB","EXB","ADN
   72 DATA "SBN","ADW","SBW","LIDP","LIDL","LIP","LIQ","ADB","SBB","?22","?23","MVWD 
   73 DATA "EXWD","MVBD","EXBD","SRW","SLW","FILM","FILD","LDP","LDQ","LDR","RA"
   74 DATA "IXL","DXL","IYS","DYS","JRNZP","JRNZM","JRNCP","JRNCM","JRP","JRM","?46  
   75 DATA "LOOP","STP","STQ","STR","?51","DO","DATA","?54","RTN","JRZP","JRZM","JRCP
   76 DATA "JRCM","?60","?61","?62","?63","INCI","DECI","INCA","DECA","ADM","SBM"
   77 DATA "ANMA","ORMA","INCK","DECK","INCM","DECM","INA","NOPW","WAIT","CUP"
   78 DATA "INCP","DECP","STD","MVDM","READM","MVMD","READ","LDD","SWP","LDM","SL"
   79 DATA "POP","?92","OUTA","?94","OUTF","ANIM","ORIM","TSIM","CPIM","ANIA","ORIA"
   80 DATA "TSIA","CPIA","?104","ETJ","?106","TEST","?108","?109","?110","CDN","ADIM
   81 DATA "SBIM","?114","?115","ADIA","SBIA","TSIP","?119","CALL","JP","PTJ","?123"
   82 DATA "JPNZ","JPNC","JPZ","JPC","LP","INCJ","DECJ","INCB","DECB","ADCM","SBCM"
   83 DATA "TSMA","CPMA","INCL","DECL","INCN","DECN","INB","?205","NOPT","?207","SC"
   84 DATA "RC","SR","WRIT","ANID","ORID","TSID","?215","LEAVE","?217","EXAB","EXAM"
   85 DATA "?220","OUTB","?222","OUTC","CAL"