Tämä jakso sallii sinun katsoa tämän jäsenen kaikkia viestejä. Huomaa, että näet vain niiden alueiden viestit, joihin sinulla on nyt pääsy.
Näytä viestit Menu
1 goto 200
9 rem ***** GETCHAR *****
10 a = 56320
11 count = 0
12 pin = 0
13 b = 0
15 res = 0
20 if (peek(a)and(2^4)) = 0 then 60
30 goto 20
60 pin = peek(a)and(2^0)
80 if (peek(a)and(2^4)) then 100
90 goto 60
100 if pin then 120
110 res = res + 1
120 count = count +1
130 if count = 8 then 160
140 res = res * 2
150 goto 20
155 rem ***** END GETCHAR *****
160 b = res
170 return
200 b = 0
210 gosub 10
220 prl = b
225 print "program length:"; prl
230 gosub 10
240 ada = b * 256
250 gosub 10
260 ada = ada + b
265 prl = prl - 2
275 oad = ada
278 print "address:"; ada
280 for x = prl to 0 step -1
285 print "bytes to go:"; x
290 gosub 10
300 poke ada, b
310 ada = ada +1
320 next
330 sys oad
processor 6502
.org $c000
ldx #$0
LOOP
stx $d020
stx $d021
inx
jmp LOOP