#11 Article 554 Posted at 1987/11/03 05:44:01 by Mr. ltdt (MAP141) [PRG.WML]

Subject: W.M.loader for pc-8801

10 REM W.M. loader   for pc-8801
20 REM  copyright by  W.M.        original
30 REM  copyright by  Mr.ltdt     pc-8801 version
40 REM            1987/11/2       ver.1.01
100 CLEAR ,&HB700:DEFINT A-Z
110 FOR I=0 TO &H95
120 READ A$:POKE &HE000+I,VAL("&h"+A$)
130 NEXT
140 DEF USR0=&HE000 : REM   decode subroutine
150 START=&HB700    : REM   w.m. loader hooking address
160 FOR I=0 TO 1 STEP 0
170 READ A$:IF A$="ﾁｬﾁｬﾓﾁｬﾉﾁｬﾇｰﾄﾉﾜﾝ" THEN I=1:GOTO 190
180 D$=USR(A$)
190 NEXT
200 PRINT "ﾄﾞｺﾍ save ｼﾏｽｶ?  drive No.=";:INPUT "",D
210 BSAVE MID$(STR$(D),2)+":wmld.bin",&HB700,&HC00
220 CALL START
230 PRINT:PRINT "ｺﾝｺﾞ ｼﾞｯｺｳｼﾞﾊ､ bload "+CHR$(&H22)+"d:wmld.bin"+CHR$(&H22);
240 PRINT ",r  ｦ ｼﾞｯｺｳ ｼﾃ ｸﾀﾞｻｲ｡"
250 PRINT "ｿﾉｺﾞ ｢ireset "+CHR$(&H22)+"d:xxxx"+CHR$(&H22)+"｣ ﾃﾞ ﾋｮｳｼﾞ ﾃﾞｷﾏｽ｡"
300 END
500 REM 12bit to 1byte decode routine binary data
510 DATA E5,D5,EB,FE,03,28,05,1E,0D,C3,B3,03,7E,23,A7,CA
520 DATA 91,E0,CB,3F,30,05,1E,16,C3,B3,03,06,16,22,21,E0
530 DATA 2A,00,00,ED,5B,94,E0,7E,23,FE,A0,38,02,D6,30,D6
540 DATA 30,4F,7E,E6,F0,FE,30,20,03,79,18,17,FE,40,20,05
550 DATA 79,C6,60,18,0E,FE,50,20,05,79,C6,C0,18,05,1E,05
560 DATA C3,B3,03,12,13,7E,23,E6,0F,4F,7E,CB,27,CB,27,CB
570 DATA 27,CB,27,81,D6,30,4F,7E,23,E6,F0,FE,30,20,03,79
580 DATA 18,17,FE,40,20,05,79,C6,60,18,0E,FE,50,20,05,79
590 DATA C6,C0,18,05,1E,05,C3,B3,03,12,13,10,9A,ED,53,94
600 DATA E0,D1,E1,C9,00,B7
1000 REM  program code  12bit ---> 1byte
1010 DATA "Q04ｷB5ｮNU=[Fn15ｦ>H=P8ｵ9SUQ5[NHf03A<EｾA3DA3]PHQ03PB5]OHQ]S\F7JB6NOH"
1020 DATA "R;TｷJ6NOHl=Sｳ9F=ZUhH55>4e3SQWHj>DｿF4>>3U77N13Q03P]S<@SJ]UｷMS00SQ;E"
1030 DATA "ｾB5[?Hc]UCOEｷJ61VUfP4CP7Q030633>3ｼ14XS3]YDa0EnUUUUUUUUUUUU[4JCHP3V"
1040 DATA "<04XSTｿ:61VUCP7a030>6126MOH]SDNWH]SDSWHa030Z62VUfR3CQ6Q0HｿB5_OHｯB6"
1050 DATA "YOHb1EｿJ5_OHA08094R?EｿMSbWHj1EｿL6nXSh8Uj=DｿGEb=DｿNV805CZ62VUCQ6Q03"
1060 DATA "0160039QSa0303SｳC3N863QUｷN43SQWHｯEV=]61Z6\OHｧH541V6T3e]Sm1Sj<EｿGG"
1070 DATA "X43aVS25V=]61Z6\OHｧH541V6Q3eQVb;EｿA5003R?DｿOGb8EｿA4PB3ｧMUｲ06h=S?QS"
1080 DATA "Z2EｿLDｵH5J:6XOHｧH5D:5OOHU]Uｻ2EｿK4I;UQZ6QOHｧ?7=PDｻJ6XOH_26XOH][8ROH"
1090 DATA "Z?DｿI4R?DｿH40Z6[OHｧJS｡IH]SDoIHa=DｿJ5_OHnQ3P73A080=Uｲ84V>V205714@3"
1100 DATA "]R8H;4nS3P73A0V0=Uｲ84@>V40571413]R8H53A080=Uｲ14ｯ03I<DnPSJ_EｹN3ｻ:6"
1110 DATA "MOHnT3P13m1Eｯ=UIF8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8"
1120 DATA "[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5"
1130 DATA "ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8"
1140 DATA "[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5T"
1150 DATA "ｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5EV8[>8[5Tｶ;5ｾ;5ESTｿ84?15003653"
1160 DATA "UUUUUUUUUUUU@6Va030=Sa;Hj;EｿGG:P6ｻMUCN5ｻA6]?HZ?EｿN3ｻ:6MOHnT3P13m1E"
1170 DATA "ｯ=UIATKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5"
1180 DATA "JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGD"
1190 DATA "S:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNG"
1200 DATA "GC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[D"
1210 DATA "ｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1T"
1220 DATA "KNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5"
1230 DATA "A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGD"
1240 DATA "S1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNGGC5A[DｮGDS:DｮGDS1TKNGGC5JNG"
1250 DATA "GC5A[DｮGDS:DｮGDS3Tｿ160039Z6[OHFU3HQ5]?HnP3P;36?7;^6S;SN35@;V9^V105"
1260 DATA "E>D6235V3ｯ15]?H;^6S;SN35@;V1P4_YS6?7Q<DｿKSV;5;V4[04kYSLNV2868=DnPE"
1270 DATA "h33Q0E2:DnR3h83KNVPH6314PB3UWG]R8QP64;UHA7ｯ5SEYT1QUV03ｴ=8Y95I95Y95"
1280 DATA "Y1400SI9D;X6;Y4;X6;Y4;Y69;UVW3ｯ15n>H9>C[Z6MOHｷ;S:?Fｧ;S:?Fｯ;S:?Fｷ9T"
1290 DATA "ｧMUｲ8DaF3086ｽ?7UWG]R7QX6Z48ｽ;Sl;SM5TMQUMS5=^FｼMT[=TLMTｵHS=UFｼGG]R7"
1300 DATA "`>UI9TMFSｰ?C\EF7IT3\UｻKU0IC;\6;]45]TQ]TS=SnLHM[5M\DMUH8YTMFSｰ?C\EF"
1310 DATA "7ITｧMUｲ06XY3=UFｼCSG<H]T7ｯ5UｧMU｢1Uh:5ｴ=8;\6;]4E]TQ]TS=SnLHM[5M\DMUH"
1320 DATA "8]SeLHｧMU｢06^Y4I]DFP8?OFTGCISSｫ<H[PC9KSl;SM5SMQUMS5=^FｼMT[=TLMTｵHS"
1330 DATA "I]DFP8?OFTGCIWG]R8`8U9=SeLH3VDｼIT;[3IPTIS5IYSIZ6MOH?0693Tｼ8DｮCGｮGD"
1340 DATA "H64?0693Tｽ9DｮCGｮGDH:3?0673Tｾ:DｮCGｮGDC_8IYS503323024053303J035430>4"
1350 DATA "053503K03507086063803V036630>6063903Q036030160637030370E04D073>03"
1360 DATA "6@37=30>7073;03N@37?301C073<03･037:300S083D03X@380408S0830P3\@3814"
1370 DATA "0:S083E03>P386405U083G03]P38:40;U083I03WP38840?E083B03o@383408S193"
1380 DATA "Z03HQ3906043193K03DQ39>50<S193\03L139?40<T193b03l139150<V193f03RA3"
1390 DATA "935024193L03bA39550:4193N03fA39750>F193Y03NQ39460>V1930139Q39;509T"
1400 DATA "193a03EQ39?50=S193]03M139050=T193c03m139250=V193g03SA3945034193M03"
1410 DATA "cA396507F193X03OQ39560?V193h03<23:;60:32:3i03f23:?60>32:3m03n33:07"
1420 DATA "1=32:3l03;23::60?32:3n03o33:0E1?C4;30Q3MX3<0328HA=30R3CC5>0722DS>3"
1430 DATA "PB3003003P@7P04843213;_T;_TI_SP;SO[SOYT?P5<_THXTMZSOP5:_T:_TJ^SP:S"
1440 DATA "OZSOZT>P54^THPTMZSO]3:<HN]GC]Tｦ@5:\HｮOG3P59BD5CD5DDP?C;A5003003003"
1450 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1460 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1470 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1480 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1490 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1500 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1510 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1520 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1530 DATA "003003003003003003003003Z:E\Q4:03I>DQ;EｾGDMQ500US26F0SM^D0<6X73m7D"
1540 DATA "nPSh0V9^4･3SQWHQ03@F325S][8[?HJ34]S8[?Hｯ:4e^V0X656T0_8H23N83IMS1@S"
1550 DATA "j>DｿG7=\C0X6;1VnPSh231YS1P4@YSN>63QUｷKSo?7`33F939V419Sn23=^G0[D=UT"
1560 DATA "0XD=UT0YD=UT0ZD=UT0^66=Sｮ@S=\41_7VQ3X23g9SIFU052769S7n24=^G0US60E"
1570 DATA "=XV0WDS1DS04gQS@1VｷISe^6?3To[TnVU285j^6>3ToQVC]Vn93C_VK^VVT3X:Vn83"
1580 DATA "C_VK^VVT3P:V9UVK^VVR3X:Vn>3C_VaSTm^693To[TnVU485j^683To[TnVU405jYS"
1590 DATA "n;3C_VK^VVQ3X:Vn:3C_VK\Ve^6=3To[TnVU105j[Tl_7n<3C_VaYSn;3C_VK^VVQ3"
1600 DATA "X:Vn:3C_VK\Vｯ>6=3To[TnVU105j^6<3ToYD9Z5]OHｷ<DVPEX83I]SV0SIQ500DJJ6"
1610 DATA "YOHｧ@5ｾ>DS78LFUPH589T=V50YTQ03@JDn]3X;UnZ3X7Un[DP<5>=DNC5ｷ<DVPEX83"
1620 DATA "I]SV0SIQ500DJIHP<UNC5ｷ<DVPEX83I]SV0SIQ500DJIHP8TH7HR=EｿNV｡@646TQ84"
1630 DATA "26Tｱ26ZOHn73b9EｿJ6ZOHｯ6U852>6126\OHIFUo7Eb:EｿJ6YOHm26YOH9Q5003R6E"
1640 DATA "ｿE7=]61Z6\OH;_6j6EｿG4b6EｿJ6WOHG26WOH4=Sf2SZ2EｿLDn_VX>Tｧ@55=DnP7h56"
1650 DATA "R4EｿOGb6EｿB6WOHｧ=Sm1Sj<EｿKSo:6VOHG26VOHj7EｿG4b7EｿD3=V62Z5ROHLNVoX5"
1660 DATA "N[UZ4EｿI4R2EｿISQ?VoR5ROHHNV105=:6VOHO86715103R2EｿISHNV28SnT38Q5:\H"
1670 DATA "A530>DI8HX33@X4hQ4703ｧMUｲ:6VOHｯ>HX93I>Dｸ@S[;5IH4dZ6WOHS>HX93I;5NHH"
1680 DATA "0[5[84PS5S>8S68]S8ROH9P3003003003003003003003003003003003003003003"
1690 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1700 DATA "003003003003003003003003003003003003003003003003003003003003003003"
1710 DATA "ﾁｬﾁｬﾓﾁｬﾉﾁｬﾇｰﾄﾉﾜﾝ"