#11 Article 277 Posted at 1987/08/17 09:56:34 by TA(O) (MAP269) [PRG.NL3]
Subject: NLOADER3 88version
あー、とんでもないｂｕｇに一晩悩まれちゃった。グッスン
でも、このとうりちゃんとローダーも出来た訳ですしまずはめでたし、めでたしです。
たぶん４００ｌｉｎｅの９８に比べればちょっと汚いんじゃないかと思いますが
しょーがないでしょう。さー次はＮＥＤＩ３の移植かな？
とりあえずＮＯＺＯＭＵ君の所に行って現物を見ないことには・・・
うちに９８があれば・・・・
じゃーＮＬＯＡＤＥＲ３について・・・
一度プログラムをＲＵＮすると’ＲＢＹＴＥ’のコマンドがフックされますから
ＲＢＹＴＥ”ＦＩＬＥ ＮＡＭＥ”で ＮＬ３のデーターは読めます。
僕は絵、３枚ほど確認した結果大丈夫のでした。
これはとりあえずＮＯＺＯＭＵ君の絵を早く見たい人の為に作りました。
また後でプログラムを置くアドレスとかを変えてＵＰするかもしれません。
それではプログラムいっきまーーす！！
10 'NLOADER3 88 version
20 'Programed By Magical Creamy TA(O)
30 PRINT "NLOADER 3 88version"
40 CLEAR,&HBE00:AD=&HBE00
50 READ A$:IF A$="You morisawa" THEN 70
60 POKE AD,VAL("&H"+A$):AD=AD+1:GOTO 50
70 DEF USR=&HBE00:A=USR(0)
80 PRINT "Hooked 'rbyte'"
90 PRINT "rbyte"+CHR$(34)+"file name"+CHR$(34):END
100 DATA 21,08,BF,CD,F0,BE,21,FC,BF,06,00,7E,23,CD,B6,BF
110 DATA 10,F9,21,19,BE,22,A5,EE,C9,CD,8C,46,32,85,EC,E5
120 DATA 21,04,BF,CD,F0,BE,21,8F,EC,06,09,7E,23,CD,B6,BF
130 DATA 10,F9,3A,85,EC,CD,B6,BF,CD,DB,BF,5F,B7,28,04,E1
140 DATA C3,B3,03,21,80,7E,06,80,CD,DB,BF,77,23,10,F9,F3
150 DATA 3A,C2,E6,F6,02,D3,31,DD,21,0E,BF,FD,21,80,7E,11
160 DATA 01,7F,06,40,FD,6E,00,FD,23,FD,66,00,FD,23,CB,25
170 DATA CB,3C,CB,1D,0E,51,CD,A3,BE,7C,32,7F,BE,DD,7E,00
180 DATA 12,26,00,0E,09,CD,A3,BE,7C,32,8E,BE,DD,7E,00,13
190 DATA 12,1B,1B,7D,32,99,BE,DD,7E,00,12,13,13,13,13,10
200 DATA C3,18,19,C5,06,08,AF,ED,6A,7C,38,03,B9,38,03,91
210 DATA 67,AF,3F,10,F2,CB,15,7C,65,6F,C1,C9,21,00,40,11
220 DATA A0,00,E5,CD,DB,BF,4F,06,01,FE,40,38,07,D6,40,4F
230 DATA CD,DB,BF,47,71,19,7C,FE,7E,38,07,20,09,7D,FE,80
240 DATA 30,04,10,F0,18,DD,E1,23,7D,FE,A0,28,12,E5,18,F2
250 DATA 46,23,7E,23,CD,B0,BF,7E,23,CD,B6,BF,10,F9,C9,CD
260 DATA 17,BF,E1,C9,02,0D,78,00,04,0C,78,00,01,00,00,80
270 DATA A0,A4,A5,E5,F5,FD,FF,F3,3A,C2,E6,F6,02,D3,31,11
280 DATA 00,C0,06,00,21,00,40,0E,64,06,50,C5,4E,23,7E,23
290 DATA 06,00,DD,21,00,7F,DD,09,DD,09,DD,09,FD,21,00,7F
300 DATA 4F,FD,09,FD,09,FD,09,DD,E5,FD,E5,01,5C,03,ED,79
310 DATA C5,DD,46,00,DD,23,FD,4E,00,FD,23,78,E6,F0,CB,39
320 DATA CB,39,CB,39,CB,39,B1,12,C1,0C,10,E2,FD,E1,DD,E1
330 DATA E5,D5,21,50,00,19,EB,01,5C,03,ED,79,C5,DD,46,00
340 DATA DD,23,FD,4E,00,FD,23,79,E6,0F,CB,20,CB,20,CB,20
350 DATA CB,20,B0,12,C1,0C,10,E2,D1,13,E1,C1,10,8D,E5,21
360 DATA 50,00,19,EB,E1,0D,20,81,D3,5F,3A,C2,E6,D3,31,C9
370 DATA F5,3E,0F,D3,FF,3E,F5,DB,FE,E6,02,28,FA,3E,0E,D3
380 DATA FF,F1,F5,D3,FD,3E,09,D3,FF,DB,FE,E6,04,28,FA,3E
390 DATA 08,D3,FF,DB,FE,E6,04,20,FA,F1,C9,3E,0B,D3,FF,DB
400 DATA FE,E6,01,28,FA,3E,0A,D3,FF,DB,FC,F5,3E,0D,D3,FF
410 DATA DB,FE,E6,01,20,FA,3E,0C,D3,FF,F1,C9,06,09,21,C5
420 DATA 78,D7,77,23,10,FB,D7,32,CE,78,06,10,4F,11,01,25
430 DATA 21,00,40,CD,D5,02,11,00,40,D5,21,C5,78,1A,FE,FF
440 DATA 28,0B,B7,20,0C,E1,11,10,00,19,EB,18,EC,3E,35,18
450 DATA 12,06,09,1A,BE,20,EE,23,13,10,F8,1A,E6,90,3E,39
460 DATA 20,01,AF,DF,B7,C2,C1,00,13,21,CF,78,1A,16,4D,5F
470 DATA 77,23,FE,C0,38,F6,DD,21,CF,78,CD,A3,78,CD,80,78
480 DATA 21,80,01,CD,89,78,F5,DF,F1,FE,40,30,03,23,18,F3
490 DATA CD,89,78,3C,3C,DF,4F,06,00,09,18,E7,06,80,CD,89
500 DATA 78,DF,10,FA,C9,7C,FE,40,CA,C1,00,7A,FE,48,CC,A3
510 DATA 78,1A,13,FE,20,38,F4,D6,20,FE,A0,D8,D6,20,C9,E5
520 DATA C5,DD,7E,00,DD,23,1E,01,CB,3F,30,02,1E,09,57,06
530 DATA 08,3A,CE,78,4F,21,00,40,CD,D5,02,C1,E1,11,00,40
540 DATA C9,31,32,33,34,35,36,37,38,39,00,00,00,00,00,00,You morisawa