某8ビット機と8ビット機のスレッド

1 ：774ワット発電中さん：2021/11/17(水) 17:25:53.82 ID:AR6EmFJC2

某8〜「初代」「２」「２＋」「ｔＲ」

8ビット機〜PC-8001・PC-8801シリーズ・PC-6001シリーズ・X1シリーズ・FM-7/77シリーズ

について

201 ：ROTATE_SHIFT_CMD 【100-390行】：2022/07/30(土) 00:38:51.34 ID:qjJ0NGpYN

 1 'save"RSC_MAKE.BAS",A
 100 '
 110 CLS:DEFINT A-Z
 120 F$="R_SHIFT.BSV":RESTORE 320:GOSUB 160
 130 F$="R_SHIFT.ROM":RESTORE 420:GOSUB 160
 140 FILES:PRINT:PRINT:END
 150 '
 160 '''open F$ for input as #1:close    'Examine existing files
 170 OPEN F$ FOR OUTPUT AS #1:CLOSE  'Reduce file size to 0 bytes, delete
 180 '
 190 OPEN F$ AS #1 LEN=1:FIELD #1,1 AS A$:R=1
 200 READ B$:IF B$="*" THEN CLOSE:RETURN
 210 B=VAL("&H"+B$):B$=CHR$(B):LSET A$=B$:PUT #1,R
 220 R=R+1:GOTO 200
 230 '
 240 '
 250 '[AUTOEXEC.BAS]
 260 '10 'save"AUTOEXEC.BAS",A
 270 '20 bload"R_SHIFT.BSV",R:new
 280 '
 290 '
 300 '119Bytes(Loader) + 1024Bytes(MAIN) --- 1143Bytes
 310 '
 320 DATA FE,90,8F,FF,93,90,8F,3A,09,FD,E6,40,B7,28,09,1E
 330 DATA 05,DD,21,6F,40,CD,59,01,AF,21,00,90,77,23,77,3A
 340 DATA 42,F3,26,40,CD,24,00,21,00,90,11,00,40,01,00,04
 350 DATA ED,B0,3A,C1,FC,26,40,CD,24,00,FB,3A,42,F3,E6,03
 360 DATA 07,07,07,07,5F,3A,42,F3,E6,0C,83,3C,5F,16,00,21
 370 DATA C9,FC,19,36,20,21,09,FD,7E,F6,20,77,C9,00,00,00
 380 DATA 00,00,23,23,5E,23,56,21,FF,CF,B7,ED,52,E5,C1,D5
 390 DATA E1,13,AF,77,ED,B0,C9

202 ：ROTATE_SHIFT_CMD 【400-900行】：2022/07/30(土) 00:40:22.98 ID:qjJ0NGpYN

 400 '
 410 '
 420 DATA 41,42,00,00,10,40,00,00,00,00,00,00,00,00,00,00
 430 DATA FB,E5,21,39,40,11,89,FD,1A,BE,20,10,13,23,B7,20
 440 DATA F7,5E,23,56,E1,CD,2A,40,B7,C9,D5,C9,0E,FF,AF,ED
 450 DATA B1,23,23,BE,20,DF,E1,37,C9,52,4C,43,00,61,41,52
 460 DATA 4C,00,6F,41,52,52,43,00,7D,41,52,52,00,8B,41,53
 470 DATA 4C,41,00,99,41,53,52,41,00,A7,41,53,52,4C,00,B5
 480 DATA 41,52,4C,43,31,00,61,41,52,4C,31,00,6F,41,52,52
 490 DATA 43,31,00,7D,41,52,52,31,00,8B,41,53,4C,41,31,00
 500 DATA 99,41,53,52,41,31,00,A7,41,53,52,4C,31,00,B5,41
 510 DATA 52,45,4C,4F,43,00,0B,42,43,4D,44,00,53,42,43,4D
 520 DATA 44,43,4F,44,45,00,53,42,44,49,53,41,42,4C,45,00
 530 DATA F1,42,00,7E,E3,BE,23,E3,20,09,DD,21,66,46,CD,59
 540 DATA 01,FB,C9,1E,02,01,1E,05,01,1E,0D,DD,21,6F,40,18
 550 DATA 46,DD,21,9B,40,18,40,DD,21,53,42,18,3A,DD,21,57
 560 DATA 42,18,34,DD,21,B2,42,18,2E,DD,21,01,46,18,28,DD
 570 DATA 21,27,66,18,22,DD,21,A4,5E,18,1C,DD,21,7A,51,18
 580 DATA 16,DD,21,64,4C,18,10,DD,21,D0,67,18,0A,DD,21,2F
 590 DATA 54,18,04,DD,21,1C,52,CD,59,01,FB,C9,E5,21,63,F6
 600 DATA 7E,4F,36,02,21,F8,F7,FE,02,28,11,FE,04,28,05,FE
 610 DATA 08,C2,C9,40,C5,CD,FB,40,C1,21,F6,F7,06,00,D1,ED
 620 DATA B0,C9,E5,F5,CD,EF,40,ED,5B,99,F6,21,5E,F5,F1,B7
 630 DATA 28,05,4F,06,00,ED,B0,D1,21,98,F6,01,03,00,ED,B0
 640 DATA C9,CD,B3,40,28,CD,13,41,CD,E4,41,CB,07,18,52,CD
 650 DATA B3,40,28,CD,13,41,CD,EC,41,CB,17,18,44,CD,B3,40
 660 DATA 28,CD,13,41,CD,E4,41,CB,0F,18,36,CD,B3,40,28,CD
 670 DATA 13,41,CD,EC,41,CB,1F,18,28,CD,B3,40,28,CD,13,41
 680 DATA CD,E4,41,CB,27,18,1A,CD,B3,40,28,CD,13,41,CD,E4
 690 DATA 41,CB,2F,18,0C,CD,B3,40,28,CD,E4,41,CD,13,41,CB
 700 DATA 3F,32,5E,F5,38,03,AF,18,02,3E,FF,32,5F,F5,3A,5E
 710 DATA F5,CD,F4,41,7E,FE,29,28,06,3A,5F,F5,CD,F4,41,CD
 720 DATA B3,40,29,C9,3A,8C,FD,B7,7B,C8,37,C9,3A,8B,FD,B7
 730 DATA 7B,C8,37,C9,F5,CD,B3,40,2C,CD,F5,40,F1,32,F8,F7
 740 DATA AF,32,F9,F7,D5,E3,CD,1C,41,E1,C9,E5,CD,2D,42,ED
 750 DATA 5B,76,F6,CD,DD,40,E1,21,25,42,11,5E,F5,01,08,00
 760 DATA ED,B0,C3,7A,42,3A,43,4C,45,41,52,3A,00,2A,76,F6
 770 DATA 36,01,E5,CD,D7,40,E1,5E,23,7E,57,23,22,C2,F6,22
 780 DATA B5,F7,D5,11,0B,00,19,22,C4,F6,22,C6,F6,D1,B3,C8
 790 DATA EB,18,E4,CD,B3,40,28,CD,01,41,E5,CD,07,41,7E,B7
 800 DATA CA,E0,42,06,00,4F,23,7E,23,66,6F,11,5E,F5,3E,3A
 810 DATA 12,13,ED,B0,3E,3A,12,13,AF,12,21,5E,F5,CD,E3,40
 820 DATA 3A,8C,FD,FE,43,28,06,21,1F,F4,C3,E9,40,11,20,F4
 830 DATA 06,FC,0E,00,1A,0C,13,FE,3A,20,15,C5,D5,0E,03,1A
 840 DATA 13,B7,20,0A,0D,20,F8,D1,C1,0C,0C,0C,18,04,D1,C1
 850 DATA 10,E2,79,32,1F,F4,21,20,F4,11,5E,F5,06,00,ED,B0
 860 DATA E1,CD,B3,40,2C,CD,F5,40,3A,63,F6,FE,03,C2,C9,40
 870 DATA D5,E3,3A,1F,F4,D6,04,CD,42,41,E1,CD,B3,40,29,C9
 880 DATA 3A,8C,FD,FE,43,28,03,C3,D1,40,3E,04,32,1F,F4,18
 890 DATA CF,E5,21,EF,FD,11,F0,FD,01,DB,00,3E,C9,77,ED,B0
 900 DATA 21,A7,FF,77,21,AC,FF,77,21,9F,FD,77,E1,C9,00,00

203 ：ROTATE_SHIFT_CMD 【910-1080行】：2022/07/30(土) 00:41:13.43 ID:qjJ0NGpYN

 910 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 920 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 930 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 940 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 950 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 960 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 970 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 980 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
 990 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1000 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1010 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1020 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1030 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1040 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1050 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
1060 '
1070 DATA *
1080 '