н& ш:Г*****&Є:Г*&*№:Г* SMDISPLY.BAS&A:Г* MDJ 2023/04/19&I:Г*&e:Г* SCREEN MAZE DISPLAY&{$:Г* BASIC PROGRAM&Г.:Г*&Э8:Г* DISPLAYS THE MAZE&║B:Г* ON SCREEN, USING THE&╙L:Г* FAKETEXT 32 X 16&эV:Г* CHARACTER SET FOR&¤`:Г* PMODE 4'j:Г*'t:Г*****'~:Г'+╨:ГSETUP MEMORY'=┌Х 200, &H4000'Eф└ 4'Lю:Г'`а╙M "MLBASE.BIN"'vк╙M "SMREADER.BIN"'М┤╙M "SMDISPLY.BIN"'У╥:Г'║ИЗ "PLACE FALSFILE DISK IN DRIVE 0"'▐ТЗ "PRESS ANY KEY WHEN READY >";'ъЬA$ │  Т'■жЕ A$│"" Бе 5020(░:Г(Xв &H539C :ГSMREADER(%b:Г(:%:ГSETUP GRAPHICS(D%&╚ 4,1(L%0╝ 1(V%:┐ 1,0(]%D:Г(v%Кв &H53C9 :ГSMDISPLY(}%Ф:Г(У%ф:ГHOLD THE SCREEN(Я%юБе 9710(ж%°:Г(м КIN DRIVE 0"'▐ТЗ "PRESS ANY KEY WHEN READY >";'ъЬA$ │  Т'■жЕ A$│"" Бе 5020                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Д& ш:Г*****&Є:Г*&*№:Г* FALSFILE.BAS&A:Г* MDJ 2023/04/19&I:Г*&g:Г* THIS PROGRAM IS BASED&З$:Г* UPON THE "FALSINIX.BAS"&Ь.:Г* DISK SYSTEM.&д8:Г*&┼B:Г* THIS PROGRAM INITIALIZES&цL:Г* A SEMI-FALSE DISK WITH A'V:Г* SINGLE GRANULE (#0) AS A '%`:Г* "RESERVED.IMG" FILE.'-j:Г*'Pt:Г* THE 9 SECTORS OF GRANULE 0'p~:Г* ARE THEN USED AS LINEAR'РИ:Г* SECTORS UNDER THE FALSE'еТ:Г* DISK SYSTEM.'нЬ:Г*'╧ж:Г* THE REMAINING 67 GRANULES'Ё░:Г* ARE AVAILABLE FOR NORMAL(║:Г* UPON COMPLETION, THE (+─:Г* DIRECTORY WILL LOOK (>╬:Г* LIKE THIS:(F╪:Г*(bт:Г* RESERVED IMG 3 B 1(jь:Г*(ГЎ:Г* AND WILL PROVIDE(Ш:Г* THIS RESULT:(а :Г*(╜:Г* PRINT FREE(0) --> 67(┼:Г*(╤(:Г*****(╪2:Г(х▄Х &H1000(ьц:Г(ЄдЗ)оЗ " PUT THE DISK IN DRIVE 0")<╕З " *** *** WARNING *** ***")b┬З " *** DISK WILL BE ERASED ***")З╠З " PRESS ANY KEY WHEN READY")У╓A$ │  Т)йрЕ A$ │ "" Бе 1750)пъЗ)┬ЇЗ "WORKING *";)╔■:Г)▐╨:ГERASE THE DISK* ┌X$ │ " "*фZ$ │ X$лX$лX$лX$*1юА I │ 1 е 128*H° Р(Z$,I,1) │  Л(0)*PЛ I*a А T │ 0 е 34*rА S │ 1 е 18*Д р 0,T,S,Z$,Z$*М*Л S*Ч4З "*";*Я>Л T*жH:Г*├Ш:ГGENERATE THE FALSE FAT*╧вF$ │ Z$*ум:ГSET GRANULE 0* ╢:Г==> USE ALL 9 SECTORS+└ Р(F$,1,1) │  Л(&HC9)+;╩:ГSET GRANULES 1 TO 67 = FREE+L╘А I │ 2 е 68+f▐ Р(F$,I,1) │  Л(&HFF)+nшЛ I+УЄ:ГPUT TRACK 17, SECTOR 2 TO DISK+ж№р 0,17,2,F$,Z$+▒ З "*";+╕ :Г+█ ─:ГGENERATE THE FALSE DIRECTORY+ч ╬D$ │ Z$, ╪:ГSET FALSE FILENAME, у Р(D$,1,1) │ "R",* ф Р(D$,2,1) │ "E",? х Р(D$,3,1) │ "S",T ц Р(D$,4,1) │ "E",i ч Р(D$,5,1) │ "R",~ ш Р(D$,6,1) │ "V",У щ Р(D$,7,1) │ "E",и ъ Р(D$,8,1) │ "D",╜ ы Р(D$,9,1) │ "I",╙ ь Р(D$,10,1) │ "M",щ э Р(D$,11,1) │ "G",√ (:ГSET TYPE = - 2:Г TEXT EDITOR SOURCE-. < Р(D$,12,1) │  Л(3)-H F:ГSET FORMAT = BINARY-` P Р(D$,13,1) │  Л(0)-x Z:ГSET NUMBER OF THE-О d:Г FIRST GRANULE-ж n Р(D$,14,1) │  Л(0)-┴ x:ГNUMBER OF BYTES USED-▐ В:Г IN LAST SECTOR = 256-Ў М Р(D$,15,1) │  Л(1). Ц Р(D$,16,1) │  Л(0).3 а:ГPUT TRACK 17, SECTOR 3 TO DISK.F кр 0,17,3,D$,Z$.Q ┤З "*";.X ╛:Г.^ TЗ.v ^З "FALSFILE = DONE".} h:Г.Г К GRANULE-ж n Р(D$,14,1) │  Л(0)-┴ x:ГNUMBER OF BYTES USED-▐ В:Г IN LAST SECTOR = 256-Ў М Р(D$,15,1) │  Л(1). Ц Р(D G& ш:Г*****&Є:Г*&)№:Г* SMMAKER.BAS&@:Г* MDJ 2023/04/19&H:Г*&b:Г* SCREEN MAZE MAKER&x$:Г* BASIC PROGRAM&А.:Г*&б8:Г* SAVES THE SA, SB, SC, SD&╗B:Г* FILE CONTENTS TO &╓L:Г* THE "RESERVED.IMG"&ЄV:Г* ON A FALSFILE DISK.&·`:Г*'j:Г*****' t:Г' ╨:ГSETUP MEMORY'2┌Х 200, &H4000'9ф:Г'Mа╙M "MLBASE.BIN"'bк╙M "SMMAKER.BIN"'x┤╙M "SA000001.BIN"'О╛╙M "SB000001.BIN"'д╚╙M "SC000001.BIN"'║╥╙M "SD000001.BIN"'┴▄:Г'шИЗ "PLACE FALSFILE DISK IN DRIVE 0"( ТЗ "PRESS ANY KEY WHEN READY >";(ЬA$ │  Т(,жЕ A$│"" Бе 5020(9pв &H536F(@z:Г(F КBIN"'bк╙M "SMMAKER.BIN"'x┤╙M "SA000001.BIN"'О╛╙M "SB000001.BIN"'д╚╙M "SC000001.BIN"'║╥╙M "SD000001.BIN"'┴▄:Г'шИЗ "PLACE FALSFILE DISK IN DRIVE 0"( ТЗ "PRESS ANY KEY W                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ш& ш:Г*****&Є:Г*&*№:Г* SMREADER.BAS&A:Г* MDJ 2023/04/19&I:Г*&d:Г* SCREEN MAZE READER&z$:Г* BASIC PROGRAM&В.:Г*&Я8:Г* GETS THE CONTENTS OF&╢B:Г* A FALSE DISK'S&╬L:Г* SECTORS #0 - #3&ъV:Г* AND PLACES THE DATA' `:Г* IN FOUR WORKING BUFFERS.'j:Г*'1t:Г* IT THEN STEPS THROUGH'N~:Г* THE BUFFERS TO ALLOW'lИ:Г* CHECKING OF THE DATA.'tТ:Г*'АЬ:Г*****'Зж:Г'Ъ╨:ГSETUP MEMORY'м┌Х 200, &H4000'│ф:Г'╟а╙M "MLBASE.BIN"'▌к╙M "SMREADER.BIN"'ф╚:Г( ИЗ "PLACE FALSFILE DISK IN DRIVE 0"A(0ТЗ "PRESS ANY KEY WHEN READY >";(<ЬA$ │  Т(PжЕ A$│"" Бе 5020(]Pв &H539C(dZ:Г(t|А Y │ 0 е 7(ЕЖА X │ 0 е 31(ЪРZ │ (Y н 32) л X(оЪZ1 │ Z л &H5500(╜дC │  Ж(Z1)(╞оЗ C;(╬╕Л X(╓┬Л Y(тpA$ │  Т(ЎzЕ A$│"" Бе 6000)dА Y │ 8 е 15)nА X │ 0 е 31)-xZ │ (Y н 32) л X)AВZ1 │ Z л &H5500)PМC │  Ж(Z1))YЦЗ C;)aаЛ X)iкЛ Y)uXA$ │  Т)ЙbЕ A$│"" Бе 7000)ЫLА Y │ 16 е 23)мVА X │ 0 е 31)┴`Z │ (Y н 32) л X)╒jZ1 │ Z л &H5500)фtC │  Ж(Z1))э~З C;)їИЛ X)¤ТЛ Y* @A$ │  Т*JЕ A$│"" Бе 8000*/!4А Y │ 24 е 31*@!>А X │ 0 е 31*U!HZ │ (Y н 32) л X*i!RZ1 │ Z л &H5500*x!\C │  Ж(Z1)*Б!fЗ C;*Й!pЛ X*С!zЛ Y*Ч К3)мVА X │ 0 е 31)┴`Z │ (Y н 32) л X)╒jZ1 │ Z л &H5500)фtC │  Ж(Z1))э~З C;)їИЛ X)¤ТЛ Y*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                S╔~S╨NS╨4vОU╬фцаOэ┴МW%ї╬фЖ ╞L╖S╠ўS═Б %O╖S╠\ўS═┴% о┴┐S╬4╢S╠ЎS═╛S╬╜S5 ╨5v9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -SЬ40ООU╜E3ООV╜E3ООW╜E3ООX╜E3509                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          08 03 02350 FCB 116 04 02360 FCB 108 05 02370 FCB 116 06 02380 FCB 102 07 02390 FCB 116 08 02400 FCB 108 09 02410 FCB 116 10 02420 FCB 108 11 02430 FCB 116 12 02440 FCB 108 13 02450 FCB 116 14 02460 FCB 108 15 02470 FCB 116 16 02480 FCB 108 17 02490 FCB 116 18 02500 FCB 102 19 02510 FCB 116 20 02520 FCB 102 21 02530 FCB 116 22 02540 FCB 102 23 02550 FCB 116 24 02560 FCB 102 25 02570 FCB 116 26 02580 FCB 108 27 02590 FCB 116 28 02600 FCB 108 29 02610 FCB 115 30 02620 FCB 32 31 02630 02640 * LINE 07 02650 FCB 111 00 02660 FCB 32 01 02670 FCB 110 02 02680 FCB 32 03 02690 FCB 110 04 02700 FCB 32 05 02710 FCB 117 06 02720 FCB 32 07 02730 FCB 110 08 02740 FCB 32 09 02750 FCB 110 10 02760 FCB 32 11 02770 FCB 110 12 02780 FCB 32 13 02790 FCB 117 14 02800 FCB 32 15 02810 FCB 110 16 02820 FCB 32 17 02830 FCB 117 18 02840 FCB 32 19 02850 FCB 110 20 02860 FCB 32 21 02870 FCB 117 22 02880 FCB 32 23 02890 FCB 117 24 02900 FCB 32 25 02910 FCB 117 26 02920 FCB 32 27 02930 FCB 110 28 02940 FCB 32 29 02950 FCB 111 30 02960 FCB 32 31 02970 02980 END 02990 03000 ***** 03010 * 03020 * EOF 03030 * 03040 *****                                                                                                                                                                                        АX ibgkgkgkgkgkgkgkgkgkgc ENTER№¤ q u u u u u n u u u u o bgkgkgkgkgtftftftftltftftltftfs o u u u u u u u u u n u u u u o АXАrltltftftftftftltftftltltltltls o n n u u n u n n u u n n n n o rltltltftltltltltltftftftftltls o n n u n n n u n u n u u u n o                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    28 00900 FCB 32 29 00910 FCB 111 30 00920 FCB 32 31 00930 00940 * LINE 02 00950 FCB 98 00 00960 FCB 103 01 00970 FCB 107 02 00980 FCB 103 03 00990 FCB 107 04 01000 FCB 103 05 01010 FCB 107 06 01020 FCB 103 07 01030 FCB 107 08 01040 FCB 103 09 01050 FCB 116 10 01060 FCB 102 11 01070 FCB 116 12 01080 FCB 102 13 01090 FCB 116 14 01100 FCB 102 15 01110 FCB 116 16 01120 FCB 102 17 01130 FCB 116 18 01140 FCB 108 19 01150 FCB 116 20 01160 FCB 102 21 01170 FCB 116 22 01180 FCB 102 23 01190 FCB 116 24 01200 FCB 108 25 01210 FCB 116 26 01220 FCB 102 27 01230 FCB 116 28 01240 FCB 102 29 01250 FCB 115 30 01260 FCB 32 31 01270 01280 * LINE 03 01290 FCB 111 00 01300 FCB 32 01 01310 FCB 117 02 01320 FCB 32 03 01330 FCB 117 04 01340 FCB 32 05 01350 FCB 117 06 01360 FCB 32 07 01370 FCB 117 08 01380 FCB 32 09 01390 FCB 117 10 01400 FCB 32 11 01410 FCB 117 12 01420 FCB 32 13 01430 FCB 117 14 01440 FCB 32 15 01450 FCB 117 16 01460 FCB 32 17 01470 FCB 117 18 01480 FCB 32 19 01490 FCB 110 20 01500 FCB 32 21 01510 FCB 117 22 01520 FCB 32 23 01530 FCB 117 24 01540 FCB 32 25 01550 FCB 117 26 01560 FCB 32 27 01570 FCB 117 28 01580 FCB 32 29 01590 FCB 111 30 01600 FCB 32 31 01610 01620 * LINE 04 01630 FCB 114 00 01640 FCB 108 01 01650 FCB 116 02 01660 FCB 108 03 01670 FCB 116 04 01680 FCB 102 05 01690 FCB 116 06 01700 FCB 102 07 01710 FCB 116 08 01720 FCB 102 09 01730 FCB 116 10 01740 FCB 102 11 01750 FCB 116 12 01760 FCB 102 13 01770 FCB 116 14 01780 FCB 108 15 01790 FCB 116 16 01800 FCB 102 17 01810 FCB 116 18 01820 FCB 102 19 01830 FCB 116 20 01840 FCB 108 21 01850 FCB 116 22 01860 FCB 108 23 01870 FCB 116 24 01880 FCB 108 25 01890 FCB 116 26 01900 FCB 108 27 01910 FCB 116 28 01920 FCB 108 29 01930 FCB 115 30 01940 FCB 32 31 01950 01960 * LINE 05 01970 FCB 111 00 01980 FCB 32 01 01990 FCB 110 02 02000 FCB 32 03 02010 FCB 110 04 02020 FCB 32 05 02030 FCB 117 06 02040 FCB 32 07 02050 FCB 117 08 02060 FCB 32 09 02070 FCB 110 10 02080 FCB 32 11 02090 FCB 117 12 02100 FCB 32 13 02110 FCB 110 14 02120 FCB 32 15 02130 FCB 110 16 02140 FCB 32 17 02150 FCB 117 18 02160 FCB 32 19 02170 FCB 117 20 02180 FCB 32 21 02190 FCB 110 22 02200 FCB 32 23 02210 FCB 110 24 02220 FCB 32 25 02230 FCB 110 26 02240 FCB 32 27 02250 FCB 110 28 02260 FCB 32 29 02270 FCB 111 30 02280 FCB 32 31 02290 02300 * LINE 06 02310 FCB 114 00 02320 FCB 108 01 02330 FCB 116 02 02340 FCB 1 03 02350 FCB 32 04 02360 FCB 32 05 02370 FCB 32 06 02380 FCB 32 07 02390 FCB 32 08 02400 FCB 32 09 02410 FCB 32 10 02420 FCB 32 11 02430 FCB 32 12 02440 FCB 32 13 02450 FCB 32 14 02460 FCB 32 15 02470 FCB 32 16 02480 FCB 32 17 02490 FCB 32 18 02500 FCB 32 19 02510 FCB 32 20 02520 FCB 32 21 02530 FCB 32 22 02540 FCB 32 23 02550 FCB 32 24 02560 FCB 32 25 02570 FCB 32 26 02580 FCB 32 27 02590 FCB 32 28 02600 FCB 32 29 02610 FCB 32 30 02620 FCB 32 31 02630 02640 * LINE 15 02650 FCB 83 00 02660 FCB 84 01 02670 FCB 82 02 02680 FCB 69 03 02690 FCB 78 04 02700 FCB 71 05 02710 FCB 84 06 02720 FCB 72 07 02730 FCB 32 08 02740 FCB 61 09 02750 FCB 32 10 02760 FCB 48 11 02770 FCB 48 12 02780 FCB 48 13 02790 FCB 48 14 02800 FCB 48 15 02810 FCB 32 16 02820 FCB 32 17 02830 FCB 32 18 02840 FCB 83 19 02850 FCB 67 20 02860 FCB 79 21 02870 FCB 82 22 02880 FCB 69 23 02890 FCB 32 24 02900 FCB 61 25 02910 FCB 32 26 02920 FCB 48 27 02930 FCB 48 28 02940 FCB 48 29 02950 FCB 48 30 02960 FCB 48 31 02970 02980 END 02990 03000 ***** 03010 * 03020 * EOF 03030 * 03040 *****                                                                                                                                                                                          00100 ***** 00110 * 00120 * SC000001.ASM 00130 * MDJ 2023/04/10 00140 * 00150 * SCREEN MAKER 00160 * MAZE 01 00170 * LEVEL 00 00180 * SECTION 00 00190 * 00200 * DETAILS FILE 00210 * 00220 ***** 00230 00240 ORG $5700 00250 00260 * LINE 00 00270 LINE00 FCB 32 00 00280 FCB 32 01 00290 FCB 32 02 00300 FCB 32 03 00310 FCB 32 04 00320 FCB 32 05 00330 FCB 32 06 00340 FCB 32 07 00350 FCB 32 08 00360 FCB 105 09 00370 FCB 98 10 00380 FCB 103 11 00390 FCB 107 12 00400 FCB 103 13 00410 FCB 107 14 00420 FCB 103 15 00430 FCB 107 16 00440 FCB 103 17 00450 FCB 107 18 00460 FCB 103 19 00470 FCB 107 20 00480 FCB 103 21 00490 FCB 107 22 00500 FCB 103 23 00510 FCB 107 24 00520 FCB 103 25 00530 FCB 107 26 00540 FCB 103 27 00550 FCB 107 28 00560 FCB 103 29 00570 FCB 99 30 00580 FCB 32 31 00590 00600 * LINE 01 00610 FCB 69 00 00620 FCB 78 01 00630 FCB 84 02 00640 FCB 69 03 00650 FCB 82 04 00660 FCB 252 05 00670 FCB 253 06 00680 FCB 32 07 00690 FCB 113 08 00700 FCB 32 09 00710 FCB 117 10 00720 FCB 32 11 00730 FCB 117 12 00740 FCB 32 13 00750 FCB 117 14 00760 FCB 32 15 00770 FCB 117 16 00780 FCB 32 17 00790 FCB 117 18 00800 FCB 32 19 00810 FCB 110 20 00820 FCB 32 21 00830 FCB 117 22 00840 FCB 32 23 00850 FCB 117 24 00860 FCB 32 25 00870 FCB 117 26 00880 FCB 32 27 00890 FCB 117 28 00900 FCB 32 29 00910 FCB 111 30 00920 FCB 32 31 00930 00940 * LINE 10 00950 FCB 114 00 00960 FCB 108 01 00970 FCB 116 02 00980 FCB 102 03 00990 FCB 116 04 01000 FCB 102 05 01010 FCB 116 06 01020 FCB 102 07 01030 FCB 116 08 01040 FCB 102 09 01050 FCB 116 10 01060 FCB 108 11 01070 FCB 116 12 01080 FCB 108 13 01090 FCB 116 14 01100 FCB 108 15 01110 FCB 116 16 01120 FCB 108 17 01130 FCB 116 18 01140 FCB 102 19 01150 FCB 116 20 01160 FCB 102 21 01170 FCB 116 22 01180 FCB 103 23 01190 FCB 106 24 01200 FCB 103 25 01210 FCB 106 26 01220 FCB 103 27 01230 FCB 106 28 01240 FCB 103 29 01250 FCB 101 30 01260 FCB 32 31 01270 01280 * LINE 11 01290 FCB 111 00 01300 FCB 32 01 01310 FCB 117 02 01320 FCB 32 03 01330 FCB 110 04 01340 FCB 32 05 01350 FCB 117 06 01360 FCB 32 07 01370 FCB 117 08 01380 FCB 32 09 01390 FCB 117 10 01400 FCB 32 11 01410 FCB 117 12 01420 FCB 32 13 01430 FCB 117 14 01440 FCB 32 15 01450 FCB 110 16 01460 FCB 32 17 01470 FCB 117 18 01480 FCB 32 19 01490 FCB 117 20 01500 FCB 127 21 01510 FCB 117 22 01520 FCB 32 23 01530 FCB 113 24 01540 FCB 32 25 01550 FCB 252 26 01560 FCB 253 27 01570 FCB 69 28 01580 FCB 88 29 01590 FCB 73 30 01600 FCB 84 31 01610 01620 * LINE 12 01630 FCB 100 00 01640 FCB 103 01 01650 FCB 106 02 01660 FCB 103 03 01670 FCB 106 04 01680 FCB 103 05 01690 FCB 106 06 01700 FCB 103 07 01710 FCB 106 08 01720 FCB 103 09 01730 FCB 106 10 01740 FCB 103 11 01750 FCB 106 12 01760 FCB 103 13 01770 FCB 106 14 01780 FCB 103 15 01790 FCB 106 16 01800 FCB 103 17 01810 FCB 106 18 01820 FCB 103 19 01830 FCB 106 20 01840 FCB 103 21 01850 FCB 101 22 01860 FCB 105 23 01870 FCB 32 24 01880 FCB 32 25 01890 FCB 32 26 01900 FCB 32 27 01910 FCB 32 28 01920 FCB 32 29 01930 FCB 32 30 01940 FCB 32 31 01950 01960 * LINE 13 01970 FCB 32 00 01980 FCB 32 01 01990 FCB 32 02 02000 FCB 32 03 02010 FCB 32 04 02020 FCB 32 05 02030 FCB 32 06 02040 FCB 32 07 02050 FCB 32 08 02060 FCB 32 09 02070 FCB 32 10 02080 FCB 32 11 02090 FCB 32 12 02100 FCB 32 13 02110 FCB 32 14 02120 FCB 32 15 02130 FCB 32 16 02140 FCB 32 17 02150 FCB 32 18 02160 FCB 32 19 02170 FCB 32 20 02180 FCB 32 21 02190 FCB 32 22 02200 FCB 32 23 02210 FCB 32 24 02220 FCB 32 25 02230 FCB 32 26 02240 FCB 32 27 02250 FCB 32 28 02260 FCB 32 29 02270 FCB 32 30 02280 FCB 32 31 02290 02300 * LINE 14 02310 FCB 32 00 02320 FCB 32 01 02330 FCB 32 02 02340 FCB 32 АU ibgkgkgkgkgkgkgkgkgkgc ENTER№¤ q u u u u u n u u u u o bgkgkgkgkgtftftftftltftftltftfs o u u u u u u u u u n u u u u o АUАrltltftftftftftltftftltltltltls o n n u u n u n n u u n n n n o rltltltftltltltltltftftftftltls o n n u n n n u n u n u u u n o                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   00100 ***** 00110 * 00120 * SB000001.ASM 00130 * MDJ 2023/04/08 00140 * 00150 * SCREEN MAKER 00160 * MAZE 01 00170 * LEVEL 00 00180 * SECTION 00 00190 * 00200 * LOWER HALF 00210 * 00220 ***** 00230 00240 ORG $5600 00250 00260 * LINE 08 00270 FCB 114 00 00280 FCB 108 01 00290 FCB 116 02 00300 FCB 108 03 00310 FCB 116 04 00320 FCB 102 05 00330 FCB 116 06 00340 FCB 102 07 00350 FCB 116 08 00360 FCB 108 09 00370 FCB 116 10 00380 FCB 102 11 00390 FCB 116 12 00400 FCB 102 13 00410 FCB 116 14 00420 FCB 102 15 00430 FCB 116 16 00440 FCB 102 17 00450 FCB 116 18 00460 FCB 102 19 00470 FCB 116 20 00480 FCB 108 21 00490 FCB 116 22 00500 FCB 102 23 00510 FCB 116 24 00520 FCB 102 25 00530 FCB 116 26 00540 FCB 102 27 00550 FCB 116 28 00560 FCB 108 29 00570 FCB 115 30 00580 FCB 32 31 00590 00600 * LINE 09 00610 FCB 111 00 00620 FCB 32 01 00630 FCB 110 02 00640 FCB 32 03 00650 FCB 117 04 00660 FCB 32 05 00670 FCB 117 06 00680 FCB 32 07 00690 FCB 117 08 00700 FCB 32 09 00710 FCB 117 10 00720 FCB 32 11 00730 FCB 110 12 00740 FCB 32 13 00750 FCB 110 14 00760 FCB 32 15 00770 FCB 117 16 00780 FCB 32 17 00790 FCB 117 18 00800 FCB 32 19 00810 FCB 117 20 00820 FCB 32 21 00830 FCB 110 22 00840 FCB 32 23 00850 FCB 117 24 00860 FCB 32 25 00870 FCB 117 26 00880 FCB 32 27 00890 FCB 117 o@     ` 4Ж`ОзАМ&∙59зД9жД9ЧvDDDDЧwHHHHЧєЦvРєЧєБ "Лp Л7ЧєЦwБ "Лp Л7╜@0Цє╜@0942ОО жазАМ%ЎЖ`зАМ%∙5294ЮИМ%╜@^ОрзАМ%╜@^ОрЯИ594ЧvDDDDЧwHHHHЧєЦvРєЧєБ "Лp Л7ЧєЦwБ "Лp Л7╜@}Цє╜@}594ЮИМ%М$Мр$ ─р├  ╜@^Ор ╜@ОЯИ59Б %Б@%Б`%БА% А@ Ж Л`9Б %Б@%Б`%БА% А` Л@ Ж`94h╖ ▐нЯа╖ ▀5h94ЮИМ"О0ЯИЖ`╜@5944╜@%5╜@%5944╜@Ю5╜@Ю59ЧМЯН╖ ▐╜йV╖ ▀94Ж─О╜AЗ59O╖ ▐ЧqnЯ ■Б $$Б'Б'Б 'Б' ╜AХ ╜AQ ╜@╫ ~Aв╜A%╜@9Б $$Б'Б'Б 'Б' ╜AХ ╜AQ ╜@╫ ~Aв╜A%╜@}94жА'╜A█ ў594жАБ '╜A█ ї╜@╫594жА╜A█1?' ї594 оБ╜B+5 94&OцА╜B+5&94╖ ▐╜╫_╖ ▀O╖ @59=94&2xпфпbжaцc=эdжфцc=эfжeзcжdлgзbжfЙзaЖзфофоb2l942sпфпbжaцc=эdжaцb=эfжфцc=эhжфцb=эjжeзcolжdлg$llлi$llзbжlolлf$llлh$llлk$llзaжlлjзфофоb2o94┴'╞4_HYсb%рbLjф&єчb2a5 5Ж ╞ 947М'!╞4O_heidYIгf%гflejф&ээf2a57 57О  О  94Ж╜C%59╢ В'╛ Гпj В;} #+;~Aв╢ ╢ Е'J╖ Е& ╢ ЖД░╖ Ж╖ @╛0┐OЛ▄у' У╒▌у"уфЮН'0ЯН;4╠Cd¤ P╠Cr¤╠C{¤ п59 ¤C╤94№¤C╤59№C╤4XIуфэфXI4XIXIуaэa5╞)гс¤C╤94P╛@ ╜C╢╖ ▀╬■ нД5P9М П"h2xпfOзbьfГd$эdOзc +ГdГd$эdЖзc ГdГd$эdЖзc ГdэdЖзcьdОГ%Г0 є\чф┴%\чaоbжaцф2h9О  ╠  9М"_Б""[Б'W┴"S┴'O2zпbзaчфжcБ'Б'Б'╠, ╠╚ ╠d ╠эbжa╞=эdцфZOуdуbэdжaБ"оd ьdГ2f9О  942xпdпfоd╜DМ  '&пbзaчфьf▌южфЧэжaЧьжcЧыЖЧъ╜BSЦЁ&2h59О  2h5942xпdпfоd╜DМ  '&пbзaчфьf▌южфЧэжaЧьжcЧыЖЧъ╜BSЦЁ&2h59О  2h59╞О └F$з зД0Z&Є9╞О ╞ ъ4ЖЧ╝╠▌║╠▌╖ЖЧ╣ЖЧ▓OЧ╢Ч│Ч╡Ч┴Ч█О ╚з ззззззззз╢ "Д╖ "59                            4ЖЧ╝╠&▌║╠>▌╖Ж Ч╣ЖЧ╢ЖЧ▓OЧ│Ч╡Ч┴Ч█ЖЁ╖ "Ж╜EИЖ╜Et594Б'Ж ЙЮ║эБЬ╖&·592zэdDVDVDVэb▄║уbьbXIXIXIэфьdгфэфЖаaцД2f9402~╜FWчaHHОFФnЖ╞■ ╞¤ ╞√ ╞ў ╞я ╞▀ ╞┐ ╞чф!жaдфзД2b509402~╜FWчaHHОF╙nЖ╞ ╞ ╞ ╞ ╞ ╞ ╞@ ╞Ачф!жaкфзД2b509  ╟я╟л╫╫╫     ├ч├├ч██     ├╙ує├єы     ├╦╟╧├╧╫     Глляя╫╗     ╟╟╟яГя╫      ГлУГ╟╗     ╧╧▀├▀╧╫     єє√├√єы     ╗╫╗╫╟ГлГ    ГлГ╟╫╗╫╗    г├л├л├г     ЛЗлЗлЗЛ    я╫Г╟ля╫╗     ▀зєГєз▀     √х╧┴╧х√                                                                                                                                                                                        Б├чяўя▀яўя               яяяяя я     ╫╫╫         ╫╫Г╫Г╫╫     я├п╟ыЗя     ЯЫўя▀│є     ▀пп▀л╖╦     яя▀         ўя▀▀▀яў     ▀яўўўя▀      ял╟╟ля      яяГяя           ▀▀┐       Г              я      √ўя▀┐      ╟╗│лЫ╗╟     я╧яяяя╟     ╟╗√╟┐┐Г     ╟╗√ў√╗╟     ўч╫╖Гўў     Г┐З√√╗╟     ╟┐┐З╗╗╟     Г√ўя▀┐┐     ╟╗╗╟╗╗╟     ╟╗╗├√√╟       я  я        я  яя▀    ўя▀┐▀яў       Г Г       ▀яў√ўя▀     ╟╗√ўя я     ╟╗√╦││╟     я╫╗╗Г╗╗     З██╟██З     ╟╗┐┐┐╗╟     З█████З     Г┐┐П┐┐Г     Г┐┐П┐┐┐     ╟╗┐┐│╗╟     ╗╗╗Г╗╗╗     ╟яяяяя╟     √√√√√╗╟     ╗╖пЯп╖╗     ┐┐┐┐┐┐Г     ╗Улл╗╗╗     ╗╗Ыл│╗╗     ╟╗╗╗╗╗╟     З╗╗З┐┐┐     ╟╗╗╗л╖╦     З╗╗Зп╖╗     ╟╗┐╟√╗╟     Гяяяяяя     ╗╗╗╗╗╗╟     ╗╗╗╫╫яя     ╗╗╗╗лУ╗     ╗╗╫я╫╗╗     ╗╗╫яяяя     Г√ўя▀┐Г     ╟▀▀▀▀▀╟      ┐▀яў√      ╟ўўўўў╟     я╟ляяяя      я▀Г▀я      яяяял╟я      яўГўя         ряяяяяя     яяяяяяяяяяяр      яяяяя                                                    яяяяя           яяяяяя    }|}         |     яяяяяяяяяяяяяяяяяяяяяяяя                        яяяяяряяяяяяяяяяяяяяяяяяяяяяяяяяяяя╟       ╟яяя╟╫╫╫╫╫╫╫╟яя Б╜╜Эн╡╣╜╜Б              ББББб▒╣╜╜Б              ч█╜╣╡нЭ╜█ч              ч█╜╣▒бББ├ч               ╗╗╗╗лУ╗       █чч█         чч         ├├├├       ББББББ    л ╒ л ╒ л    З╗╗З┐┐┐    ╟ўчўўўўуыу  ╟ўчў╟ўўуыу  ╟ў╟ўўўўуыу  ╟ў╟ўчўўуыу  ╜╜█ ├├чччч  ╜╜█ ├├чччч  ╜╜█ ├├чччч  ╜╜█ ├├чччч   ў╜█  █╜я   ╜ччеччечч╜  ╜ччеччечч╜  ╜ччеччечч╜  ╜ччеччечч╜  ╜ччеччечч╜  ╜ччеччечч╜  Э╜╜н╡н╜╜╣    Б╜╜╜╜██ч     ўўўўуўў   ўўўўўўўуўў  чччччччБчч  ч█╜Бчччччч  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ўўууўўўўўы  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г  ┴Б╣ййййй╣Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г                                                                                                                                                                                                                                                                                ├╔├┼┴┴╔┬╔┬!"┬$%&╔┬┬*+,╔╞┴╞1┴                  MLBASE BIN ySA000001ASM #GSA000001BINSB000001ASM GSB000001BIN'SC000001ASM ISC000001BIN(SD000001ASM )KSD000001BINSMMAKER ASM -CCSMMAKER BIN.77SMREADERASM /++SMREADERBIN77SMDISPLYASM 0╡ ╡SMDISPLYBIN``SMMAKER BASJSMREADERBASЫSMDISPLYBAS░FALSFILEBASЗ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г      А       ▀яў√√ўя▀  ЩБ├чч├БЩ├Б<<<<<<Б├~S  ╖SўSўSЎSXЖ└=єS╙║╢S╞ =├GжазДжазИ жазИ@жазИ`жазЙАжазЙажазЙ└жазЙржазЙжазЙ жазЙ@жазЙ`9 @╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г   Г╗╗ллл╗╗Г      А       ▀яў√√ўя▀  ЩБ├чч├БЩ├Б<<<<                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 ***** 00110 * 00120 * SA000001.ASM 00130 * MDJ 2023/04/07 00140 * 00150 * SCREEN MAKER 00160 * MAZE 01 00170 * LEVEL 00 00180 * SECTION 00 00190 * 00200 * UPPER HALF 00210 * 00220 ***** 00230 00240 ORG $5500 00250 00260 * LINE 00 00270 LINE00 FCB 32 00 00280 FCB 32 01 00290 FCB 32 02 00300 FCB 32 03 00310 FCB 32 04 00320 FCB 32 05 00330 FCB 32 06 00340 FCB 32 07 00350 FCB 32 08 00360 FCB 105 09 00370 FCB 98 10 00380 FCB 103 11 00390 FCB 107 12 00400 FCB 103 13 00410 FCB 107 14 00420 FCB 103 15 00430 FCB 107 16 00440 FCB 103 17 00450 FCB 107 18 00460 FCB 103 19 00470 FCB 107 20 00480 FCB 103 21 00490 FCB 107 22 00500 FCB 103 23 00510 FCB 107 24 00520 FCB 103 25 00530 FCB 107 26 00540 FCB 103 27 00550 FCB 107 28 00560 FCB 103 29 00570 FCB 99 30 00580 FCB 32 31 00590 00600 * LINE 01 00610 FCB 69 00 00620 FCB 78 01 00630 FCB 84 02 00640 FCB 69 03 00650 FCB 82 04 00660 FCB 252 05 00670 FCB 253 06 00680 FCB 32 07 00690 FCB 113 08 00700 FCB 32 09 00710 FCB 117 10 00720 FCB 32 11 00730 FCB 117 12 00740 FCB 32 13 00750 FCB 117 14 00760 FCB 32 15 00770 FCB 117 16 00780 FCB 32 17 00790 FCB 117 18 00800 FCB 32 19 00810 FCB 110 20 00820 FCB 32 21 00830 FCB 117 22 00840 FCB 32 23 00850 FCB 117 24 00860 FCB 32 25 00870 FCB 117 26 00880 FCB 32 27 00890 FCB 117 28 00900 FCB 32 29 00910 FCB 111 30 00920 FCB 32 31 00930 00940 * LINE 02 00950 FCB 98 00 00960 FCB 103 01 00970 FCB 107 02 00980 FCB 103 03 00990 FCB 107 04 01000 FCB 103 05 01010 FCB 107 06 01020 FCB 103 07 01030 FCB 107 08 01040 FCB 103 09 01050 FCB 116 10 01060 FCB 102 11 01070 FCB 116 12 01080 FCB 102 13 01090 FCB 116 14 01100 FCB 102 15 01110 FCB 116 16 01120 FCB 102 17 01130 FCB 116 18 01140 FCB 108 19 01150 FCB 116 20 01160 FCB 102 21 01170 FCB 116 22 01180 FCB 102 23 01190 FCB 116 24 01200 FCB 108 25 01210 FCB 116 26 01220 FCB 102 27 01230 FCB 116 28 01240 FCB 102 29 01250 FCB 115 30 01260 FCB 32 31 01270 01280 * LINE 03 01290 FCB 111 00 01300 FCB 32 01 01310 FCB 117 02 01320 FCB 32 03 01330 FCB 117 04 01340 FCB 32 05 01350 FCB 117 06 01360 FCB 32 07 01370 FCB 117 08 01380 FCB 32 09 01390 FCB 117 10 01400 FCB 32 11 01410 FCB 117 12 01420 FCB 32 13 01430 FCB 117 14 01440 FCB 32 15 01450 FCB 117 16 01460 FCB 32 17 01470 FCB 117 18 01480 FCB 32 19 01490 FCB 110 20 01500 FCB 32 21 01510 FCB 117 22 01520 FCB 32 23 01530 FCB 117 24 01540 FCB 32 25 01550 FCB 117 26 01560 FCB 32 27 01570 FCB 117 28 01580 FCB 32 29 01590 FCB 111 30 01600 FCB 32 31 01610 01620 * LINE 04 01630 FCB 114 00 01640 FCB 108 01 01650 FCB 116 02 01660 FCB 108 03 01670 FCB 116 04 01680 FCB 102 05 01690 FCB 116 06 01700 FCB 102 07 01710 FCB 116 08 01720 FCB 102 09 01730 FCB 116 10 01740 FCB 102 11 01750 FCB 116 12 01760 FCB 102 13 01770 FCB 116 14 01780 FCB 108 15 01790 FCB 116 16 01800 FCB 102 17 01810 FCB 116 18 01820 FCB 102 19 01830 FCB 116 20 01840 FCB 108 21 01850 FCB 116 22 01860 FCB 108 23 01870 FCB 116 24 01880 FCB 108 25 01890 FCB 116 26 01900 FCB 108 27 01910 FCB 116 28 01920 FCB 108 29 01930 FCB 115 30 01940 FCB 32 31 01950 01960 * LINE 05 01970 FCB 111 00 01980 FCB 32 01 01990 FCB 110 02 02000 FCB 32 03 02010 FCB 110 04 02020 FCB 32 05 02030 FCB 117 06 02040 FCB 32 07 02050 FCB 117 08 02060 FCB 32 09 02070 FCB 110 10 02080 FCB 32 11 02090 FCB 117 12 02100 FCB 32 13 02110 FCB 110 14 02120 FCB 32 15 02130 FCB 110 16 02140 FCB 32 17 02150 FCB 117 18 02160 FCB 32 19 02170 FCB 117 20 02180 FCB 32 21 02190 FCB 110 22 02200 FCB 32 23 02210 FCB 110 24 02220 FCB 32 25 02230 FCB 110 26 02240 FCB 32 27 02250 FCB 110 28 02260 FCB 32 29 02270 FCB 111 30 02280 FCB 32 31 02290 02300 * LINE 06 02310 FCB 114 00 02320 FCB 108 01 02330 FCB 116 02 02340 FCB 108 03 02350 FCB 116 04 02360 FCB 108 05 02370 FCB 116 06 02380 FCB 102 07 02390 FCB 116 08 02400 FCB 108 09 02410 FCB 116 10 02420 FCB 108 11 02430 FCB 116 12 02440 FCB 108 13 02450 FCB 116 14 02460 FCB 108 15 02470 FCB 116 16 02480 FCB 108 17 02490 FCB 116 18 02500 FCB 102 19 02510 FCB 116 20 02520 FCB 102 21 02530 FCB 116 22 02540 FCB 102 23 02550 FCB 116 24 02560 FCB 102 25 02570 FCB 116 26 02580 FCB 108 27 02590 FCB 116 28 02600 FCB 108 29 02610 FCB 115 30 02620 FCB 32 31 02630 02640 * LINE 07 02650 FCB 111 00 02660 FCB 32 01 02670 FCB 110 02 02680 FCB 32 03 02690 FCB 110 04 02700 FCB 32 05 02710 FCB 117 06 02720 FCB 32 07 02730 FCB 110 08 02740 FCB 32 09 02750 FCB 110 10 02760 FCB 32 11 02770 FCB 110 12 02780 FCB 32 13 02790 FCB 117 14 02800 FCB 32 15 02810 FCB 110 16 02820 FCB 32 17 02830 FCB 117 18 02840 FCB 32 19 02850 FCB 110 20 02860 FCB 32 21 02870 FCB 117 22 02880 FCB 32 23 02890 FCB 117 24 02900 FCB 32 25 02910 FCB 117 26 02920 FCB 32 27 02930 FCB 110 28 02940 FCB 32 29 02950 FCB 111 30 02960 FCB 32 31 02970 02980 END 02990 03000 ***** 03010 * 03020 * EOF 03030 * 03040 *****                                                                                                                                                                                          АVrltltftftltftftftftftltftftftls o n u u u u n n u u u n u u u o rltftftftftltltltltftftgjgjgjge o u n u u u u u n u uu q №¤EXITАVАdgjgjgjgjgjgjgjgjgjgjgei STRENGTH = 00000 SCORE = 00000                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  АW ibgkgkgkgkgkgkgkgkgkgc ENTER№¤ q u u u u u n u u u u o bgkgkgkgkgtftftftftltftftltftfs o u u u u u u u u u n u u u u o АWАrltltftftftftftltftftltltltltls o n n u u n u n n u u n n n n o rltltltftltltltltltftftftftltls o n n u n n n u n u n u u u n o                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   00100 ***** 00110 * 00120 * SD000001.ASM 00130 * MDJ 2023/04/10 00140 * 00150 * SCREEN MAKER 00160 * MAZE 01 00170 * LEVEL 00 00180 * SECTION 00 00190 * 00200 * UTILITIES FILE 00210 * 00220 ***** 00230 00240 ORG $5800 00250 00260 * LINE 00 00270 LINE00 FCB 32 00 00280 FCB 32 01 00290 FCB 32 02 00300 FCB 32 03 00310 FCB 32 04 00320 FCB 32 05 00330 FCB 32 06 00340 FCB 32 07 00350 FCB 32 08 00360 FCB 105 09 00370 FCB 98 10 00380 FCB 103 11 00390 FCB 107 12 00400 FCB 103 13 00410 FCB 107 14 00420 FCB 103 15 00430 FCB 107 16 00440 FCB 103 17 00450 FCB 107 18 00460 FCB 103 19 00470 FCB 107 20 00480 FCB 103 21 00490 FCB 107 22 00500 FCB 103 23 00510 FCB 107 24 00520 FCB 103 25 00530 FCB 107 26 00540 FCB 103 27 00550 FCB 107 28 00560 FCB 103 29 00570 FCB 99 30 00580 FCB 32 31 00590 00600 * LINE 01 00610 FCB 69 00 00620 FCB 78 01 00630 FCB 84 02 00640 FCB 69 03 00650 FCB 82 04 00660 FCB 252 05 00670 FCB 253 06 00680 FCB 32 07 00690 FCB 113 08 00700 FCB 32 09 00710 FCB 117 10 00720 FCB 32 11 00730 FCB 117 12 00740 FCB 32 13 00750 FCB 117 14 00760 FCB 32 15 00770 FCB 117 16 00780 FCB 32 17 00790 FCB 117 18 00800 FCB 32 19 00810 FCB 110 20 00820 FCB 32 21 00830 FCB 117 22 00840 FCB 32 23 00850 FCB 117 24 00860 FCB 32 25 00870 FCB 117 26 00880 FCB 32 27 00890 FCB 117 28 00900 FCB 32 29 00910 FCB 111 30 00920 FCB 32 31 00930 00940 * LINE 02 00950 FCB 98 00 00960 FCB 103 01 00970 FCB 107 02 00980 FCB 103 03 00990 FCB 107 04 01000 FCB 103 05 01010 FCB 107 06 01020 FCB 103 07 01030 FCB 107 08 01040 FCB 103 09 01050 FCB 116 10 01060 FCB 102 11 01070 FCB 116 12 01080 FCB 102 13 01090 FCB 116 14 01100 FCB 102 15 01110 FCB 116 16 01120 FCB 102 17 01130 FCB 116 18 01140 FCB 108 19 01150 FCB 116 20 01160 FCB 102 21 01170 FCB 116 22 01180 FCB 102 23 01190 FCB 116 24 01200 FCB 108 25 01210 FCB 116 26 01220 FCB 102 27 01230 FCB 116 28 01240 FCB 102 29 01250 FCB 115 30 01260 FCB 32 31 01270 01280 * LINE 03 01290 FCB 111 00 01300 FCB 32 01 01310 FCB 117 02 01320 FCB 32 03 01330 FCB 117 04 01340 FCB 32 05 01350 FCB 117 06 01360 FCB 32 07 01370 FCB 117 08 01380 FCB 32 09 01390 FCB 117 10 01400 FCB 32 11 01410 FCB 117 12 01420 FCB 32 13 01430 FCB 117 14 01440 FCB 32 15 01450 FCB 117 16 01460 FCB 32 17 01470 FCB 117 18 01480 FCB 32 19 01490 FCB 110 20 01500 FCB 32 21 01510 FCB 117 22 01520 FCB 32 23 01530 FCB 117 24 01540 FCB 32 25 01550 FCB 117 26 01560 FCB 32 27 01570 FCB 117 28 01580 FCB 32 29 01590 FCB 111 30 01600 FCB 32 31 01610 01620 * LINE 04 01630 FCB 114 00 01640 FCB 108 01 01650 FCB 116 02 01660 FCB 108 03 01670 FCB 116 04 01680 FCB 102 05 01690 FCB 116 06 01700 FCB 102 07 01710 FCB 116 08 01720 FCB 102 09 01730 FCB 116 10 01740 FCB 102 11 01750 FCB 116 12 01760 FCB 102 13 01770 FCB 116 14 01780 FCB 108 15 01790 FCB 116 16 01800 FCB 102 17 01810 FCB 116 18 01820 FCB 102 19 01830 FCB 116 20 01840 FCB 108 21 01850 FCB 116 22 01860 FCB 108 23 01870 FCB 116 24 01880 FCB 108 25 01890 FCB 116 26 01900 FCB 108 27 01910 FCB 116 28 01920 FCB 108 29 01930 FCB 115 30 01940 FCB 32 31 01950 01960 * LINE 05 01970 FCB 111 00 01980 FCB 32 01 01990 FCB 110 02 02000 FCB 32 03 02010 FCB 110 04 02020 FCB 32 05 02030 FCB 117 06 02040 FCB 32 07 02050 FCB 117 08 02060 FCB 32 09 02070 FCB 110 10 02080 FCB 32 11 02090 FCB 117 12 02100 FCB 32 13 02110 FCB 110 14 02120 FCB 32 15 02130 FCB 110 16 02140 FCB 32 17 02150 FCB 117 18 02160 FCB 32 19 02170 FCB 117 20 02180 FCB 32 21 02190 FCB 110 22 02200 FCB 32 23 02210 FCB 110 24 02220 FCB 32 25 02230 FCB 110 26 02240 FCB 32 27 02250 FCB 110 28 02260 FCB 32 29 02270 FCB 111 30 02280 FCB 32 31 02290 02300 * LINE 06 02310 FCB 114 00 02320 FCB 108 01 02330 FCB 116 02 02340 FCB 108 03 02350 FCB 116 04 02360 FCB 108 05 02370 FCB 116 06 02380 FCB 102 07 02390 FCB 116 08 02400 FCB 108 09 02410 FCB 116 10 02420 FCB 108 11 02430 FCB 116 12 02440 FCB 108 13 02450 FCB 116 14 02460 FCB 108 15 02470 FCB 116 16 02480 FCB 108 17 02490 FCB 116 18 02500 FCB 102 19 02510 FCB 116 20 02520 FCB 102 21 02530 FCB 116 22 02540 FCB 102 23 02550 FCB 116 24 02560 FCB 102 25 02570 FCB 116 26 02580 FCB 108 27 02590 FCB 116 28 02600 FCB 108 29 02610 FCB 115 30 02620 FCB 32 31 02630 02640 * LINE 07 02650 FCB 111 00 02660 FCB 32 01 02670 FCB 110 02 02680 FCB 32 03 02690 FCB 110 04 02700 FCB 32 05 02710 FCB 117 06 02720 FCB 32 07 02730 FCB 110 08 02740 FCB 32 09 02750 FCB 110 10 02760 FCB 32 11 02770 FCB 110 12 02780 FCB 32 13 02790 FCB 117 14 02800 FCB 32 15 02810 FCB 110 16 02820 FCB 32 17 02830 FCB 117 18 02840 FCB 32 19 02850 FCB 110 20 02860 FCB 32 21 02870 FCB 117 22 02880 FCB 32 23 02890 FCB 117 24 02900 FCB 32 25 02910 FCB 117 26 02920 FCB 32 27 02930 FCB 110 28 02940 FCB 32 29 02950 FCB 111 30 02960 FCB 32 31 02970 02980 END 02990 03000 ***** 03010 * 03020 * EOF 03030 * 03040 *****                                                                                                                                                                                      00100 ***** 00110 * 00120 * SMMAKER.ASM 00130 * MDJ 2023/04/19 00140 * 00150 * SCREEN MAZE MAKER 00160 * ASSEMBLY ROUTINE 00170 * 00180 * SAVES THE SA, SB, SC, SD 00190 * FILE CONTENTS, I.E. THE 00200 * SCREEN INFORMATION BUFFERS, 00210 * TO THE "RESERVED.IMG" 00220 * ON A FALSFILE DISK. 00230 * 00240 ***** 00250 00260 FLPUT EQU $44F2 PUT BUFFER TO FALSE DISK 00270 LINE00 EQU $5500 START OF SA FILE 00280 LINE08 EQU $5600 START OF SB FILE 00290 SCDTLS EQU $5700 START OF SB FILE 00300 SCUTLS EQU $5800 START OF SB FILE 00310 00320 ORG $536F 00330 00340 SMMAKE PSHS X,Y 00350 00360 * PUT SA FILE CONTENTS TO 00370 * FALSE DISK SECTOR #0 00380 LDX #0 00390 LDY #LINE00 00400 JSR FLPUT 00410 00420 * PUT SB FILE CONTENTS TO 00430 * FALSE DISK SECTOR #1 00440 LDX #1 00450 LDY #LINE08 00460 JSR FLPUT 00470 00480 * PUT SC FILE CONTENTS TO 00490 * FALSE DISK SECTOR #2 00500 LDX #2 00510 LDY #SCDTLS 00520 JSR FLPUT 00530 00540 * PUT SB FILE CONTENTS TO 00550 * FALSE DISK SECTOR #3 00560 LDX #3 00570 LDY #SCUTLS 00580 JSR FLPUT 00590 00600 PULS X,Y 00610 00620 ENDCHK RTS 00630 00640 END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              -So40ООU╜DЄООV╜DЄООW╜DЄООX╜DЄ509                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          00100 ***** 00110 * 00120 * SMREADER.ASM 00130 * MDJ 2023/04/10 00140 * 00150 * SCREEN MAZE READER 00160 * ASSEMBLY ROUTINE 00170 * 00180 * GETS THE SCREEN 00190 * INFORMATION BUFFERS 00200 * FROM A FALSE DISK 00210 * 00220 ***** 00230 00240 FLGET EQU $4533 GET BUFFER FROM FALSE DISK 00250 LINE00 EQU $5500 START OF LINE00 BUFFER 00260 LINE08 EQU $5600 START OF LINE08 BUFFER 00270 SCDTLS EQU $5700 START OF SCDTLS BUFFER 00280 SCUTLS EQU $5800 START OF SCUTLS BUFFER 00290 00300 ORG $539C 00310 00320 SMREAD PSHS X,Y 00330 00340 * GET LINE00 BUFFER CONTENTS 00350 * FROM FALSE DISK SECTOR #0 00360 LDX #0 00370 LDY #LINE00 00380 JSR FLGET 00390 00400 * GET LINE08 BUFFER CONTENTS 00410 * FROM FALSE DISK SECTOR #1 00420 LDX #1 00430 LDY #LINE08 00440 JSR FLGET 00450 00460 * GET SCDTLS BUFFER CONTENTS 00470 * FROM FALSE DISK SECTOR #2 00480 LDX #2 00490 LDY #SCDTLS 00500 JSR FLGET 00510 00520 * GET SCUTLS BUFFER CONTENTS 00530 * FROM FALSE DISK SECTOR #3 00540 LDX #3 00550 LDY #SCUTLS 00560 JSR FLGET 00570 00580 PULS X,Y 00590 00600 ENDCHK RTS 00610 00620 END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      00100 ***** 00110 * 00120 * SMDISPLY.ASM 00130 * MDJ 2023/04/10 00140 * 00150 * SCREEN MAZE DISPLAY 00160 * ASSEMBLY ROUTINE 00170 * 00180 * DISPLAYS THE MAZE 00190 * ON SCREEN, USING THE 00200 * FAKETEXT 32 X 16 00210 * CHARACTER SET FOR 00220 * PMODE 4 00230 * 00240 * ** START NOTE TO MDJ ** 00250 * THIS ROUTINE IS SOMEWHAT 00260 * INEFFICIENT, BUT IT'S 00270 * EASY TO UNDERSTAND AND 00280 * IT'S FAST ENOUGH TO BE 00290 * ACCEPTABLE. IT ALSO USES 00300 * $E400-$E7FF IN HIGH MEMORY. 00310 * ** BOO! HISS! ** 00320 * 00330 * FOR FUTURE WORK: REPLACE 00340 * THIS WITH A MORE EFFICIENT 00350 * SMDRAW ROUTINE - SEE THE 00360 * "FUTUREWORK" FOLDER. 00370 * ** END NOTE TO MDJ ** 00380 * 00390 ***** 00400 00410 PTFCHR EQU $5300 FAKE TEXT ROUTINE 00420 LINE00 EQU $5500 START OF BUFFERS 00430 00440 ORG $53C9 00450 00460 SMDISP JMP LBL001 00470 00480 XCOORD RMB 1 00490 YCOORD RMB 1 00500 CHRCOD RMB 2 00510 00520 LBL001 PSHS A,B,X,Y,U 00530 LDY #LINE00 00540 LDU #$E400 TEMP CHRCOD STORE 00550 00560 LBL002 LDB ,Y+ GET THE CHRCOD 00570 CLRA EXTEND IT TO 16-BITS 00580 STD ,U++ SAVE CHRCOD TO STORE 00590 00600 CMPY #$5700 ARE WE DONE? 00610 BLO LBL002 GO IF NO 00620 00630 CHROUT LDU #$E400 RESET CHRCOD STORE PTR 00640 LDA #$FF SET FIRST XCOORD TO ROLL 00650 LDB #$00 SET FIRST YCOORD TO ZERO 00660 00670 LBL003 INCA INCREMENT XCOORD 00680 STA XCOORD 00690 STB YCOORD 00700 CMPA #32 END OF THE X LINE? 00710 BLO LBL004 GO IF NO 00720 CLRA SET XCOORD = 0 00730 STA XCOORD 00740 INCB INCREMENT YCOORD 00750 STB YCOORD 00760 CMPB #16 END OF SCREEN? 00770 BLO LBL004 GO IF NO 00780 BRA LBL005 GO IF YES 00790 00800 LBL004 LDX ,U++ GET CHRCOD FROM STORE 00810 STX CHRCOD 00820 00830 PSHS A,B,X PUT CHRCOD TO SCREEN 00840 LDA XCOORD 00850 LDB YCOORD 00860 LDX CHRCOD 00870 JSR PTFCHR 00880 PULS A,B,X 00890 BRA LBL003 RETURN FOR NEXT CHRCOD 00900 00910 LBL005 PULS A,B,X,Y,U 00920 00930 ENDCHK RTS 00940 00950 END