01660 * ADJUST STRENGTH AND SCORE 01670 * TEMPORARILY SKIP LIMIT CHECK 01680 LDD SCORE 01690 ADDD STRNTH 01700 STD SCORE 01710 LDD #0 01720 STD STRNTH 01730 JSR RPTSTR REPORT CURRENT STRENGTH 01740 JSR RPTSCO REPORT CURRENT SCORE 01750 PULS A,B 01760 PULS A,B,X 01770 JMP GMOVER QUEST IS COMPLETE 01780 01790 LBLSC3 PULS A,B 01800 01810 LBL004 PULS A,B,X 01820 ENDCHK RTS 01830 01840 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ'S NOT AN OPENING) 00970 00980 * REVEAL THE CURRENT CELL 00990 * CONTENTS ON THE SCREEN. 01000 * (FROM UNDER THE AVATAR) 01010 * TESTING = USE SPACE 01020 LBL002 LDB CELLCC CONTENTS 01030 CLRA EXTEND IT 01040 TFR D,X 01050 LDA MXC MX-COORDINATE 01060 LDB MYC MY-COORDINATE 01070 JSR MCSCCV CONVERT TO SX,SY 01080 JSR PTFCHR PUT TO SCREEN 01090 01100 * GO ONE MAZE CELL EAST 01110 LDA MXC CURRENT MX 01120 INCA 01130 STA MXN NEW MX 01140 LDB MYC CURRENT MY 01150 STB MYN NEW MY 01160 01170 * SAVE NEW CELL SCREEN CONTENTS 01180 JSR MCSCCV CONVERT TO SX,SY 01190 JSR GTFVAL GET CHAR VALUE 01200 STB CELLCC SAVE AS CONTENTS 01210 01220 * PUT AVATAR TO NEW SCREEN LOCATION 01230 LDA MXN MX-COORDINATE 01240 LDB MYN MY-COORDINATE 01250 JSR MCSCCV CONVERT TO SX,SY 01260 LDX #$0000 AVATAR CODE EXTENDED 01270 JSR PTFCHR PUT TO SCREEN 01280 01290 * MAKE THE NEW COORDINATES CURRENT 01300 LDA MXN NEW MX 01310 STA MXC CURRENT MX 01320 LDB MYN NEW MY 01330 STB MYC CURRENT MY 01340 01350 * GO CHECK FOR PROVISIONS 01360 JSR PROCHK 01370 01380 * ADJUST STRENGTH VARIABLE 01390 PSHS A,B STRENGTH EFFECT 01400 LDD STRNTH 01410 CMPD #1 IS IT AT LIMIT 01420 BHI LBL003 GO IF NO 01430 LDD #0 01440 STD STRNTH 01450 PULS A,B 01460 JSR RPTSTR REPORT CURRENT STRENGTH 01470 PULS A,B,X 01480 JMP GMOVED YOU DIED 01490 01500 LBL003 SUBD #1 01510 STD STRNTH 01520 PULS A,B 01530 JSR RPTSTR REPORT CURRENT STRENGTH 01540 01550 * CHECK FOR QUEST COMPLETION 01560 * (CAN ONLY BE ACCOMPLISHED BY AN 01570 * EAST MOVE INTO CELL (MX=11, MY=5) 01580 PSHS A,B 01590 LDA MXC 01600 CMPA #11 01610 BNE LBLSC3 01620 LDB MYC 01630 CMPB #5 01640 BNE LBLSC3 01650 01020 LBL010 CMPA #$50 01030 BNE LBL011 01040 JSR PCHARK 01050 BRA LBL001 01060 01070 * RCHARK (R-KEY = RESUME GAME) 01080 * (UNIMPLEMENTED DUMMY) 01090 LBL011 CMPA #$52 01100 BNE LBL012 01110 JSR RCHARK 01120 BRA LBL001 01130 01140 * SOUTHK (DOWN ARROW) 01150 LBL012 CMPA #$0A 01160 BNE LBL013 01170 JSR SOUTHK 01180 BRA LBL001 01190 01200 * TCHARK (T-KEY = TAKE) 01210 * (PUT CONTENTS OF CELL INTO BAG) 01220 LBL013 CMPA #$54 01230 BNE LBL014 01240 JSR TCHARK 01250 BRA LBL001 01260 01270 * UCHARK (U-KEY = UP TO NEXT LEVEL ABOVE) 01280 * (UNIMPLEMENTED DUMMY) 01290 LBL014 CMPA #$55 01300 BNE LBL015 01310 JSR UCHARK 01320 BRA LBL001 01330 01340 * WESTK (LEFT ARROW) 01350 LBL015 CMPA #$08 01360 BNE LBL016 01370 JSR WESTK 01380 LBRA LBL001 01390 01400 * XCHARK (X-KEY = EXIT GAME) 01410 LBL016 CMPA #$58 01420 BNE LBL017 01430 JSR XCHARK JUMPS TO COLD 01440 LBRA LBL001 DUMMY 01450 01460 * YCHARK (Y-KEY = ANSWER "YES") 01470 * (CONFIRM) 01480 * (UNIMPLEMENTED DUMMY) 01490 LBL017 CMPA #$59 01500 BNE LBL018 01510 JSR YCHARK 01520 LBRA LBL001 01530 01540 * ANY OTHER KEYPRESS 01550 LBL018 LBRA LBL001 01560 01570 GMEXIT PULS A 01580 ENDCHK RTS 01590 01600 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * GMLOOP.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * GAME LOOP 00160 * 00170 ***** 00180 00190 * MLF POLCAT 00200 POLCAT EQU $4142 00210 00220 * KEY EVENT HANDLERS 00230 BCHARK EQU $5CA0 00240 DCHARK EQU $5CC0 00250 EASTK EQU $5CE0 00260 GCHARK EQU $5DE0 00270 ICHARK EQU $5E20 00280 LCHARK EQU $5E40 00290 NCHARK EQU $5F00 00300 NORTHK EQU $5F20 00310 PCHARK EQU $5FE0 00320 RCHARK EQU $6000 00330 SOUTHK EQU $6020 00340 TCHARK EQU $60E0 00350 UCHARK EQU $6160 00360 WESTK EQU $6180 00370 XCHARK EQU $6240 00380 YCHARK EQU $6280 00390 00400 ORG $6960 00410 00420 GMLOOP PSHS A 00430 00440 * GET A KEYPRESS 00450 LBL001 JSR POLCAT 00460 BEQ LBL001 00470 00480 * BCHARK (B-KEY = BAG INVENTORY) 00490 LBL002 CMPA #$42 00500 BNE LBL003 00510 JSR BCHARK 00520 BRA LBL001 00530 00540 * DCHARK (D-KEY = DOWN TO NEXT LEVEL BELOW) 00550 * (UNIMPLEMENTED DUMMY) 00560 LBL003 CMPA #$44 00570 BNE LBL004 00580 JSR DCHARK 00590 BRA LBL001 00600 00610 * EASTK (RIGHT ARROW) 00620 LBL004 CMPA #$09 00630 BNE LBL005 00640 JSR EASTK 00650 BRA LBL001 00660 00670 * GCHARK (G-KEY = NEW GAME) 00680 LBL005 CMPA #$47 00690 BNE LBL006 00700 JSR GCHARK JUMPS TO SMREAD 00710 BRA LBL001 DUMMY 00720 00730 * ICHARK (I-KEY = WAREHOUSE INVENTORY) 00740 LBL006 CMPA #$49 00750 BNE LBL007 00760 JSR ICHARK 00770 BRA LBL001 00780 00790 * LCHARK (L-KEY = LEAVE) 00800 * (EMPTY CONTENTS OF BAG INTO CELL) 00810 LBL007 CMPA #$4C 00820 BNE LBL008 00830 JSR LCHARK 00840 BRA LBL001 00850 00860 * NCHARK (N-KEY = ANSWER "NO") 00870 * (DO NOT CONFIRM) 00880 * (UNIMPLEMENTED DUMMY) 00890 LBL008 CMPA #$4E 00900 BNE LBL009 00910 JSR NCHARK 00920 BRA LBL001 00930 00940 * NORTHK (UP ARROW) 00950 LBL009 CMPA #$5E 00960 BNE LBL010 00970 JSR NORTHK 00980 BRA LBL001 00990 01000 * PCHARK (P-KEY = PAUSE GAME) 01010 * (UNIMPLEMENTED DUMMY)00100 ***** 00110 * 00120 * GMOVER.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * GAME OVER 00160 * QUEST COMPLETE 00170 * 00180 ***** 00190 00200 GMOK EQU $54A0 GAME STATUS FLAG 00210 MSG003 EQU $65C0 QUEST COMPLETE MSG 00220 POLCAT EQU $4142 00230 XCHARK EQU $6240 00240 GCHARK EQU $5DE0 00250 00260 ORG $6500 00270 00280 GMOVER PSHS A 00290 00300 LDA #0 GAME OVER CODE 00310 STA GMOK PUT TO STATUS FLAG 00320 JSR MSG003 DISPLAY MESSAGE 00330 00340 * GET A KEYPRESS 00350 LBL001 JSR POLCAT 00360 BEQ LBL001 00370 00380 * XCHARK (X-KEY = EXIT GAME) 00390 LBL002 CMPA #$58 00400 BNE LBL003 00410 JSR XCHARK JUMPS TO COLD 00420 BRA LBL001 DUMMY 00430 00440 * GCHARK (G-KEY = NEW GAME) 00450 LBL003 CMPA #$47 00460 BNE LBL004 00470 JSR GCHARK JUMPS TO SMREAD 00480 BRA LBL001 DUMMY 00490 00500 * ANY OTHER KEYPRESS 00510 LBL004 BRA LBL001 00520 00530 GREXIT PULS A 00540 ENDCHK RTS 00550 00560 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * GTFVAL.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * GET A FAKE TEXT 00160 * CHARACTER'S VALUE 00170 * FROM THE SCREEN 00180 * INFORMATION BUFFERS 00190 * 00200 * ENTRY CONDITIONS: 00210 * A = SX-COORDINATE 00220 * B = SY-COORDINATE 00230 * 00240 * EXIT CONDITIONS: 00250 * B = CHARACTER CODE 00260 * 00270 ***** 00280 00290 * EXTERNAL ROUTINE TO 00300 * CONVERT THE (SX,SY) 00310 * COORDINATES TO THE 00320 * PMODE 4 SCREEN ADDRESS 00330 GTFLOC EQU $5B20 00340 00350 ORG $5B80 00360 00370 GTFVAL PSHS X 00380 00390 JSR GTFLOC X = LOCATION 00400 LDB ,X B = VALUE 00410 00420 PULS X 00430 ENDCHK RTS 00440 00450 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * ICHARK.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * WAREHOUSE INVENTORY KEY 00160 * (I-KEY) 00170 * EVENT HANDLER 00180 * 00190 ***** 00200 00210 WHSE EQU $54A2 THE WAREHOUSE 00220 GMOVED EQU $64C0 YOU DIED 00230 CLRL14 EQU $6300 CLEAR LINE 14 00240 MSG008 EQU $66E0 "EMPTY WHSE" 00250 MSG009 EQU $6720 "WHSE INVENTORY" 00260 00270 ORG $5E20 00280 00290 ICHARK PSHS A 00300 00310 JSR CLRL14 CLEAR LINE 14 00320 00330 LDA WHSE WHSE CONTENTS 00340 CMPA #$E0 IS IT JOHN? 00350 BNE LBL001 GO IF NO 00360 JSR MSG009 "WHSE INVENTORY" 00370 BRA LBL002 00380 00390 LBL001 JSR MSG008 "EMPTY WHSE" 00400 00410 LBL002 PULS A 00420 ENDCHK RTS 00430 00440 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * MCSCCVT.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * MAZE COORDINATES TO 00160 * SCREEN COORDINATES 00170 * CONVERTER 00180 * 00190 * THE MAZE IS A 15 X 6 00200 * CELL STRUCTURE, 00210 * SUPERIMPOSED UPON 00220 * THE 32 X 16 SCREEN 00230 * 00240 * FOR CHECKING DOOR 00250 * OPENINGS, OBSTRUCTIONS, 00260 * ETC., THE MAZE COORDS 00270 * NEED TO BE CONVERTED 00280 * TO SCREEN COORDINATES. 00290 * SX = (MX * 2) + 1 00300 * SY = (MY * 2) + 1 00310 * 00320 * ENTRY CONDITIONS: 00330 * (MAZE COORDINATES) 00340 * A = MX-COORDINATE 00350 * B = MY-COORDINATE 00360 * 00370 * EXIT CONDITIONS: 00380 * (SCREEN COORDINATES) 00390 * A = SX-COORDINATE 00400 * B = SY-COORDINATE 00410 * 00420 ***** 00430 00440 ORG $5A80 00450 00460 MCSCCV LSLA MX * 2 00470 INCA + 1 00480 00490 LSLB MY * 2 00500 INCB + 1 00510 00520 ENDCHK RTS 00530 00540 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * MSG002.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * MESSAGE NO. 002 00160 * 00170 * ENTRY CONDITIONS 00180 * NONE 00190 * 00200 * EXIT CONDITIONS: 00210 * NONE 00220 * 00230 ***** 00240 00250 PTFSLS EQU $63C0 00260 00270 ORG $6580 00280 00290 MSG002 JMP PTF002 00300 00310 LEN002 FDB $0019 STRING LENGTH = 25 00320 TXT002 FCC " ** GAME OVER: YOU DIED!" 00330 00340 PTF002 PSHS A,B,X,Y 00350 00360 LDA #0 00370 LDB #13 00380 LDX #TXT002 00390 LDY LEN002 00400 00410 JSR PTFSLS 00420 00430 PULS A,B,X,Y 00440 ENDCHK RTS 00450 00460 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * MSG004.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * MESSAGE NO. 004 00160 * 00170 * ENTRY CONDITIONS 00180 * NONE 00190 * 00200 * EXIT CONDITIONS: 00210 * NONE 00220 * 00230 ***** 00240 00250 PTFSLS EQU $63C0 00260 00270 ORG $6600 00280 00290 MSG004 JMP PTF004 00300 00310 LEN004 FDB $0015 STRING LENGTH = 21 00320 TXT004 FCC "THERE'S NOTHING HERE." 00330 00340 PTF004 PSHS A,B,X,Y 00350 00360 LDA #0 00370 LDB #14 00380 LDX #TXT004 00390 LDY LEN004 00400 00410 JSR PTFSLS 00420 00430 PULS A,B,X,Y 00440 ENDCHK RTS 00450 00460 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * MSG006.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * MESSAGE NO. 006 00160 * 00170 * ENTRY CONDITIONS 00180 * NONE 00190 * 00200 * EXIT CONDITIONS: 00210 * NONE 00220 * 00230 ***** 00240 00250 PTFSLS EQU $63C0 00260 00270 ORG $6660 00280 00290 MSG006 JMP PTF006 00300 00310 LEN006 FDB $0011 STRING LENGTH = 17 00320 TXT006 FCC "THE BAG IS EMPTY." 00330 00340 PTF006 PSHS A,B,X,Y 00350 00360 LDA #0 00370 LDB #14 00380 LDX #TXT006 00390 LDY LEN006 00400 00410 JSR PTFSLS 00420 00430 PULS A,B,X,Y 00440 ENDCHK RTS 00450 00460 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * MSG008.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * MESSAGE NO. 008 00160 * 00170 * ENTRY CONDITIONS 00180 * NONE 00190 * 00200 * EXIT CONDITIONS: 00210 * NONE 00220 * 00230 ***** 00240 00250 PTFSLS EQU $63C0 00260 00270 ORG $66E0 00280 00290 MSG008 JMP PTF008 00300 00310 LEN008 FDB $0017 STRING LENGTH = 23 00320 TXT008 FCC "THE WAREHOUSE IS EMPTY." 00330 00340 PTF008 PSHS A,B,X,Y 00350 00360 LDA #0 00370 LDB #14 00380 LDX #TXT008 00390 LDY LEN008 00400 00410 JSR PTFSLS 00420 00430 PULS A,B,X,Y 00440 ENDCHK RTS 00450 00460 END FDB $048F 4,3 02090 FDB $0495 6,3 02100 FDB $0466 1,4 02110 FDB $046C 3,4 02120 FDB $0472 5,4 02130 FDB $0478 7,4 02140 FDB $0443 0,5 02150 FDB $0449 2,5 02160 FDB $044F 4,5 02170 FDB $0455 6,5 02180 FDB $0426 1,6 02190 FDB $042C 3,6 02200 FDB $0432 5,6 02210 FDB $0438 7,6 02220 FDB $0403 0,7 02230 FDB $0409 2,7 02240 FDB $040F 4,7 02250 FDB $0415 6,7 02260 02270 ***** 02280 * 02290 * BSCARY.ASM 02300 * MDJ 2021/09/19 02310 * 02320 * BOARD SURFACE CONTENTS 02330 * ARRAY 02340 * 02350 * I.E. VISUAL 02360 * APPEARANCE 02370 * 02380 * I.E. ACTUAL CHARACTERS 02390 * BY CODE NUMBER 02400 * 02410 * 8-BIT CODES 02420 * STORED IN 02430 * BOARD ROW ORDER 02440 * 02450 * DIRECTLY ACCESS ENTRIES 02460 * AT ORG ADDRESS + 02470 * (J * 8) + I 02480 * WHERE 0 <= I <= 7 02490 * AND 0 <= J <= 7 02500 * 02510 * ALTERNATIVELY, THE ARRAY 02520 * CAN BE TRAVERSED USING 02530 * SOMETHING LIKE A ,U+ 02540 * MECHANISM 02550 * 02560 ***** 02570 * 02580 * PIECE CODES 02590 * 02600 * NONE = SPACE = 096 02610 * 02620 * WHITE KING = 075 02630 * WHITE QUEEN = 081 02640 * WHITE ROOK = 082 02650 * WHITE BISHOP = 066 02660 * WHITE KNIGHT = 078 02670 * WHITE PAWN = 080 02680 * 02690 * BLACK KING = 011 02700 * BLACK QUEEN = 017 02710 * BLACK ROOK = 018 02720 * BLACK BISHOP = 002 02730 * BLACK K00100 ***** 00110 * 00120 * MSG010.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * MESSAGE NO. 010 00160 * 00170 * ENTRY CONDITIONS 00180 * NONE 00190 * 00200 * EXIT CONDITIONS: 00210 * NONE 00220 * 00230 ***** 00240 00250 PTFSLS EQU $63C0 00260 00270 ORG $6760 00280 00290 MSG010 JMP PTF010 00300 00310 LEN010 FDB $001B STRING LENGTH = 27 00320 TXT010 FCC "EXIT GAME CONFIRM? - Y OR N" 00330 00340 PTF010 PSHS A,B,X,Y 00350 00360 LDA #0 00370 LDB #14 00380 LDX #TXT010 00390 LDY LEN010 00400 00410 JSR PTFSLS 00420 00430 PULS A,B,X,Y 00440 ENDCHK RTS 00450 00460 END 01220 * BOARD ROW ORDER 01230 * 01240 * NOT SUITABLE FOR 01250 * DIRECT ACCESS TO 01260 * ENTRIES 01270 * 01280 * TRAVERSED THE ARRAY 01290 * USING SOMETHING LIKE A 01300 * ,U++ MECHANISM 01310 * 01320 ***** 01330 01340 ORG $2540 01350 01360 B2DARY FDB $04E3 0,0 01370 FDB $04E9 2,0 01380 FDB $04EF 4,0 01390 FDB $04F5 6,0 01400 FDB $04C6 1,1 01410 FDB $04CC 3,1 01420 FDB $04D2 5,1 01430 FDB $04D8 7,1 01440 FDB $04A3 0,2 01450 FDB $04A9 2,2 01460 FDB $04AF 4,2 01470 FDB $04B5 6,2 01480 FDB $0486 1,3 01490 FDB $048C 3,3 01500 FDB $0492 5,3 01510 FDB $0498 7,3 01520 FDB $0463 0,4 01530 FDB $0469 2,4 01540 FDB $046F 4,4 01550 FDB $0475 6,4 01560 FDB $0446 1,5 01570 FDB $044C 3,5 01580 FDB $0452 5,5 01590 FDB $0458 7,5 01600 FDB $0423 0,6 01610 FDB $0429 2,6 01620 FDB $042F 4,6 01630 FDB $0435 6,6 01640 FDB $0406 1,7 01650 FDB $040C 3,7 01660 FDB $0412 5,7 01670 FDB $0418 7,7 01680 01690 ***** 01700 * 01710 * B2LARY.ASM 01720 * MDJ 2021/09/04 01730 * 01740 * BOARD LIGHT SQUARES 01750 * TO SCREEN 01760 * TRANSLATION ARRAY 01770 * 01780 * 16-BIT ADDRESSES 01790 * STORED IN 01800 * BOARD ROOPENING 00970 00980 * REVEAL THE CURRENT CELL 00990 * CONTENTS ON THE SCREEN. 01000 * (FROM UNDER THE AVATAR) 01010 * TESTING = USE SPACE 01020 LBL002 LDB CELLCC CONTENTS 01030 CLRA EXTEND IT 01040 TFR D,X 01050 LDA MXC MX-COORDINATE 01060 LDB MYC MY-COORDINATE 01070 JSR MCSCCV CONVERT TO SX,SY 01080 JSR PTFCHR PUT TO SCREEN 01090 01100 * GO ONE MAZE CELL NORTH 01110 LDA MXC CURRENT MX 01120 STA MXN NEW MX 01130 LDB MYC CURRENT MY 01140 DECB 01150 STB MYN NEW MY 01160 01170 * SAVE NEW CELL SCREEN CONTENTS 01180 JSR MCSCCV CONVERT TO SX,SY 01190 JSR GTFVAL GET CHAR VALUE 01200 STB CELLCC SAVE AS CONTENTS 01210 01220 * PUT AVATAR TO NEW SCREEN LOCATION 01230 LDA MXN MX-COORDINATE 01240 LDB MYN MY-COORDINATE 01250 JSR MCSCCV CONVERT TO SX,SY 01260 LDX #$0000 AVATAR CODE EXTENDED 01270 JSR PTFCHR PUT TO SCREEN 01280 01290 * MAKE THE NEW COORDINATES CURRENT 01300 LDA MXN NEW MX 01310 STA MXC CURRENT MX 01320 LDB MYN NEW MY 01330 STB MYC CURRENT MY 01340 01350 * GO CHECK FOR PROVISIONS 01360 JSR PROCHK 01370 01380 * ADJUST STRENGTH VARIABLE 01390 PSHS A,B STRENGTH EFFECT 01400 LDD STRNTH 01410 CMPD #1 IS IT AT LIMIT 01420 BHI LBL003 GO IF NO 01430 LDD #0 01440 STD STRNTH 01450 PULS A,B 01460 JSR RPTSTR REPORT CURRENT STRENGTH 01470 BRA LBL004 01480 PULS A,B,X 01490 JMP GMOVED YOU DIED 01500 01510 LBL003 SUBD #1 01520 STD STRNTH 01530 PULS A,B 01540 JSR RPTSTR REPORT CURRENT STRENGTH 01550 01560 LBL004 PULS A,B,X 01570 ENDCHK RTS 01580 01590 END ,5 00880 FDB $0449 2,5 00890 FDB $044C 3,5 00900 FDB $044F 4,5 00910 FDB $0452 5,5 00920 FDB $0455 6,5 00930 FDB $0458 7,5 00940 FDB $00100 ***** 00110 * 00120 * NORTHK.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * NORTH KEY 00160 * (UP ARROW) 00170 * EVENT HANDLER 00180 * 00190 ***** 00200 00210 * PUT FAKE TEXT ROUTINE 00220 PTFCHR EQU $5300 00230 00240 * COORDINATES CONVERTER 00250 MCSCCV EQU $5A80 00260 00270 * GET CHARACTER VALUE FROM 00280 * SCREEN INFORMATION BUFFERS 00290 GTFVAL EQU $5B80 00300 00310 * MAZE COORDINATES 00320 * AND CONTENTS 00330 * NOTE: THESE VARIABLES ARE 00340 * INTERNAL TO STAVTR.ASM 00350 MXC EQU $5AE5 00360 MYC EQU $5AE6 00370 CELLCC EQU $5AE7 00380 MXN EQU $5AE8 00390 MYN EQU $5AE9 00400 00410 * HORIZONTAL DOOR CODE 00420 HORDOR EQU $6C 00430 00440 * GAME OVER ROUTINES 00450 GMOVER EQU $6500 00460 GMOVED EQU $64C0 00470 00480 * STRENGTH REPORTING 00490 STRNTH EQU $549C 00500 RPTSTR EQU $6400 00510 00520 * SCORE REPORTING 00530 SCORE EQU $549E 00540 RPTSCO EQU $6460 00550 00560 PROCHK EQU $5BA0 PROVISIONS CHECK 00570 00580 * MESSAGE ROUTINES 00590 CLRL13 EQU $62C0 00600 CLRL14 EQU $6300 00610 MSG001 EQU $6540 00620 00630 ORG $5F20 00640 00650 NORTHK PSHS A,B,X 00660 00670 JSR CLRL13 CLEAR LINE 13 00680 JSR CLRL14 CLEAR LINE 14 00690 00700 * CHECK FOR LEGAL MOVE 00710 LDA MXC MX-COORDINATE 00720 LDB MYC MY-COORDINATE 00730 JSR MCSCCV CONVERT TO SX,SY 00740 DECB POINT TO NEXT SY 00750 JSR GTFVAL GET THE FAKE CHAR 00760 CMPB #HORDOR IS IT AN OPENING 00770 BEQ LBL002 GO IF YES 00780 JSR MSG001 DISPLAY ERROR MESSAGE 00790 00800 * ADJUST STRENGTH VARIABLE 00810 PSHS A,B STRENGTH EFFECT 00820 LDD STRNTH 00830 CMPD #2 IS IT AT LIMIT 00840 BHI LBL001 GO IF NO 00850 LDD #0 00860 STD STRNTH 00870 PULS A,B 00880 JSR RPTSTR REPORT CURRENT STRENGTH 00890 PULS A,B,X 00900 JMP GMOVED YOU DIED 00910 00920 LBL001 SUBD #2 00930 STD STRNTH 00940 PULS A,B 00950 JSR RPTSTR REPORT CURRENT STRENGTH 00960 LBRA LBL004 GO IF NOT AN LBL005 TFR A,B EXTEND CHAR TO X 01210 CLRA 01220 TFR D,X 01230 LDA XTEMP RETRIEVE THE COORDS 01240 LDB YTEMP 01250 01260 * PUT HIGH NIBBLE CHAR 01270 * TO THE PMODE 4 SCREEN 01280 JSR PTFCHA (ALSO ADVANCES THE POS) 01290 01300 STA XTEMP SAVE THE COORDINATES 01310 STB YTEMP 01320 01330 * GET LOW NIBBLE CHAR 01340 LDA L00F3 01350 01360 TFR A,B EXTEND CHAR TO X 01370 CLRA 01380 TFR D,X 01390 LDA XTEMP RETRIEVE THE COORDS 01400 LDB YTEMP 01410 01420 * PUT LOW NIBBLE CHAR 01430 * TO THE PMODE 4 SCREEN 01440 JSR PTFCHA (ALSO ADVANCES THE POS) 01450 01460 ENDCHK RTS 01470 01480 END 0450 FDB $04B2 5,2 00460 FDB $04B8 7,2 00470 FDB $0483 0,3 00480 FDB $0489 2,3 00490 FDB $048F 4,3 00500 FDB $0495 6,3 00510 FDB $0466 1,4 00520 FDB $046C 3,4 00530 FDB $0472 5,4 00540 FDB $0478 7,4 00550 FDB $0443 0,5 00560 FDB $0449 2,5 00570 FDB $044F 4,5 00580 FDB $0455 6,5 00590 FDB $0426 1,6 00600 FDB $042C 3,6 00610 FDB $0432 5,6 00620 FDB $0438 7,6 00630 FDB $0403 0,7 00640 FDB $0409 2,7 00650 FDB $040F 4,7 00660 FDB $0415 6,7 00670 32767 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * PTFBYA.ASM 00130 * MDJ 2024/02/12 00140 * 00150 * PUTS AN 8-BIT NUMBER 00160 * TO THE PMODE 4 SCREEN 00170 * AS TWO HEXADECIMAL DIGITS 00180 * AND ADVANCES THE POSITION 00190 * 00200 * ENTRY CONDITIONS: 00210 * A = X-COORDINATE (0-31) 00220 * B = Y-COORDINATE (0-15) 00230 * X = 8-BIT NUMBER EXTENDED 00240 * TO 16-BITS (0-255) 00250 * 00260 * EXIT CONDITIONS: 00270 * A = NEW X-COORDINATE 00280 * B = SAME Y-COORDINATE 00290 * 00300 ***** 00310 00320 * SCRATCHPAD VARIABLES 00330 * THE 8-BIT NUMBER 00340 L0076 EQU $0076 00350 00360 * THE HIGH NIBBLE 00370 L0077 EQU $0077 00380 00390 * THE LOW NIBBLE 00400 L00F3 EQU $00F3 00410 00420 * EXTERNAL ROUTINE 00430 * ADDRESS 00440 PTFCHA EQU $5B40 00450 00460 ORG $5BE0 00470 00480 PTFBYA BRA LBL001 00490 00500 XTEMP RMB 1 00510 YTEMP RMB 1 00520 00530 LBL001 STA XTEMP SAVE THE COORDINATES 00540 STB YTEMP 00550 TFR X,D MOVE THE NUMBER TO A 00560 TFR B,A 00570 00580 * SAVE THE NUMBER 00590 STA L0076 00600 00610 * DIVIDE BY 16 00620 LSRA 00630 LSRA 00640 LSRA 00650 LSRA 00660 00670 * SAVE THE HIGH NIBBLE 00680 STA L0077 00690 00700 * MULTIPLY BY 16 00710 LSLA 00720 LSLA 00730 LSLA 00740 LSLA 00750 00760 * SAVE TEMP RESULT 00770 STA L00F3 00780 00790 * GET THE NUMBER AGAIN 00800 LDA L0076 00810 00820 * SUBTRACT TEMP RESULT 00830 SUBA L00F3 00840 00850 * SAVE LOW NIBBLE 00860 STA L00F3 00870 00880 * IS LOW NIBBLE <= 9 00890 CMPA #9 00900 00910 * GO IF NO 00920 BHI LBL002 00930 00940 * ADD ZERO OFFSET 00950 ADDA #48 00960 BRA LBL003 00970 00980 * ADD "A" OFFSET 00990 LBL002 ADDA #55 (65-10) 01000 01010 * SAVE LOW NIBBLE CHAR 01020 LBL003 STA L00F3 01030 01040 * GET HIGH NIBBLE 01050 LDA L0077 01060 01070 * IS HIGH NIBBLE <= 9 01080 CMPA #9 01090 01100 * GO IF NO 01110 BHI LBL004 01120 01130 * ADD ZERO OFFSET 01140 ADDA #48 01150 BRA LBL005 01160 01170 * ADD "A" OFFSET 01180 LBL004 ADDA #55 (65-10) 01190 01200 00100 ***** 00110 * 00120 * PTFSLS.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * PRINTS A LENGTH-SPECIFIED 00160 * FAKETEXT STRING ($0001-$FFFF) 00170 * BEGINNING AT THE SPECIFIED 00180 * SCREEN COORDINATES. 00190 * 00200 * ENTRY CONDITIONS: 00210 * A = SCREEN X-COORDINATE (0-31) 00220 * B = SCREEN Y-COORDINATE (0-15) 00230 * X = START ADDRESS 00240 * OF THE STRING 00250 * Y = STRING LENGTH 00260 * IN CHARACTERS 00270 * ($0001-$FFFF) 00280 * ( 1-65535) 00290 * 00300 * EXIT CONDITIONS: 00310 * NONE 00320 * 00330 ***** 00340 00350 * EXTERNAL ROUTINE 00360 * ADDRESSES 00370 SCROLL EQU $405E 00380 PTFCHR EQU $5300 00390 00400 ORG $63C0 00410 00420 PTFSLS BRA LBL001 00430 00440 TEMPD RMB 2 00450 TEMPX RMB 2 00460 00470 LBL001 PSHS A,B,X,Y 00480 00490 LBL002 STD TEMPD SAVE THE SCREEN COORDINATES 00500 LDB ,X+ GET A CHARACTER CODE 00510 CLRA CLEAR D-REGISTER HIGH BYTE 00520 STX TEMPX SAVE THE NEXT CHARACTER ADDRESS 00530 TFR D,X COPY CHARACTER TO REGISTER X 00540 LDD TEMPD RESTORE THE SCREEN COORDINATES 00550 00560 * INCREMENT THE X-COORDINATE 00570 INCA 00580 CMPA #32 PAST END OF LINE? 00590 BLO LBL003 GO IF LOWER 00600 00610 * RESET THE X-COORDINATE AND 00620 * INCREMENT THE Y-COORDINATE 00630 CLRA 00640 INCB 00650 CMPB #16 PAST BOTTOM OF SCREEN? 00660 BLO LBL003 GO IF LOWER 00670 00680 * DECREMENT THE Y-COORDINATE AND 00690 * SCROLL THE SCREEN 00700 DECB 00710 JSR SCROLL 00720 00730 LBL003 JSR PTFCHR GO PRINT CHARACTER 00740 LDX TEMPX RESTORE NEXT CHARACTER ADDRESS 00750 LEAY -1,Y DECREMENT COUNT 00760 BEQ LBL004 GO IF END OF STRING 00770 BRA LBL002 RETURN FOR NEXT CHARACTER 00780 00790 LBL004 PULS A,B,X,Y 00800 00810 *EXIT 00820 ENDCHK RTS 00830 00840 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * PTFWRA.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * PUTS A 16-BIT NUMBER 00160 * TO THE PMODE 4 SCREEN 00170 * AS FOUR HEXADECIMAL DIGITS 00180 * AND ADVANCES THE POSITION 00190 * 00200 * ENTRY CONDITIONS: 00210 * A = X-COORDINATE (0-31) 00220 * B = Y-COORDINATE (0-15) 00230 * X = 16-BIT NUMBER EXTENDED 00240 * 00250 * EXIT CONDITIONS: 00260 * A = NEW X-COORDINATE 00270 * B = SAME Y-COORDINATE 00280 * 00290 ***** 00300 00310 * EXTERNAL ROUTINE 00320 * ADDRESS 00330 PTFBYA EQU $5BE0 00340 00350 ORG $5C60 00360 00370 PTFWRA BRA LBL001 00380 00390 XTEMP RMB 1 00400 YTEMP RMB 1 00410 NTEMP RMB 2 00420 00430 LBL001 STA XTEMP SAVE THE COORDINATES 00440 STB YTEMP 00450 STX NTEMP SAVE THE NUMBER 00460 00470 LDD NTEMP RETRIEVE THE NUMBER 00480 TFR A,B GET THE HIGH BYTE TO X 00490 CLRA 00500 TFR D,X 00510 LDA XTEMP RETRIEVE THE COORDINATES 00520 LDB YTEMP 00530 00540 * PRINT THE HIGH BYTE 00550 JSR PTFBYA 00560 00570 * SAVE THE NEW X-COORDINATE 00580 STA XTEMP 00590 00600 LDD NTEMP RETRIEVE THE NUMBER 00610 CLRA GET THE LOW BYTE TO X 00620 TFR D,X 00630 LDA XTEMP RETRIEVE THE COORDINATES 00640 LDB YTEMP 00650 00660 * PRINT THE LOW BYTE 00670 JSR PTFBYA 00680 00690 ENDCHK RTS 00700 00710 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * RCHARK.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * RESUME KEY 00160 * (R-KEY) 00170 * EVENT HANDLER 00180 * 00190 * NOT IMPLEMENTED FOR 00200 * MALKY'S WARREN 00210 * 00220 ***** 00230 00240 ORG $6000 00250 00260 RCHARK RTS 00270 00280 END 00320 ORG $2000 00330 00340 * SCREEN COLORS FLAG 00350 * 0 = COLORS OFF 00360 * 1 = COLORS ON 00370 SCFLAG RMB 1 00380 00390 * GAME STOPPED FLAG 00400 * 0 = STOPPED 00410 * 1 = RUNNING 00420 STFLAG RMB 1 00430 00440 * BOARD FLIPPED FLAG 00450 * 0 = FLIPPED 00460 * 1 = NOT FLIPPED 00470 BFFLAG RMB 1 00480 00490 * AS YET UNASSIGNED 00500 FLAG03 RMB 1 00510 FLAG04 RMB 1 00520 FLAG05 RMB 1 00530 FLAG06 RMB 1 00540 FLAG07 RMB 1 00550 FLAG08 RMB 1 00560 FLAG09 RMB 1 00570 FLAG10 RMB 1 00580 FLAG11 RMB 1 00590 FLAG12 RMB 1 00600 FLAG13 RMB 1 00610 FLAG14 RMB 1 00620 FLAG15 RMB 1 00630 FLAG16 RMB 1 00640 FLAG17 RMB 1 00650 FLAG18 RMB 1 00660 FLAG19 RMB 1 00670 FLAG20 RMB 1 00680 FLAG21 RMB 1 00690 FLAG22 RMB 1 00700 FLAG23 RMB 1 00710 FLAG24 RMB 1 00720 FLAG25 RMB 1 00730 FLAG26 RMB 1 00740 FLAG27 RMB 1 00750 FLAG28 RMB 1 00760 FLAG29 RMB 1 00770 FLAG30 RMB 1 00780 FLAG31 RMB 1 00790 FLAG32 RMB 1 00800 FLAG33 RMB 1 00810 FLAG34 RMB 1 00820 FLAG35 RMB 1 00830 FLAG36 RMB 1 00840 FLAG37 RMB 1 00850 FLAG38 RMB 1 00860 FLAG39 RMB 1 00870 FLAG40 RMB 1 00880 FLAG41 RMB 1 00890 FLAG42 RMB 1 00900 FLAG43 RMB 1 00910 FLAG44 RMB 1 00920 FLAG45 RMB 1 00930 FLAG46 RMB 1 00940 FLAG47 RMB 1 00950 FLAG48 RMB 1 00960 FLAG49 RMB 1 00970 FLAG50 RMB 1 00980 FLAG51 RMB 1 00990 FLAG52 RMB 1 01000 FLAG53 RMB 1 01010 FLAG54 RMB 1 01020 FLAG55 RMB 1 01030 FLAG56 RMB 1 01040 FLAG57 RMB 1 01050 FLAG58 RMB 1 01060 FLAG59 RMB 1 01070 FLAG60 RMB 1 01080 FLAG61 RMB 1 01090 FLAG62 RMB 1 01100 FLAG63 RMB 1 01110 01120 ***** 01130 * 01140 * TMPVAR.ASM 01150 * MDJ 2021/09/19 01160 * 01170 * TEMPORARY VARIABLES 01180 * 128 BYTES TOTAL 01190 * 01200 ***** 0121000100 ***** 00110 * 00120 * RPTSTR.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * BRUTE FORCE 00160 * STRENGTH REPORTER 00170 * 00180 * ENTRY CONDITIONS 00190 * NONE 00200 * 00210 * EXIT CONDITIONS: 00220 * NONE 00230 * 00240 ***** 00250 00260 PTFCHR EQU $5300 00270 STRNTH EQU $549C 00280 DECMAL EQU $5A00 00290 00300 * NOTE: THE FOLLOWING DIGITS 00310 * ARE INTERNAL TO DECMAL.ASM 00320 DIGIT4 EQU $5A04 00330 DIGIT3 EQU $5A05 00340 DIGIT2 EQU $5A06 00350 DIGIT1 EQU $5A07 00360 DIGIT0 EQU $5A08 00370 00380 ORG $6400 00390 00400 RPTSTR PSHS A,B,X 00410 00420 LDD STRNTH GET CURRENT STRENGTH 00430 JSR DECMAL EXPRESS AS A DECIMAL 00440 00450 LDB DIGIT4 GET THE DIGIT 00460 CLRA EXTEND IT 00470 TFR D,X MOVE IT TO REG X 00480 LDA #11 X-COORDINATE 00490 LDB #15 Y-COORDINATE 00500 JSR PTFCHR REPORT IT 00510 00520 LDB DIGIT3 GET THE DIGIT 00530 CLRA EXTEND IT 00540 TFR D,X MOVE IT TO REG X 00550 LDA #12 X-COORDINATE 00560 LDB #15 Y-COORDINATE 00570 JSR PTFCHR REPORT IT 00580 00590 LDB DIGIT2 GET THE DIGIT 00600 CLRA EXTEND IT 00610 TFR D,X MOVE IT TO REG X 00620 LDA #13 X-COORDINATE 00630 LDB #15 Y-COORDINATE 00640 JSR PTFCHR REPORT IT 00650 00660 LDB DIGIT1 GET THE DIGIT 00670 CLRA EXTEND IT 00680 TFR D,X MOVE IT TO REG X 00690 LDA #14 X-COORDINATE 00700 LDB #15 Y-COORDINATE 00710 JSR PTFCHR REPORT IT 00720 00730 LDB DIGIT0 GET THE DIGIT 00740 CLRA EXTEND IT 00750 TFR D,X MOVE IT TO REG X 00760 LDA #15 X-COORDINATE 00770 LDB #15 Y-COORDINATE 00780 JSR PTFCHR REPORT IT 00790 00800 PULS A,B,X 00810 ENDCHK RTS 00820 00830 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * SIBUFF.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * SCREEN INFORMATION 00160 * BUFFERS 00170 * 00180 ***** 00190 00200 ORG $5500 00210 00220 * MAZE DESIGN 00230 * UPPER HALF 00240 * $5500 - $55FF 00250 LINE00 RMB 256 00260 00270 * MAZE DESIGN 00280 * LOWER HALF 00290 * $5600 - $56FF 00300 LINE08 RMB 256 00310 00320 * MAZE DESIGN 00330 * SCREEN DETAILS 00340 * $5700 - $57FF 00350 SCDTLS RMB 256 00360 00370 * MAZE DESIGN 00380 * SCREEN UTILITIES 00390 * $5800 - $58FF 00400 SCUTLS RMB 256 00410 00420 * GENERAL UTILITY 00430 * BUFFER; UNINITIALIZED 00440 * $5900 - $59FF 00450 GENUTL RMB 256 00460 00470 * END = $59FF 00480 00490 END MB 1 00470 FLAG11 RMB 1 00480 FLAG12 RMB 1 00490 FLAG13 RMB 1 00500 FLAG14 RMB 1 00510 FLAG15 RMB 1 00520 FLAG16 RMB 1 00530 FLAG17 RMB 1 00540 FLAG18 RMB 1 00550 FLAG19 RMB 1 00560 FLAG20 RMB 1 00570 FLAG21 RMB 1 00580 FLAG22 RMB 1 00590 FLAG23 RMB 1 00600 FLAG24 RMB 1 00610 FLAG25 RMB 1 00620 FLAG26 RMB 1 00630 FLAG27 RMB 1 00640 FLAG28 RMB 1 00650 FLAG29 RMB 1 00660 FLAG30 RMB 1 00670 FLAG31 RMB 1 00680 FLAG32 RMB 1 00690 FLAG33 RMB 1 00700 FLAG34 RMB 1 00710 FLAG35 RMB 1 00720 FLAG36 RMB 1 00730 FLAG37 RMB 1 00740 FLAG38 RMB 1 00750 FLAG39 RMB 1 00760 FLAG40 RMB 1 00770 FLAG41 RMB 1 00780 FLAG42 RMB 1 00790 FLAG43 RMB 1 00800 FLAG44 RMB 1 00810 FLAG45 RMB 1 00820 FLAG46 RMB 1 00830 FLAG47 RMB 1 00840 FLAG48 RMB 1 00850 FLAG49 RMB 1 00860 FLAG50 RMB 1 00870 FLAG51 RMB 1 00880 FLAG52 RMB 1 00890 FLAG53 RMB 1 00900 FLAG54 RMB 1 00910 FLAG55 RMB 1 00920 FLAG56 RMB 1 00930 FLAG57 RMB 1 00940 FLAG58 RMB 1 00950 FLAG59 RMB 1 00960 FLAG60 RMB 1 00970 FLAG61 RMB 1 00980 FLAG62 RMB 1 00990 FLAG63 RMB 1 01000 32767 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџюb4@O94RŽ]&0ьЃ%†5R$ѓPюь 3ЫУЃ%O_э ІфЇФьУэя5вь&ќ3‰Ї†­Ÿь§ь§%5@эb9~Žь'іюь ІЫ­˜&ыь УЃ%O_э ьƒэ дХ 0ƒЪ$†9Уэ1‰ШЏ1Ћo П%Џ‰‚Џ‰U3‰~†­Ÿўя3‰Rџюb4@O94TŽь&5дюь 3ЫУЃ%ђO_э ІФ4ьƒэmф5ж~ŽьЃ%Žџ"І„ˆЇ„Ž 1?&ќ р­˜M'к4юь 3ЫУЃ%O_э ьУэ5ЇФ ПП4v2z `LOAD SOURCE DISKETTE LOAD DESTINATION DISKETTE LOAD S Y S T E M DISKETTE ФІШ!ЁЈ!'_чgO_эфэbэdќмГ%%M&Q†Їfmg'Ўh0ˆH Юf†­Ÿ2f5іŽрЦ І€Ї Z&љ!­Ÿ  'ŽрЖ!„ H4Ц І„„ПЊфЇ€Z&ѕ5 м9Їfюlќ%эШ$mg'Ўh0З†­Ÿ&•ьbэШ)&Ўj3K1+ЦІРЇ Z&љюloфН Ÿ&Н ч&ьШ)УэШ)lШ$lфцфсf&т џWlaьШ)эb†­ŸІф'ьmg'Ўh0ˆ(џTюjќ%эШ$†.­Ÿ' ' Ъьd&†­Ÿ† Мьd'† ДэШ)Н Ÿ&ЌН ъ&ўџьШ)УэШ)lШ$jф&фьШ)эdƒэШЎlьэNчШ†­ŸOma&џtџ™†4ЮцфІР[' ƒ%єЮZ&ю!0_і!Ф'†[ †Ї„4P­Ÿ 5PM'ц'P '^'! 'D'4 %Ю[% `% ФІфЁa$LЇф Іф'JЇф†[Ї„ ŽŠ@ЇРІФ]'м žІТ„П&–ІР ’‰2b†[Ї„9‰ОР†Ї€ІФЇ€Ьэ€ŽШЏІAH$e€%l„ ј‹'Ц =1Ћ 4p­ŸР5pІ&F4`Ц 3BІЄ' + ІР*'Ё '5`lAІAH$&1Ј ŒШ%зŽШl„ УІ Z&ж5`lA3MЦ І ЇРZ&љ9†џЇA9цШ!4Сџ' С%† Їф5–_чШ!Oв'P+&ьma*шma* цШ!\ёо%рІф…&† бma*oШ!†џЃ'*С† НІфЇa† Їф†џЇMO_эNэШЇШc ІфЇaoфІˆ' „' mˆ'† ЇфІaЇˆIІШ„'&З†ЇШ#§&­4@ЮШЦE.5@ЬџџэШ)O_эШ+ЇШ-эШ.oШ0ŒO4O'*† џ6ІШ&† єьШ"4а5&шэШ"ІШ4oШ„'oФ4ОІM+ ц†o†j†˜M*ѕ5Ж5„'Oцˆ&ьˆ'Ьэ…&ЃŒ4@ЮШЦEІ0AЦК—5@†ЇШ#e'Їфmф5–42Ь‘цШ-OІ‹Ї lШ-&I&ьШ+УэШ+‘'2gЇф5Вд&ѕьф' ƒэф&Ъ ІШЁ?&С5ІШ…@'Ьџџ Іe…&ђьШ+эШ)ьШ+ЃШ%&ІШ-ЁШ% ьШ+эШІШ-ЇШІe„52' ЇШ-ЏШ+ЏШ.oф5В4ІШ&†2dЇф5ВЅф&Іa ђІd„&ьШ&† уГ&оьШ+ЃШ)'‘&ат&Ы+&Ц м&П5&ЎШ.40ЏШ.ЎШ+ІШ-4ьШ44 ЎШ$ЎШ'942ЬŒцШ-OЎШ$0‹І Ї„lШ-&#ц&ьШ+УэШ+‡'2gЇф5ВЪ&ѕ†ЇШ0ьф' ƒэф&Р ІШЁ?&З†ЇШ0~ )ЬџџэШ)O9ŽШІШ!ЦE=0‹94VЦ  5ж4VЦ  5жІРЇ€Z&љ9є94ЬЇШ"чШ#Ж"4†З"™5'ї"&Їф5†‡&ї ї"†ЇaŽШmф' І„'*oф5†І„'+_І…ЁХ&\С %ѕ ш0ˆ ja&зlШ#ІШ# % †џЇф5††Œ†ЇШ oШ04ОРьШ эьШ"эьШ$э4O‹5Oц„'X%L њL5”4vЖ"ОРn†4цШ!ОРэьШ"эЬШэ Ч† цmШ0&O9ІШ„'їL&є “4p0Ш+1Ш3Ш.o„ooІ!цA=эІ!цФ=у„%э„ІЄцA=у„%э„ІЄцФ=ы„%ч„M&5№†5№ьШ+эШ)ІM4ŽШІШ!ЦE=0‹ьШ)mф+ƒ %4ІbІ†+Їb5 э5ІШ„&f† FЫ Іфm†*D4ц†Ф?сa$ цШФ&5 п&+ІШ„&$цШ-OЃN% шцaЪРч†ІШ„ & i'5†Їф5’5ІфD$Ы чШ#%LЇШ"oф5’цф*Ц"O4ІaЋфD$ц†Сџ'Іa ф%ц†Сџ'ІфLЇфD%н5† Вцb*ЇM Ї…ЦРч†55~ Ÿ4ОР†Ї€ІШ!Ї€Ьэьфэ4O‹­ŸР5І„5~џЂE=0‹ьШ)mф+ƒ %4ІbІ†+Їb5 э5ІШ„&f† FЫ Іфm†*D4ц†Ф?сa$ цШФ&5 п&+ІШ„&$цШ-OЃN% шцaЪРч†ІШ„ & i'5†Їф5’5ІфD$Ы чШ#%LЇШ"oф5’цф*Ц"O4ІaЋфD$ц†Сџ'Іa ф%ц†СџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџN OPENING 00970 00980 * REVEAL THE CURRENT CELL 00990 * CONTENTS ON THE SCREEN. 01000 * (FROM UNDER THE AVATAR) 01010 * TESTING = USE SPACE 01020 LBL002 LDB CELLCC CONTENTS 01030 CLRA EXTEND IT 01040 TFR D,X 01050 LDA MXC MX-COORDINATE 01060 LDB MYC MY-COORDINATE 01070 JSR MCSCCV CONVERT TO SX,SY 01080 JSR PTFCHR PUT TO SCREEN 01090 01100 * GO ONE MAZE CELL SOUTH 01110 LDA MXC CURRENT MX 01120 STA MXN NEW MX 01130 LDB MYC CURRENT MY 01140 INCB 01150 STB MYN NEW MY 01160 01170 * SAVE NEW CELL SCREEN CONTENTS 01180 JSR MCSCCV CONVERT TO SX,SY 01190 JSR GTFVAL GET CHAR VALUE 01200 STB CELLCC SAVE AS CONTENTS 01210 01220 * PUT AVATAR TO NEW SCREEN LOCATION 01230 LDA MXN MX-COORDINATE 01240 LDB MYN MY-COORDINATE 01250 JSR MCSCCV CONVERT TO SX,SY 01260 LDX #$0000 AVATAR CODE EXTENDED 01270 JSR PTFCHR PUT TO SCREEN 01280 01290 * MAKE THE NEW COORDINATES CURRENT 01300 LDA MXN NEW MX 01310 STA MXC CURRENT MX 01320 LDB MYN NEW MY 01330 STB MYC CURRENT MY 01340 01350 * GO CHECK FOR PROVISIONS 01360 JSR PROCHK 01370 01380 * ADJUST STRENGTH VARIABLE 01390 PSHS A,B STRENGTH EFFECT 01400 LDD STRNTH 01410 CMPD #1 IS IT AT LIMIT 01420 BHI LBL003 GO IF NO 01430 LDD #0 01440 STD STRNTH 01450 PULS A,B 01460 JSR RPTSTR REPORT CURRENT STRENGTH 01470 PULS A,B,X 01480 JMP GMOVED YOU DIED 01490 01500 LBL003 SUBD #1 01510 STD STRNTH 01520 PULS A,B 01530 JSR RPTSTR REPORT CURRENT STRENGTH 01540 01550 LBL004 PULS A,B,X 01560 ENDCHK RTS 01570 01580 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHЄ~Я)\~Ў@)"ъbйŠБ „ I  Ё *†­Ÿ M'­Ÿ~іЬЂ§%94Жџ"D$†5–4PІa_Ц4_DYYjф&і5Цїџ 5O5–їџ О#0&ќ94FM' ќ эA3Cџ 5Ц3C4PЮ ЎФŒX' Ќb' 3^ я5P5ЦЎЏФ5P5Ц~ќ У§ O‹ яŠ€О%Ё'4M+\ E'5„5Ž›4О%0404ь„0‹0П%5”4О%0ь„CSУ0‹П%5—Š€4ьdэbЬhэd5†Š€4`О'Ю—z'†5р4`ŽЅЮ5i&5рŽЮ Цќ{ЮЦ№ќs?M' ЮНп†­Ÿ qnŸџўSYSTEM`FAILURE``‰†4Ь2ŽEЮ 5­Ÿ 'њ94f† ­Ÿ 5цО%Ї‰ФXOьЋУoШ+эШ,ЬэШЏШ'ЬџџэШ)0ьи'ЏШ'0‹эo„ƒэШO9†­Ÿ'2bО%o„M9†­ŸЎШ'ŽаЮ ‰ŽІ€ЇР1?&јЮŽЦШН oЮО 0П ЮU†­Ÿќ §ŽџІ„CЇ„Ё„'Ž?џПм†ЗоЮ5ЮНп†­Ÿ~Є ‰ R т ш @hВвfАП ціЎЂ3333399DOS BINџШШDOS BASџШ BINџШ3ЬŽЮН<Ž—ЦІФ`'ІР`%ˆ@Ї€Z&ѓ† ­Ÿ †­Ÿ "ЬŽ%ЮН<Ž—4P† ­Ÿ 5P† ­Ÿ 0ќмƒЖ§мО%4 §%Ю_Ž† ­Ÿ 2d5 П%†­Ÿ ’ЬFŽcЮНьфџ9 ~'•ўе5ЖІРџ0&ї9ŽЦdѕG4wп S5wo9І„'%'&'2'˜ІШ!'.'>&Ž& 9Ž Ž†&29­”M9H†!m'†>!4Ф56ІˆЇKІˆЇL†. ІKЇˆІLЇˆ94ŽШ'  &НІф!'ыЬэШ5’40ЏШ$1ЏШ'0І€ЇШ!ЬэШŽ їЛ5А3„†џЇиЎD0ЦїйЎDЎB4PІ!:& ІЄє›%g1!Ц05'Ј.'/& 4ЦїЈ5Ц:&@1!1?ІЄ/&:5PЏBm„*o„94І '/'.' :']'`Ї€Z ц0…рр9' ' 9І €0%G"Cmи*>Їи9m&Ю1№H9Ю21ё@94v0югфэШ,5і%#1ŒЁЄ'mЁ&јЦŒц!ŒЦ ŒЦо 5Ўbч5і   з'ѓ№†/X&fѓЫ0Œ_9 жрай–р—й† Z&љй94w '5 й&< & к&*† њ] к & к й–й‘п&С–к‘с& т&ъ цњ:5ї† Œ† њ0ж4 w'2 й0я6†€Їˆ єЦ 4м5Z&ї0Œє лжлOѕфЦџxЦзй5з9EDTASM+/01.00.00 PAGE †ќˆќ‘O_ќŒо§Zм“У9ђђv&љ~ '†Sj& ~9з†C^' LX' з9 зў947&/':'5Зž1ŒЦOѓ~$ 1!\С#є ш57ћ9L P LS LD PS PD LDS PDS 4ђ4'Ёф'ђlЁф5‚0юr_ђZђ' &†  ' ЇР\С#ъC9ђCЇФO9†O4ћ€'K 'ѕ 'ёžЦџ ѕ=%3_ћdђ$ђ]&'Џ0& &ћL 'Ї€\Ё&С€%ьЦŒЦŒЦOŽ5‚4чЄme'ŸЙЬџџэ„5‡ёeЖџŠЗџЏ ‚ … †џ@†аЗџHˆˆЖџH–м'%' 2–м'''# žГŸЙЬџџэ„9wttjedc†#&9†Œ†&9Цђj аЦђcѓkQ&Фї–02ў%4@П%­Ÿ5@џ%M9п 4p3ы4@Xн<''8&81jЬёе%,mЄ*№ћmє'? ј2bж&Oм5№0ІЄЁє#јо4` ИmЄ*№Цо 2zC5№Ьџш0ы3юм4@ЦЌс#у95V4ц0Œ:0­„н9г9“9”д9šк9˜и9“'O_9їCS9о$3ЫXIž&ђ09ЬLZ'< $і‰о44@% “IˆF$“iaiфXI$\jb&фFVўjc&ј5ЦЦџSД9ž'+XI0&њ9DV0&њ9С+%рзO_9&'1&жO4Л5%ьЄ9 'йІ„F"г†ў9_'w& mЄ*]џУCS9&TІ„*& м 'м 9.'ѓ'&яf‰O9+'š-&ЬУ9Ц@''X$'"Ц &'(&ўSя9)&м9ЦŒЦ!ŒЦў”4яЎ'~Œ4оІ_D&цa' С 'С'/ eжС$'Ц  !ЦO'IQ'4€4m2ŒјІ†:—п†B—р†P—с " M0Œ юыфDISK EDTASM+ 01.00.0АCOPYRIGHT (C) 1983 BY MICROSOFд12-JUN-8Г40џb€‹5–43џR3Ы5nФИ_o€Z&ћ9† O4žC† ' І€Ÿ &† Ёф'чІ2a4—5‘0%:IˆFћ9A%ћ[ ёО'ѓ4 ž0Ÿ54ж'ьZ&ћ5„Ц†_ з& J4"5'& жС" O]9в0Œ]ў9C9NONAMEБžЬ—џj'8$!™‰%0401Œ<†жeцЄФІЄDDDDћ5А џ@' $їџn$ђџu †9Й& ZVVVVкЉзЉ9AhBiD`XqYrUsStPCUCCZDP[PCROЎbZыф1ЅŒ4цЄ'1!Фсa&ыІ Ё€&тZ&ї5–4_юЁЁ '\сф&ѕћ2a9о+ SзSX&ї0—90o†O4І€ # ?M*єmр&49oтІ€„ ч]'І€*ќZ&љ94‰0ъыЫ5 Ъ†*Œ†0Œ†QŒ† Œ† † 4G +( '  ж'а „' '  ' – щ5ЧџФ–„&ї ѓ]'І‚ 'ZЎ†Г  9ѕ&ќZ'ј40љ6І€Z&љ5” 'з&ќ9цФІ€‡Z&љ94G0ŒЦЁ€' Z&љ %эz"щ5” Ц4DO_&]'‹0L\O  jф&ыџ75ФhdicI9Ц€ Ц_4D3фmФ+цaцb5Ф†=†=mФ&0'lФA%4ўї5џ„‹0:%‹9Ц_1Œ"†/40lфЃЄ$ј5]&0'\гІ!1"J&п9'шd 0їvŸŸ94vœ'Ќf' "  3Ы0‹Œ5іІ€ЇР1?&ј903AІ‚ЇТ1?&ј9† Ї€Z&ћ9Œ%C9€04 Ž 1Ћ0&њ51І9ьСƒџџ& ЦўRZ&њ  С&цР'ІРўEZ іў=4vџB†џ—ў(5ігUBС€CMPСSBCС‚SUBФƒANDС„BITС…LDС†STС‡EORСˆADCС‰ORСŠADDС‹CMPиŒJSвLDиŽSTиSUBТРCMPТСSBCТТADDФУANDТФBITТХLDТЦSTТЧEORТШADCТЩORТЪADDТЫLDФЬSTФЭLDеЮSTеЯЮEЧCOЭLSвROвASвASЬLSЬROЬ DEУ INУ TSд JMаCLвЮEGС@COMСCLSRСDRORСFASRСGASLСHLSLСHROLСIDECСJINCСLTSTСMCLRСONEGТPCOMТSLSRТTRORТVASRТWASLТXLSLТXROLТYDECТZINCТ\TSTТ]CLRТ_SWЩ?MUЬ=RTЩ;ABи:RTг9SEиDAСSYNУNOаТRС BRЮ!BHЩ"BLг#BHг$BLЯ%BNХ&BEб'BVУ(BVг)BPЬ*BMЩ+BGХ,BLд-BGд.BLХ/BSвBCУ$BCг%ЬBRСLBSвЬBRЮ!LBHЩ"LBLг#LBHг$LBLЯ%LBNХ&LBEб'LBVУ(LBVг)LBPЬ*LBMЩ+LBGХ,LBLд-LBGд.LBLХ/LBCУ$LBCг%ЯRCУANDCУCWAЩ<ЬEAи0LEAй1LEAг2LEAе3ХXЧTFваSHг4PULг5аSHе6PULе7гWIВ?УMPФƒCMPйŒLDйŽSTйLDгЮSTгЯгWIГ?УMPеƒCMPгŒЦCТЦDТЦCУвMТгEдХQеЯRЧгETDаХNФХNФдITLХаAGХЭACRЯХNDЭЯPдЩNCLUDХУONФХNDУ4_›НЇщ5џqЮзЮ 1Ф~ *O‹JnŸEŒ4|_›Ц`Ш@чŸˆŽP­Ÿ &0&і ыЦ`чŸˆ_&† 'б5ќ4 _›ЦџїoНЁv}p'†5Œ4_›НЉ(5ˆіo45їo9_ŒЦўŒЦџїo4 _›­Ÿ 5Œ4|O‹­Ÿ 5|'''ў9–м' Й'"19њPћ н з&н?†џЗox†ŽџЮІ_ $ з&‡ЮІ) з&…ЮІ\†4†џЗox54_›­Ф5ˆ40Œ+џЉ5їб'4Ц1„ŽвћЉ05І Ї€Z&љ9г0ŒџREADY CASSETTХREADY PRINTEв†џЗoЮЄ- ЂЉxЮЅю ˜ з&њ4@ЮІHџ|5†Бт&НЮЅ}ф'3ŒџqПг|xНІ5,4!ѓг§Ір'~Є-Ї„Ё€&1?&є й‰9†џЗoНЁv}p'ђ~І з&юdџчюфџхџ 563Œ 44v_› 5ˆ†ОŠНІ_x||НЇиЎdП~†џЗ}ьbГ~$2f~Є‘ƒџ$\ї}НЇє н4†~ЗŽ0Œ П5’Ц 2іЋї@§АС*'ъЦјњјЇ '  < є' 9 ц 1 х +Ц дцх†—ѓ†џ—є1Œ9ASM>–ѓ&о є&к9/ ц3ђ6ЦІ ЇРZ&љŸї0ђŸљ0ђ&†Ї„0ђ †Ї„g&*9цх†—ѓє1Œ9BINх х †—х х з'ўW&T90ёа†Ї„- з'§=40ёН†Ї„&–ц5І&)†5с‰н‰9 з'§C4—ц0ё†Ї„ƒ5“ю‰ ъцжїЋџˆ ' о€4`џ)џЃM&џКџЕуbZ ъL&cџЇџЄнA ~'.џ~&Pюфџ’џ6ЎфŸ3_п0Œї[ојkїSојcџ25рSYMTBL: FIRSTН LASTНџ5ЇФЁР&0&ѓ9Ц ŒЦџfўБOџGьbЃdУџKьdџD†џџ-O_џ8ьфџ3 ~'•ўЯ5ЖІРџ0&ї9ŽЦdѕr4wп S5wo9І„'%'&'2'˜ІШ!'.'>&Ž& 9Ž Ž†&29­”M9H†!m'†>!4Ф56ІˆЇKІˆЇL†. ІKЇˆІLЇˆ94ŽШ'  &НІф!'ыЬэШ5’40ЏШ$1ЏШ'0І€ЇШ!ЬэШŽ їЊ5А3„†џЇиЎD0ЦїШЎDЎB4PІ!:& ІЄєЦ%g1!Ц05'Ј.'/& 4Цї—5Ц:&@1!1?ІЄ/&:5PЏBm„*o„94І '/'.' :']'`Ї€Z ц0…рр9' ' 9І €0%G"Cmи*>Їи9m&Ю1№œ9Ю21ё”94v0я'фэШ,5і%#1ŒЁЄ'mЁ&јЦŒц!ŒЦ ŒЦо 5Ўbч5і   з'є†/X&fѓі0Œ_9 жрай–р—й† Z&љй94w '5 й&< & к&*† њL к & к й–й‘п&С–к‘с& т&ъ цњ)5ї† Œ† њж4 w'2 й0яŠ†€Їˆ є˜Ц 4м5Z&ї0Œє‡ лжлOѕгЦџxЦзй5з9EDTASM+/01.00.00 PAGE †ќ‚ќ‹O_ќ†о§Zм“У9ѓv&љ~ '†Sj& ~9з†C^' LX' з9 зў947&/':'5Зž1ŒЦOѓЉ$ 1!\С#є ш57ћ9L P LS LD PS PD LDS PDS 4ђ_'Ёф'ђ—Ёф5‚0юЦ_ђ…ђE' &†  ' ЇР\С#ъC9ђnЇФO9†O4ћz'K 'ѕ 'ёžЦџ ѕ,%3_ћ^ђ+$ђ]&'Џ0& &ћF 'Ї€\Ё&С€%ьЦŒЦŒЦOŽ5‚4чЄme'ŸЙЬџџэ„5‡ёЖџŠЗџЏ ‚ … †џ@†аЗџHˆˆЖџH–м'жїžГŸЙЬџџэ„9п 4p3ыЯ4@Xн<''8&81jЬђh%,mЄ*ёŽmє'? ј2bж&Oм5№0ІЄЁє#јо4` ИmЄ*№Цо 2zC5№Ьџш0ы3я˜4@ЦЌс#у95V4ц0Œ:0­„н9г9“9”д9šк9˜и9“'O_9їCS9о$3ЫXIž&ђ09ЬLZ'< $і‰о44@% “IˆF$“iaiфXI$\jb&фFVўjc&ј5ЦЦџSД9ž'+XI0&њ9DV0&њ9С)%рзO_9&'1&жO4Л5%ьЄ9 'йІ„F"г†ў9_'w& mЄ*]џУCS9&TІ„*& м 'м 9.'ѓ'&яљ‰O9+'š-&ЬУ9Ц@''X$'"Ц &'(&ўSяЬ)&м9ЦŒЦŒЦў”4№A'~Œ4оІ_D&цa' С 'С'/ eжС$'Ц  !ЦO'IQ'EXH'@Ц T':цa&ж 'Ц оOZэфІ€яˆ$€€0Ёa"#4Ўa03Ы1?&њ53Ц &м05Р ma'Ьсa'ШЦўяЗ'ц„С.'9ож4VяЅ&я.& ж1O†№$ 5Vпзћ95V† ї+-*!/4! &<ƒ= € €,€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЦХУФФУУУУУЩ ФЩЦТЩУСЩЦХЩУ!"#$%ШЦТ)У+УЦ./0УЩХФФШТУУУУУУУ?ЧЦХЦEDTASM BIN ŠYCHARK ASMџXCHARK ASMџ&PPDOS BINRDOS BAS*иWESTK ASMџUCHARK ASMџ'**TCHARK ASMџ(Š ŠSYSVAR ASMџ22STAVTR ASMџТТSOUTHK ASMџSMREAD ASMџ,SMGAME ASMџ-ььSIBUFF ASMџггRPTSTR ASMџqqRPTSCO ASMџ1kkRCHARK ASMџ++RANDOM ASMџ2УУPTFWRA ASMџџџPTFVAL ASMџ3wwPTFSLS ASMџ33PTFCHA ASMџ4DDPTFBYA ASMџ PROCHK ASMџ5ššPCHARK ASMџ6**NORTHK ASMџNCHARK ASMџ7MSG011 ASMџ8ййMSG010 ASMџ ккMSG009 ASMџ9ооMSG008 ASMџ жжMSG007 ASMџ:ммMSG006 ASMџ ааMSG005 ASMџ;ЦЦMSG004 ASMџ ддMSG003 ASMџ<ооMSG002 ASMџииMSG001 ASMџ=ддMCSCCVT ASMџжжLCHARK ASMџ>ICHARK ASMџYYGTFVAL ASMџннGTFLOC ASMџ@??GMOVER ASMџqqGMOVED ASMџA]]GMLOOP ASMџщщGCHARK ASMџBFFEASTK ASMџCECMAL ASMџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;€)€]€ANDDIV4EQUMOD~NEQNOT€OR XORoтС#Цў4W3фž†я„$0 &Э _žЫP0…œˆ"Ц(НŸцAФъBч€цBІ Ї€Z&љo„oцBS0…ц„ІA…&E…&+Х&6Х€&† ' ƒ*Ъч„Х@'wХ'†џ—5WЎЄ5„Х'Х€&фЪч„RŒUŒO ф„4І„„Јр&6Х€&Х'Х&фЪ€ч„ІA…'Ъ ч„ЎCЏЄ И4ЎCЌЄ5'Ўц„Х 'ІA…&фЪ@ч„ š†Œ†#Œ†*Œ†)ЇGІФŠЇФ9BAD BUFFER DEFINED  ERROвFULЬLINХMISSING NO OPERANФSYMBOЬMACRЯ TABLE ENФ WITHOUT €DRIVE NOT READйIO€DOS€FILE NOT FOUNФW.END OF FILХDIRECTORY €DISK €DISK WRITE PROTECTEФFILE DESCRIPTOвFM€RECORФILLEGAL NESTINЧCOMMANФ NUMBEвPARAMETERг TOO LONЧ€ROOM BETWEEN LINEгSUCH (SЉEMPTйSEARCH FAILгEXPRESSION€MEMORйLABEЬ€BYTE OVERFLOзDP€OPCODХ STATEMENдINFORMATIOЮ€REGISTER€ C CONФ M € FORWARD REFERENCХ €SYNTAX€BREAKPOINдCAN'T CONTINUХ €MULTIPLY  €UN €0SŸГŸЙЬџџэ„ОмŸ0ŸЗыhм†UЗqЬџџ§h0љСПrЬ нЛЬ нЧžГŸЕ С %С$ю@žГœЙ& 0ю0ŸЕС%Fы2 жьх2ъ}зжйилwС †—ьЖlы'з1ŒЦь='ЂЦ ŒЦ oa%z"ˆ 9еA‚D/FСHаPќNу п^ПTW€EЉRM€CIDL5–zšv&ъЈ w'ыž0ŸŸo€–uC”v&žŸŸ0Ÿ‘†ў—ƒ— žГŸП† —Ь990пШээ„о“0о+ЦуLЁЂžŸ ƒ+0 v',№[оˆ3Ažцп0Ы3п–xšuš€& € ‘ и'ьVPžЙ0Ÿˆѓ2тJщф%т •' |' ъ%е€C—|•мгЅнн„0нЧЦтж]0ŒЩ4у`'Dц„Р ')Рщ'%Р!'6ж&С" тЗ' ' ' –žš&Ц C4у('ц„С*& †mф&h2c+1хќЦџ44 m *lb_\m *ћ\5 б'\1ЅЎamЄ&тжЦtІ „Ё€&шZ&ѕтO' ' &утІЄ—Ј5 ž'&Є ' '&˜H3-юЦ5$]'0'B'&$ ž†ѓ€$"]сфtž&мЅ'œ‘$Ÿ‘мЅ0‹œ#Ÿ ƒ+9‚–zC”І'/оžЅ1мЕ Ї'1? v'#м“#гЅ €'“" І ЇФЁР&0&є9ЦЙ ™&- “—'"0нKІ€%3Aп—ž›І Ї€Ÿ›0н3lZ&п94†џ—™0н o€мэяŸ›5–4v™х1н Ў! & 0І E0&ј5іІЄ&ь#У“‘э!1% фм“‘Уэ ж з' –Cšzšvšƒ&х† м“‘м‘‰ъ}9  "4";"Z"T"i "v"Ј"Ћ######3#>#z#…#ˆ#Ї#И$/"0(l(“(А(г(љ)b))˜)Г Џ жЈЪ@зЈ Бс-'`ц„С#']жЈЪ зЈ А 'ц„С>'С<& ЌŒ ­сц„С[& Ўрњ'bц„С,'}рЊcрW'Q,&Jс'›'рЦŒЦS Б&є>–Ј„' 'х % …&нмнЉЦзІ9џ$ЇжзЉЦзІ9рE Џ&М Ў' Ќ&Д†—ЉмнЊЦзІ9–Ј„Я—ЈА Ќ& ­& &–‘š'†0šЈ—Ј Ј–‘š'Цм–Ј Б'„ПŒŠ—Ј Ÿ Ќ& ­&' &#žŒ.Œџ№,o%k$$–ЉŠˆ—Љ–—Њџc–ЉŠ‰—Љ „ Ў&ч–„šЉ—Љџ]Ц‚м“ƒ Ї'ƒн Ќ& ­& & $ †—Љž0ŸЊџG†Œ—Љ $ЈФЬџ§н Ÿмƒ.ƒџ€,C9мƒџ.іƒџ-№O9–Ќš­&\††С'JС '†‹—Љою,&FS&Bўз–Ќš­&9F&)Ц„од'+' п кЉзЉ пЦоР'+'яој Ў&Z хЦ‚зЉ& Ў'Оў] Љ ѕц„С-&ёпcMŒ І2bќŠ“ƒнџT$Ц‘Цўў`РЦŒЦO4i“Ѓсў:оV#&ЎXў4ое'ў-о>,&–XXXX4оН-‰ързЉФˆ'EСˆ'AЦ : :†Œ†—†оœ'1-8б†'§РС/Р0Œ4І…•Љ'Ц šЉ—Љнщ','ао!§б Љ& Ц ђ ђ Љ&§ˆо ю @@€Œ Іџ%Œ§†Œ†—Ї9ЉзЈў…$ў-†—А І9•нЈ†—А Є2b†—Ан{'-—‡нt'&‘‡'у—Ј†—І ƒ+ †—АћzмгЅнн„І еЦ _Oгн†—А9†Œ†]'щ4:–”ƒ5&ю›$>†—А9&њpгн턆—А9&uзš§л$§“†—А9ыq$С)% м90ље4†O4rž“0Ÿ“ ƒ+1о#mф'1 •5ђ1о4w­Є y& w' 5w4w­Є5їЦоBМмн ƒ*'љ &љшмнмˆ' *'мР†ё ƒ+р†—А1о Ќо“1пЄ0Ьџ™ {&‹–w—'шœ ншžу%љо4PцР'0mФ+!m„'ФOц€ФІ€ЁР-.Z' 1?&ё5P1Œ5PцСФ\3Х Ъ2dоц€',4І„Š€Ї„он‹ю„оUнƒ0ŒL5ФјШ€н ŽІФ„ЇС3ХцРФ&ђ 'у;–zšv&! ™'њ\оњA0зgj„њN–~”з'шŸфй№$еЭг€Я TOTALг Ї' Іл€ Ў' ]&ЦкЉзЉлo '  ' &ћ9†—А ƒ+ –Єšy&Ч'–w— }'мр9оЕоnжАС,о„н”мПжА0ŒІ…0Œ n†6CX3?KXXžЅ Ї'0жЇ!жЈC1еп А' 0ц  м†0'1ц  іOнDоŒоЈн> жзЈжЈф 0Œ†Џфём[Ц ŒЦмLб&љ9AOIMLPMONLNONSWESSWS SR žПœЙ& и'§Ю Ÿ&H и&žПŸЕO0‹ŸП9цз0Ÿ9†—х0е‡ŸЕ зш4 з5& %žЕк ž&9§MиуdїџЙЫžЕ3еUz3Cпк'w\&їк .'Gк+$ к3%‘€€0Э†4о1е"–В ф3ЦЋ"€"oЇ"жž35@0ж4о3ЦжВ$3ХџЇйМйю%LЦзВZ3жЇР0ж † ЏOм‚0дЯŸЕЬџџэ„џ-5$–žš&іђ†жъђ%ќŽ Ÿ& ŸоПпŠŸПйЃžŸжзŒ†3L‰O1Œ&†ЦъР%ќ\1еЉЬ90ŽlЂЁЄ$чЄ0&є†!їNARGож4F†џ43фžŸжŒзВ1еtoCй'P*&mФ+H &mC'@ &mC'8mФ*oФ,&mC' (&mC& jC Щ)&mC&ПжВС$Л ВЇ  ЕцФсB' lФ ЃцФсB'В5Vпз91глц"Ыžˆ:œ$3žˆ4І Ї€Z&љŸˆ5–А & Ё9 ž' Ђ9 Ÿ' Ѓ9C9Ц ŒЦŒЦ%ћ{Ц$эЧ0дžЦ лn&ѕЋёиJ'ž01д†\и?'\С &іІ€Ї Z&љ ;&ѕ„ ƒ&7 y&3†—А w'+ќМфfѕ'њТ–žšŸ&џ— žžП и'žˆ† щnћ†—А9 ž&]'Цћ Ÿ'žŠŸПќOќužŸєОЦ"њр&ѕиL'Ь&&ж1Œ&†иФ%їjІ цЄ0в…ч†зЁ'Ћ,'жзй Ђзр MCџNOMCMDџNOMDMEXџNOMEXLNOLџ&єЕ–иšžšŸ&ўуф§%р и ГЦњX&є–њC“' &  Œ  —'ЦњA &  '  Œ  Ц!њ&† —Ај|0<П†~З0х:ПržЙ0Ÿн0бGЦWжнЬ9з2—0——†—м0ж0‰џyŸ?иh†#V2еќ Zž" *'С %'Ю; 'Фч„с„&( +'+*1џŠ ­Ы НZ-BUG/1.0А &*фэ„Ѓ„'оЦи† и –—иl0б•Ÿиv'ъ'  ' 'й1ŒЦ зhуˆ' +OЇ€ ж9жиз Ь{/—^V;c=y:ƒ"= —,;ž  е§'џ/ž 1Œ%Цз& ж*'џQС $џKЦ зxз)*џ qMdBiW‚H{N|SбDыRuE[AєX4YЈCŒG‡IOЉTDL|PnVОUз2щї'$- +&Ÿ Ÿ"зe†—*зўЏ&Œž 0Œž(Œž ўё8+ з+еу%"0ЯФС# +Р'0Z' 0Z& +0…9 +X је{K9 ,' 1K”ёжД +' +1+–+J'#цz40Œж<5ХЦШЩЮкжУ && {Ÿ(9+Oц€Œь +&Ÿ( /+˜жo'џjЎ„ +& &&>1џM&ўЫ 1”1џ*Oц„0џ# '0Е 1Оn„&лц„џџ &бІ„ж" є™нAўœ+†—- '$„нA #' z“'— Ь4žA5&э# ''§Щ~Ь/4ьЄ' §ЗІфРьЄн1%lфja&ч5†'0ц„Ї„Ё„& LЇ„Ё„&ч„С?&Ц& EМ'ї4žГ&ю5ј тZ45%%9'юƒ"†=ТояЅ9ŽZэ0&ї9Ц&§Ьж/Ъ€з/9Ь Ь€0†Ÿ(†_з&ж/Фз/9Ц_з/,9ї ,93ЭУ 3Эх“M& С' С 'С'Ц ВчФ9г\H'%г–+џpгˆџh4ќвŸ ў#кž(Ќф#я5г-дЯкЈ ЮдХк›9ќЉ0ŒG1е|Oж7-ж8)ж6%ж5!§јќ‹3ЭoЦ41е]ьС jф&ј5ќrьФ4Fд5Oюф­Єдm5ЦСТDаCУийегPУ†Lпр'4оžн^' X'нн5кUЦ ŒЦќЙк>ќ!вь%ы9†PпЈќвл%н4вЗ4pЃb"вцfЎgюiяfк‡Žў€4в˜0&є5№в'ўmћ9те)4v +) 1415+&( /'$0Œ4“'–0 " %дФ…5ігЂдxдJŽ34оІР„'23ЦьфЃС+№Ѓb$ыэb! х5`ƒ3$ гя“'У32 1‰ Ж0Ь4ЖŽЇ„ўяC2аёб†ьAн7ЎDŸ9Ÿ;ЎHŸ=ІФ—'цCн5ЎJ0ŸA3Lп?кЏO'5i[žAH& ю#3_я#&Йl$мAџ$ '‹0г0ŒвБ BRK @ ( -'v-ž(4žAќ%5Ÿ(њl,Œ0OЌЄ'1%LZ&і\9 Ц oЂZ&ћ9ЎЄ'І"Ї„1%Z&ѓ9Ц1Ы†9Ц1Ы‰9Ї„Ё„&5†?Ї„Ё„&-я#9‹лЦ=1ЅЏЄІ„Ї"Ьэ#9ЯЎЄ'І„Ї"†?Ї„1%Z&я )—Ц'њиžA†?ЁЄ'ђ5оA!OЊ ' +сœ$'ž$†š–2ЗŽž3Пž;о=о?м5žA4ž9м75‰ЦџзЦз9.#І 'ч'ј0Œ1ц€'с?&ј €%*Ц^'6Э'.„?'('$ц?Х@'ЪŒФФ n~­Н`%„0?ц†Сџ'ФqІ?Ц=0Œ9ц†*ц?Фъ†ФT0Œ9ц…%TTTTФ0Œ ц…O0ѕ­‹п$9-1'ь0 шц OŒьЁ45 ЊьЁ Іц –6ќX ц   ьЁ3Ћ0 ьџwџ~І DDDDІ?„H0§0†4Х'жЪІ€Х'е&†гЯљM*ю5“ц?0Œ:І *ж0H&ї9ІЄH$Ž_HЩ0&љXHЩM&њо?юХ ц?0ŒІ 0D$Ѕ&ї9PУейиDаТСCУц Х€':0ŒDФц…0ŒM:ц?Х''–ж4v†џ—5v—зц?–'Яs†џ—0юФ -ФХ'Ър|"&-‰CLЭfoЭUГКЭЩ&$„†+Œ†-Œ†[Œ†]Œ†#Œ†,Œ†TŒ†=Œ†/Я&о п&Ѓ†џŒ†ў4сгІфL'ЬM53Х9ж84†B ж74†A м74†DТц?(53Ы9>ц  2ьЁ4* ьфCSУњо ж‰TTTTФ0Ч†ю…0ŒTІ…џDXYUS†>Œ†< +З—Ю•ѓўU щўU0ŒЮ8,PCв&ў+§‹ џџ!"џ#$%'(џ)*+,MLџџabџKtџuJ{|NOPQRSTUVWXYZ[\]wxyz}~€џIHGvFџE-џџ./џ01245џ67џ89џџ:;џ<=>@AџBCџDФийегPУППСТCУDаППППџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00100 ***** 00110 * 00120 * XCHARK.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * EXIT KEY 00160 * (X-KEY) 00170 * EVENT HANDLER 00180 * 00190 * CHECKS FOR CONFIRMATION 00200 * THEN EXITS GAME IF CONFIRMED 00210 * (DOES A COLD START) 00220 * 00230 * RETURNS WITH NO ACTION 00240 * IF NOT CONFIRMED 00250 * 00260 ***** 00270 00280 * MLF POLCAT 00290 POLCAT EQU $4142 00300 00310 * COLD START ADDRESS 00320 COLD EQU $41A2 00330 00340 * CONFIRM MESSAGE EQUATES 00350 CLRL13 EQU $62C0 CLEAR LINE 13 00360 CLRL14 EQU $6300 CLEAR LINE 14 00370 MSG010 EQU $6760 "EXIT GAME CONFIRM" 00380 00390 ORG $6240 00400 00410 XCHARK PSHS A 00420 00430 JSR CLRL14 GO CLEAR LINE 14 00440 JSR MSG010 CONFIRM? 00450 00460 * GET A KEYPRESS 00470 LBL001 JSR POLCAT 00480 BEQ LBL001 00490 00500 * YCHARK (Y-KEY) 00510 CMPA #$59 00520 BNE LBL002 00530 JMP COLD GO DO COLD START 00540 00550 * NCHARK (N-KEY) 00560 LBL002 CMPA #$4E 00570 BNE LBL003 00580 JSR CLRL13 GO CLEAR LINE 13 00590 JSR CLRL14 GO CLEAR LINE 14 00600 BRA LBL004 GO DO RTS 00610 00620 * ANY OTHER KEYPRESS 00630 LBL003 LBRA LBL001 00640 00650 LBL004 PULS A 00660 ENDCHK RTS 00670 00680 END Щ"BLг#BHг$BLЯ%BNХ&BEб'BVУ(BVг)BPЬ*BMЩ+BGХ,BLд-BGд.BLХ/BSвBCУ$BCг%ЬBRСLBSвЬBRЮ!LBHЩ"LBLг#LBHг$LBLЯ%LBNХ&LBEб'LBVУ(LBVг)LBPЬ*LBMЩ+LBGХ,LBLд-LBGд.LBLХ/LBCУ$LBCг%ЯRCУANDCУCWAЩ<ЬEAи0LEAй1LEAг2LEAе3ХXЧTFваSHг4PULг5аSHе6PULе7гWIВ?УMPФƒCMPйŒLDйŽSTйLDгЮSTгЯгWIГ?УMPеƒCMPгŒ4_›НЇщ5џqЮзЮ 1Ф~ *O‹JnŸEŒ4|_›Ц`Ш@чŸˆŽP­Ÿ &0&і ыЦ`чŸˆ_&† 'б5ќ4 _›ЦџїoНЁv}p'†5Œ4_›НЉ(5ˆіo45їo9_ŒЦўŒЦџїo4 _›­Ÿ 5Œ4|O‹­Ÿ 5|''' ў9 њјћО ъ4†џЗox54_›­Ф5ˆ40Œ+џй5їб'4Ц1„Žвќ05І Ї€Z&љ9~0ŒџБREADY CASSETTХREADY PRINTEв†џЗoЮЄ- ЂЉxЮЅю ˜ w&Ъ4@ЮІHџ|5†Бт&НЮЅ}ф'3ŒџqПг|xНІ5,4!ѓг§Ір'~Є-Ї„Ё€&1?&є й‰9†џЗoНЁv}p'ђ~І w&хюdџчюфџхџ 563Œ 44v_› 5ˆ†ОŠНІ_x||НЇиЎdП~†џЗ}ьbГ~$2f~Є‘ƒџ$\ї}НЇє н4†~ЗŽ0Œ П5’Ц 2ї˜ј*§эС*'ъЦљвљ  ŸЦ С>–“&ё ”&э9/ †3єяЦІ ЇРZ&љŸ—0єзŸ™0єп†Ї„0єУ†Ї„c&*9†…†—“”1Œ9BIN… … †—… … w'ўƒ&T90є‰†00100 ***** 00110 * 00120 * UCHARK.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * GO UP KEY 00160 * (U-KEY) 00170 * EVENT HANDLER 00180 * 00190 * NOT IMPLEMENTED FOR 00200 * MALKY'S WARREN 00210 * 00220 ***** 00230 00240 ORG $6160 00250 00260 UCHARK RTS 00270 00280 END ЦdіŒ4wп S5wo9І„'%'&'2'˜ІШ!'.'>&Ž& 9Ž Ž†&%9­”M9H†!m'†>!4Ф56ІˆЇKІˆЇL†. ІKЇˆІLЇˆ94ŽШ'  &НІф!'оЬэШ5’40ЏШ$1ЏШ'0І€ЇШ!ЬэШŽ јВ5А3„†џЇиЎD0ЦјаЎDЎB4PІ!:& ІЄѕр%g1!Ц05'›.'/& 4ЦјŸ5Ц:&@1!1?ІЄ/&:5PЏBm„*o„94І '/'.' :']'SЇ€Z ц0…рр9' ' 9І €0%:"6mи*1Їи9m&Ю1ђЃ9Ю21ѓ›9%#1ŒЁЄ'mЁ&јЦŒц!ŒЦ ŒЦо 5Ўbч5і  ж€аy–€—y† Z&љy94w '5 y&< & z&*† њо z & z y–y‘&С–z‘& ‚&ъ цњЛ5ї† Œ† њБ9†§§ O_§о§жм“У9єГv&љ '†Sj& 9w†C^' LX' w9 wў947&/':'5Зž1ŒЦOѕ-$ 1!\С#є ш57ћ9L P LS LD PS PD LDS PDS 4ѓѕ'Ёф'є-Ёф5‚0ёI_єѓл' &†  ' ЇР\С#ъC9єЇФO9ѓ‘ЖџŠЗџЏ ‚ … †џ@†аЗџHˆˆЖџH–| п 4p3яс4@Xн<''8&81jЬєe%,mЄ*ѓmє'? ј2bж&Oм5№0ІЄЁє#јо4` ИmЄ*№Цо 2zC5№Ьџш0ы3ё”4@ЦЌс#у95V4ц0Œ:0­„н9г9“9”д9šк9˜и9“'O_9їCS9о$3ЫXIž&ђ09ЬLZ'< $і‰о44@% “IˆF$“iaiфXI$\jb&фFVўjc&ј5ЦЦџSД9ž'+XI0&њ9DV0&њ9С%рзO_9&'1&жO4Л5%ьЄ9 'йІ„F"г†ў9_'w& mЄ*]џУCS9&TІ„*& м 'м!9.'ѓ'&ђ‰O9+'š-&ЬУ9Ц@''X$'"Ц &'(&ўSёл)&м9ЦŒЦŒЦў”4ђP'~Œ4оІ_D&цa' С 'С'/ eжС$'Ц  !ЦO'IQ'EXH'@Ц T':цa&ж 'Ц оOZэфІ€ё—$€€0Ёa"#4Ўa03Ы1?&њ53Ц &м05Р ma'Ьсa'ШЦўёЦ'ц„С.'9ож4VёД&ё!.& ж1O†ђ$ 5Vпзћ95V† ї+-*!/4! &<ƒ= € €,€;€)€]€ANDDIV4EQUMOD~NEQNOT€OR XORoтС#Цў4W3фž†ё$, &† Hž0:œ%Ц­žч€І Ї€Z&љo€o€o„Ÿ0цBS0…ц„mA&Х€&N 'Х@'GХ'†џ—5WЎЄ5„Х€&Ъ€ч„ІA…'Ъ ч„ЎCЏЄ т4ЎCЌЄ5'иц„Х 'ІA…&фЪ@ч„ Ф†Œ†ЇGІФŠЇФ9BAD BUFFER DEFINED  ERROвFULЬLINХMISSING NO OPERANФSYMBOЬ€DRIVE NOT READйIO€DOS€FILE NOT FOUNФW.END OF FILХDIRECTORY €DISK €DISK WRITE PROTECTEФFILE DESCRIPTOвFM€RECORФCOMMANФPARAMETERгEXPRESSION€MEMORй€BREAKPOINдCAN'T CONTINUХ TABLE €MULTIPLY  €UN €02П†~З0ћП00100 ***** 00110 * 00120 * TCHARK.ASM 00130 * MDJ 2024/02/13 00140 * 00150 * TAKE KEY 00160 * (T-KEY) 00170 * (PUT CONTENTS OF CELL INTO BAG) 00180 * EVENT HANDLER 00190 * 00200 ***** 00210 00220 BAG EQU $54A1 THE BAG 00230 GMOVED EQU $64C0 YOU DIED 00240 CLRL14 EQU $6300 CLEAR LINE 14 00250 MSG004 EQU $6600 "NOTHING HERE" 00260 MSG005 EQU $6640 "NO ROOM" 00270 MSG007 EQU $66A0 "BAG CONTENTS" 00280 00290 * PUT FAKE TEXT ROUTINE 00300 PTFCHR EQU $5300 00310 00320 * COORDINATES CONVERTER 00330 MCSCCV EQU $5A80 00340 00350 * PUT CHARACTER VALUE TO 00360 * SCREEN INFORMATION BUFFERS 00370 PTFVAL EQU $5B60 00380 00390 * MAZE COORDINATES 00400 * AND CONTENTS 00410 MXC EQU $5AE5 00420 MYC EQU $5AE6 00430 CELLCC EQU $5AE7 00440 00450 * STRENGTH REPORTING 00460 STRNTH EQU $549C 00470 RPTSTR EQU $6400 00480 00490 ORG $60E0 00500 00510 TCHARK PSHS A,B,X 00520 00530 JSR CLRL14 CLEAR LINE 14 00540 00550 * CHECK FOR GOSPEL OF JOHN 00560 LDB CELLCC CURRENT CELL CONTENTS 00570 CMPB #$E0 IS IT JOHN? 00580 BNE LBLDC1 GO IF NO 00590 STB BAG PUT IT IN THE BAG 00600 LDB #$20 BLANK SPACE 00610 STB CELLCC TO CURRENT CONTENTS 00620 CLRA EXTEND IT 00630 TFR D,X 00640 LDA MXC MX-COORDINATE 00650 LDB MYC MY-COORDINATE 00660 JSR MCSCCV CONVERT TO SX,SY 00670 JSR PTFVAL PUT TO SCREEN BUFFER 00680 JSR MSG007 "BAG CONTENTS" 00690 BRA LBL002 00700 00710 LBLDC1 JSR MSG004 "NOTHING HERE" 00720 00730 * FAILED ACTION: ADJUST STRENGTH VARIABLE 00740 PSHS A,B STRENGTH EFFECT 00750 LDD STRNTH 00760 CMPD #2 IS IT AT LIMIT 00770 BHI LBL001 GO IF NO 00780 LDD #0 00790 STD STRNTH 00800 PULS A,B 00810 JSR RPTSTR REPORT CURRENT STRENGTH 00820 PULS A,B,X 00830 JMP GMOVED YOU DIED 00840 00850 LBL001 SUBD #2 00860 STD STRNTH 00870 PULS A,B 00880 JSR RPTSTR REPORT CURRENT STRENGTH 00890 BRA LBLDC2 00900 00910 * COMPLETED ACTION: ADJUST STRENGTH VARIABLE 00920 LBL002 PSHS A,B STRENGTH EFFECT 00930 LDD STRNTH 00940 CMPD #1 IS IT AT LIMIT 00950 BHI LBL003 GO IF NO 00960 LDD #0 00970 STD STRNTH 00980 PULS A,B 00990 JSR RPTSTR REPORT CURRENT STRENGTH 01000 PULS A,B,X 01010 JMP GMOVED YOU DIED 01020 01030 LBL003 SUBD #1 01040 STD STRNTH 01050 PULS A,B 01060 JSR RPTSTR REPORT CURRENT STRENGTH 01070 01080 LBLDC2 PULS A,B,X 01090 ENDCHK RTS 01100 01110 END žЕк ž&9§MиуdїџЙЫžЕ3еUz3Cпк'w\&їк .'Gк+$ к3%‘€€0Э†4о1е"–В ф3ЦЋ"€"oЇ"жž35@0ж4о3Цжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ е& к ˆ& гM"DOS/BIN"&)Йџƒ0Г&H10A2&5AГџƒ(0)&;2‚&\7‚THE FOLLOWING HAS OCCURRED:&b<‚&‡>‚[ ]&A‚&ЊE‚PRESS A KEY TO CONTINUE&ЬF‚ F R E E S P A C E M A P&юG‚ ---------------------------&єH‚'K‚FREE SPACE DRIVE ZERO'3L‚ .... .... .... .... .... ....'WM‚ .... .... .... .... .... ....'vN‚ .... .... .... .... ....'|O‚'–P‚FREE SPACE DRIVE ONE'КQ‚ .... .... .... .... .... ....'оR‚ .... .... .... .... .... ....'§S‚ .... .... .... .... ....(U‚(#V‚(PUSH ANY KEY TO CONTINUE)()d‚(Ke‚COLOR TRSDOS 01.07.00 11/82(_f‚BY R.G. KILGUS({g‚COPR. 1982 TANDY CORP.(”i‚ALL RIGHTS RESERVED(šo‚(Вx‚ 1. EXIT TO BASIC(Ы}‚ 2. EXEC A PROGRAM(щ‚‚ 3. START CLOCK DISPLAY)‡‚ 4. DISK ALLOCATION MAP)Œ‚ 5. COPY FILES)0‘‚ 6. DIRECTORY)E‚** NO ERRORS **)f‚I/O ERROR - DRIVE NOT READY)‡‚I/O ERROR - WRITE PROTECTED)Є‚I/O ERROR - WRITE FAULT)Р‚I/O ERROR - SEEK ERROR)л‚I/O ERROR - CRC ERROR)і‚I/O ERROR - LOST DATA*‚I/O ERROR - UNDEFINED BIT 1*8‚I/O ERROR - UNDEFINED BIT 0*W ‚REGISTER ARGUMENT INVALID*v ‚DIRECTORY ENTRY NOT FOUND* ‚DIRECTORY IS FULL*Ќ ‚OPEN CAUSED FILE CREATION*Я ‚FILE NOT CLOSED AFTER CHANGES*ш‚FILE NOT YET OPENED+‚NOT OPENED FOR READING+)‚RBA OVERFLOW (RBA > 16,777,216)+O‚NOT ALLOWED - BEYOND END OF FILE+f‚FAT REWRITE ERROR+‚CLOSING UNOPENED FILE+І‚CANT USE RANDOM - REC SZ = ZERO+Т‚NOT OPENED FOR WRITING+ф‚CANT EXTEND FILE - DISK FULL, ‚OVERLAY LOAD ERROR - FUNCTION NG,0‚NOT ENOUGH SPACE FOR PRINT BUFR.,U‚BASIC LINE READ FAILED, I/O ERR,z‚PROGRAM LOAD ADDRESS IS TOO LOW, ‚PROG FILE DOSN'T START WITH ZERO,Ф‚NOT ENOUGH SPACE FOR BUFRD KBD,л‚NOT ENOUGH MEMORY,ћ‚OUTPUT FILE ALREADY EXISTS-‚-‚EXECUTE A PROGRAM-‚-@ ‚PROGRAM NAME: [ ]/BIN-F‚-L%‚-d&‚ COPY A FILE-j(‚-Œ*‚ SOURCE FILE NAME [ ]-Љ,‚ EXTENSION [BIN]-Ф.‚ DRIVE [0]-Ъ0‚-ь2‚ DESTINATION NAME [ ]. 4‚ EXTENSION [BIN].$6‚ DRIVE [0].*8‚.G:‚ IF DRIVES ARE THE SAME.e<‚ ARE YOU USING DIFFERENT.ƒ>‚ DISKETTES (Y OR N)? [N].‰@‚.ЁB‚USE UP/DOWN ARROWS.ОD‚PRESS WHEN DONE.уZ‚[********] [***]:[0]