1 REM Ins{nd av Peter Th{rning <3707>    1986-11-11 18.28.05 (DUMP)
100 REM +++++++++++++++++++++++++++++++++
101 REM ! Program ....   Disco
102 REM ! Utg}va  1.0    861111
103 REM ! av (c) Peter Th{rning <3707>
104 REM ! Minne 16 Kbytes f|r flexskiva
105 REM ! Ins{nt av Peter Th{rning <3707>
106 REM +++++++++++++++++++++++++++++++++
107 FOR C%=44% TO 46% : OUT 1%,C% : IF INP(1%)<>255% THEN 111
108 NEXT C%
109 ; : ; 'Kan inte adressera kontrollkortet.'
110 END
111 OUT 4%,0%
112 ; : ; : ; 'Startadress ramminne'; : INPUT S% : POKE 65013%,0%
113 IF S%<0% S=S%+65536 ELSE S=S%
114 ; 'Lagras fr}n'S' till'S+2047%', ok?'; : GET A$ : ; A$
115 IF A$<>'J' AND A$<>'j' 112
116 REM
117 REM Ladda in en assemblerrutin i kontrollkortets f|rsta buffert
118 REM
119 ; : ; : OUT 2%,0%
120 IF INP(1%) AND 2% THEN 120
121 OUT 0%,4%,0%,0%,0%,0%,0%,0%
122 IF INP(1%) AND 4% THEN 122
123 ONERRORGOTO 136
124 READ D% : D%=D% XOR 255%
125 IF (INP(1%) AND 1%)=0% THEN 125 ELSE OUT 0%,D% : GOTO 124
126 REM
127 REM Rutinen i datasatser
128 REM
129 DATA 62,17,237,71,33,0,0,17,0,8,243,14,124,62,15,211,125,62,66,211,125
130 DATA 62,135,211,125,237,163,8,203,183,203,151,211,223,8,251,20,67,4,5,40
131 DATA 4,251,118,32,252,21,32,249,62,7,211,125,8,203,215,211,223,8,251,201
132 DATA 237,163,237,77,0,61,17
133 REM
134 REM F|rs|k att exekvera den egna assemblersnutten i kortet
135 REM
136 OUT 0%,0% : F%=F%+1% : IF INP(0%)<>0% IF F%<240% THEN 136 ELSE 156
137 OUT 2%,0%
138 IF INP(1%) AND 2% THEN 138
139 OUT 0%,16%,0%,32%,0%,0%,0%,0%
140 IF INP(1%) AND 64% THEN 140
141 FOR A%=S% TO S%+2048%
142 IF (INP(1%) AND 1%)=0% THEN 142
143 POKE A%,INP(0%)
144 NEXT A%
145 REM
146 REM Om allt ok s} {r |verf|ringen klar nu
147 REM
148 Z%=INP(7%)
149 IF PEEK(S%)=243% THEN 153
150 ; "Prova att dissassemblera fr}n"
151 ; "adress"S" och se..."
152 END
153 ; "\verf|ringen gick med st|rsta"
154 ; "sannolikhet bra!"
155 END
156 ; "N}gonting gick snett..." : Z%=INP(7%)
157 END