=(ROW()+15)*10 & " DATA " & MID(A1,10,2) & ","& MID(A1,12,2) & ","& MID(A1,14,2) & ","& MID(A1,16,2) & ","& MID(A1,18,2) & ","& MID(A1,20,2) & ","& MID(A1,22,2) & ","& MID(A1,24,2) & ","& MID(A1,26,2) & ","& MID(A1,28,2) & ","& MID(A1,30,2) & ","& MID(A1,32,2) & ","& MID(A1,34,2) & ","& MID(A1,36,2) & ","& MID(A1,38,2) & ","& MID(A1,40,2) |
ld hl, 0d100h ld b, 040h ld e, 0bfh ld a, 0fh call 093h ld e, 0afh call 093h ld a, 0eh out (0a0h),a top: in a,(0a2h) ld (hl),a inc hl djnz top ld e, 0bfh ld a, 0fh call 093h ret |
5 REM Version 1.2 10 CLS:SCREEN 1 20 SPRITE$(0)="|"+STRING$(5,254)+"|" 30 SPRITE$(1)="|"+STRING$(5,254)+"|" 40 PRINT"サイバースティック/カブトガニ TEST" 50 CLEAR 300, &HCFFF 60 GOSUB 200 70 DEFUSR=&HD09D 80 X=USR(0) 90 D0=PEEK(&HD000):D1=PEEK(&HD001):D2=PEEK(&HD002):D3=PEEK(&HD003) 100 D4=PEEK(&HD004):D5=PEEK(&HD005):D6=PEEK(&HD006) 110 LOCATE 0,1 120 PRINT HEX$(D0);" ";HEX$(D1);" ";HEX$(D2);" ";HEX$(D3);" ";HEX$(D4);" ";HEX$(D5);" ";HEX$(D6) 130 LOCATE 0,2 140 IF D0=10 THEN M$="Analog" ELSE M$="??????" 150 PRINT "Mode:";M$ 160 X=D4/2:Y=D3/2:PUT SPRITE 0,(X,Y),10,0 170 T=D5/2:PUT SPRITE 1,(64,T),15,1 180 GOTO 80 190 REM MACHINE LANGUAGE 200 FOR I=&HD09D TO &HD1C4 210 READ D$:D=VAL("&h"+D$) 220 POKE I,D 230 NEXT 240 RETURN 250 DATA E5,D5,C5,21,00,D0,3E,0A,77,23,3E,0F,CD,96,00,E6 260 DATA BF,F6,10,57,21,0D,D0,06,90,F3,5A,3E,0F,D3,A0,7B 270 DATA D3,A1,7A,E6,EF,5F,3E,0F,D3,A0,7B,D3,A1,3E,0E,D3 280 DATA A0,DB,A2,77,23,10,FA,FB,D5,06,06,0E,00,21,0D,D0 290 DATA 11,00,D0,13,7E,E6,30,28,09,23,0C,3E,90,91,28,23 300 DATA 18,F2,7E,23,E6,0F,12,13,7E,E6,30,FE,10,28,09,23 310 DATA 0C,3E,90,91,28,0D,18,F0,7E,23,E6,0F,12,13,10,D4 320 DATA D1,18,08,D1,21,00,D0,70,23,18,7A,FB,D5,21,00,D0 330 DATA 23,7E,CB,27,CB,27,CB,27,CB,27,23,B6,2B,77,3E,F0 340 DATA 16,00,1E,0A,19,B6,21,00,D0,23,23,77,23,7E,CB,27 350 DATA CB,27,CB,27,CB,27,23,23,23,23,B6,2B,2B,2B,2B,77 360 DATA 23,7E,CB,27,CB,27,CB,27,CB,27,23,23,23,23,B6,2B 370 DATA 2B,2B,2B,77,23,7E,CB,27,CB,27,CB,27,CB,27,23,23 380 DATA 23,23,B6,2B,2B,2B,2B,77,23,7E,CB,27,CB,27,CB,27 390 DATA CB,27,23,23,23,23,B6,2B,2B,2B,2B,77,D1,18,2B,21 400 DATA 00,D0,AF,77,23,23,F3,7A,5F,3E,0F,D3,A0,7B,D3,A1 410 DATA 3E,0E,CD,96,00,77,2B,7A,E6,EF,5F,3E,0F,D3,A0,7B 420 DATA D3,A1,3E,0E,CD,96,00,FB,77,23,F3,5A,3E,0F,D3,A0 430 DATA 7B,D3,A1,FB,C1,D1,E1,C9 |