џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ FDB 64 00261 AM7 FCC 'You may make as many copies of this program as you wish for your' 00262 AN8 FDB 64 00263 AM8 FCC 'own use, but you may not sell or give away any copies to anyone' 00264 AN9 FDB 5 00265 AM9 FCC 'else.' 00266 ANA FDB 22 00267 AMA FCC '"Thou shalt not steal"' 00268 ANB FDB 12 00269 AMB FCC 'Exodus 20:15' 00270 ZEND NOP 00271 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLOCATION 00087 CLR XCURS+1 00088 LDX #184 RESET Y-LOCATION 00089 STX YCURS 00090 LDX #MSG1F MESSAGE ADDRESS 00091 PSHU X 00092 LDX MSGN1F CHARACTER COUNT 00093 PSHU X 00094 JSR TYPF GO TYPE MESSAGE TO SCREEN 00095 BRA SRX EXIT 00096 SR3 JSR CPRMT1 GO CLEAR PROMPTS 00097 JSR CPRMT2 00098 CLR XCURS RESET X-LOCATION 00099 CLR XCURS+1 00100 LDX #184 RESET Y-LOCATION 00101 STX YCURS 00102 LDX #MSG1D MESSAGE ADDRESS 00103 PSHU X 00104 LDX #MSGN1D CHARACTER COUNT 00105 PSHU X 00106 JSR TYPF GO TYPE MESSAGE TO SCREEN 00107 LDX MAXPP MAXIMUM PAGE NUMBER (MPN) 00108 PSHU X 00109 JSR DOTF GO TYPE MPN TO SCREEN 00110 BRA SRX EXIT 00111 SR4 JSR CPRMT1 GO CLEAR PROMPTS 00112 JSR CPRMT2 00113 CLR XCURS RESET X-LOCATION 00114 CLR XCURS+1 00115 LDX #184 RESET Y-LOCATION 00116 STX YCURS 00117 LDX #RMSG3 MESSAGE ADDRESS 00118 PSHU X 00119 LDX RMSGN3 CHARACTER COUNT 00120 PSHU X 00121 JSR TYPF GO TYPE MESSAGE TO SCREEN 00122 SRX LDX XCURSH RESTORE X-LOCATION 00123 STX XCURS 00124 LDX YCURSH RESTORE Y-LOCATION 00125 STX YCURS 00126 PULS X 00127 RTS 00128 RMSGN1 FDB 11 00129 RMSG1 FCC 'From Page? ' 00130 RMSGN2 FDB 9 00131 RMSG2 FCC 'To Page? ' 00132 RMSGN3 FDB 32 00133 RMSG3 FCC '"TO" must be greater than "FROM"' 00134 ZEND NOP 00135 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * SRANGE.ASM 00004 * MDJ 01-26-91 00005 * 00006 * SELECTS PAGE RANGE 00007 * 00008 ************************* 00009 * 00010 MAXPP EQU $3104 00011 CPRMT1 EQU $571D 00012 CPRMT2 EQU $5747 00013 TYPF EQU $4F02 00014 PNVS EQU $6124 00015 PNVE EQU $6126 00016 CKPGNV EQU $5899 00017 GETNUM EQU $5A89 00018 DOTF EQU $4F46 00019 PRANGE EQU $60E4 00020 XCURS EQU $F3 00021 YCURS EQU $F5 00022 XCURSH EQU $56C3 00023 YCURSH EQU $56D0 00024 MSGN1F EQU $5B2F 00025 MSG1F EQU $5B31 00026 MSGN1D EQU $598F 00027 MSG1D EQU $5991 00028 ORG $614E 00029 SRANGE PSHS X 00030 JSR CPRMT1 GO CLEAR PROMPTS 00031 JSR CPRMT2 00032 LDX XCURS SAVE X-LOCATION 00033 STX XCURSH 00034 LDX YCURS SAVE Y-LOCATION 00035 STX YCURSH 00036 CLR XCURS SET X-LOCATION 00037 CLR XCURS+1 00038 LDX #176 SET Y-LOCATION 00039 STX YCURS 00040 LDX #RMSG1 MESSAGE ADDRESS 00041 PSHU X 00042 LDX RMSGN1 CHARACTER COUNT 00043 PSHU X 00044 JSR TYPF GO TYPE MESSAGE TO SCREEN 00045 JSR GETNUM GO GET PAGE NUMBER 00046 PULU X GET FLAG FROM U-STACK 00047 CMPX #0 IS IT FALSE 00048 BEQ SR2 GO IF YES 00049 CMPX #$FFFF IS IT 16-BIT? 00050 BEQ SR1 GO IF YES 00051 PULU X DROP 32-BIT HIGH BYTES 00052 SR1 JSR CKPGNV GO CHECK IF VALID PAGE NUMBER 00053 PULU X GET FLAG FROM U-STACK 00054 CMPX #0 IS IT FALSE 00055 BEQ SR3 GO IF YES 00056 PULU X GET PAGE NUMBER FROM U-STACK 00057 STX PNVS STARTING PAGE NUMBER 00058 LDX #128 RESET X-LOCATION 00059 STX XCURS 00060 LDX #176 RESET Y-LOCATION 00061 STX YCURS 00062 LDX #RMSG2 MESSAGE ADDRESS 00063 PSHU X 00064 LDX RMSGN2 CHARACTER COUNT 00065 PSHU X 00066 JSR TYPF GO TYPE MESSAGE TO SCREEN 00067 JSR GETNUM GO GET PAGE NUMBER 00068 PULU X GET FLAG FROM U-STACK 00069 CMPX #0 IS IT FALSE? 00070 BEQ SR2 GO IF YES 00071 CMPX #$FFFF IS IT 16-BIT? 00072 BEQ SRA GO IF YES 00073 PULU X DROP 32-BIT HIGH BYTES 00074 SRA JSR CKPGNV GO CHECK IF VALID PAGE NUMBER 00075 PULU X GET FLAG FROM U-STACK 00076 CMPX #0 IS IT FALSE 00077 BEQ SR3 GO IF YES 00078 PULU X GET PAGE NUMBER FROM U-STACK 00079 CMPX PNVS >= STARTING PAGE NUMBER? 00080 BLO SR4 GO IF NO 00081 STX PNVE ENDING PAGE NUMBER 00082 JSR PRANGE GO PRINT RANGE 00083 BRA SRX EXIT 00084 SR2 JSR CPRMT1 GO CLEAR PROMPTS 00085 JSR CPRMT2 00086 CLR XCURS RESET X-00001 ************************* 00002 * 00003 * CRANGE.ASM 00004 * MDJ 01-26-91 00005 * 00006 * SETS PAGE RANGE = 00007 * CURRENT PAGE 00008 * 00009 ************************* 00010 * 00011 PNV EQU $598B 00012 PNVS EQU $6124 00013 PNVE EQU $6126 00014 PRANGE EQU $60E4 00015 ORG $6129 00016 CRANGE PSHS X 00017 LDX PNV GET CURRENT PAGE NUMBER 00018 STX PNVS STARTING PAGE 00019 STX PNVE ENDING PAGE 00020 JSR PRANGE GO PRINT RANGE 00021 PULS X 00022 ZEND RTS 00023 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * RDY.ASM 00004 * MDJ 01-26-91 00005 * 00006 * "READY PRINTER" 00007 * OPERATOR 00008 * 00009 ************************* 00010 * 00011 TYPF EQU $4F02 00012 PCODE EQU $5BC0 00013 CPRMT1 EQU $571D 00014 CPRMT2 EQU $5747 00015 PRMT2B EQU $56D3 00016 KEY EQU $5041 00017 XCURS EQU $F3 00018 YCURS EQU $F5 00019 XCURSH EQU $56CE 00020 YCURSH EQU $56D0 00021 ORG $608A 00022 RDY PSHS A,X 00023 LDA PCODE GET PAUSE CODE 00024 CMPA #0 IS IT "YES"? 00025 BNE RDY1 GO IF NO 00026 JSR CPRMT1 CLEAR PROMPTS 00027 JSR CPRMT2 00028 LDX XCURS SAVE X-LOCATION 00029 STX XCURSH 00030 LDX YCURS SAVE Y-LOCATION 00031 STX YCURSH 00032 CLR XCURS SET X-LOCATION 00033 CLR XCURS+1 00034 LDX #176 SET Y-LOCATION 00035 STX YCURS 00036 LDX #YMSG MESSAGE ADDRESS 00037 PSHU X 00038 LDX YMSGN CHARACTER COUNT 00039 PSHU X 00040 JSR TYPF GO TYPE MESSAGE TO SCREEN 00041 LDX XCURSH RESTORE X-LOCATION 00042 STX XCURS 00043 LDX YCURSH RESTORE Y-LOCATION 00044 STX YCURS 00045 JSR PRMT2B 00046 JSR KEY WAIT FOR KEYPRESS 00047 PULU X CLEAN U-STACK 00048 JSR CPRMT1 CLEAR PROMPTS 00049 JSR CPRMT2 00050 RDY1 PULS A,X 00051 RTS 00052 YMSGN FDB 13 00053 YMSG FCC 'READY PRINTER' 00054 ZEND NOP 00055 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PHEAD.ASM 00004 * MDJ 01-26-91 00005 * 00006 * PRINTS PAGE HEADER 00007 * 00008 ************************* 00009 * 00010 MAXPP EQU $3104 00011 HMSGN EQU $3106 00012 HMSG EQU $3107 00013 PCRSND EQU $5F75 00014 PLF EQU $4F9D 00015 PTYPE EQU $4FDA 00016 PDOT EQU $4FEB 00017 PSPCS EQU $4FC7 00018 TCODE EQU $5C16 00019 LCODE EQU $5BEF 00020 PNV EQU $598B 00021 ORG $5FDA 00022 PHEAD PSHS A,B,X 00023 LDA TCODE GET TOP MARGIN 00024 PH1 CMPA #0 IS IT ZERO? 00025 BEQ PH2 GO IF YES 00026 JSR PLF DOWN ONE LINE 00027 DECA DECREMENT MARGIN COUNT 00028 BRA PH1 RETURN FOR NEXT PLF 00029 PH2 CLRA GET LEFT MARGIN 00030 LDB LCODE 00031 PSHU A,B 00032 JSR PSPCS GO PRINT MARGIN 00033 LDX #HMSG HEADER MESSAGE ADDRESS 00034 PSHU X 00035 CLRA 00036 LDB HMSGN CHARACTER COUNT 00037 PSHU A,B 00038 JSR PTYPE GO PRINT HEADER 00039 LDX #HMSG2 PART TWO MESSAGE ADDRESS 00040 PSHU X 00041 LDX HMSGN2 CHARACTER COUNT 00042 PSHU X 00043 JSR PTYPE GO PRINT PART TWO 00044 LDX PNV PRINTING PAGE NUMBER 00045 PSHU X 00046 JSR PDOT GO PRINT PAGE NUMBER 00047 LDX #HMSG3 PART THREE MESSAGE ADDRESS 00048 PSHU X 00049 LDX HMSGN3 CHARACTER COUNT 00050 PSHU X 00051 JSR PTYPE GO PRINT PART THREE 00052 LDX MAXPP MAXIMUM PAGE NUMBER 00053 PSHU X 00054 JSR PDOT GO PRINT MAX. PAGE NUMBER 00055 JSR PCRSND SEND PRINTER TO NEXT LINE 00056 LDA #3 BLANK HEADER LINES 00057 PH3 CMPA #0 DONE? 00058 BEQ PH4 GO IF YES 00059 JSR PLF DOWN ONE LINE 00060 DECA DECREMENT COUNT 00061 BRA PH3 RETURN FOR NEXT PLF 00062 PH4 PULS A,B,X 00063 RTS 00064 HMSGN2 FDB 8 00065 HMSG2 FCC ' - Page ' 00066 HMSGN3 FDB 3 00067 HMSG3 FCC 'of ' 00068 ZEND NOP 00069 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PCRSND.ASM 00004 * MDJ 01-28-91 00005 * 00006 * DETERMINES WHETHER A 00007 * CARRIAGE RETURN TO THE 00008 * PRINTER SENDS A 00009 * CARRIAGE RETURN ONLY OR 00010 * A CARRIAGE RETURN + 00011 * LINEFEED 00012 * 00013 ************************* 00014 * 00015 XPCR EQU $4F91 00016 PCRLF EQU $4F8A 00017 CCODE EQU $5D0C 00018 ORG $5F75 00019 PCRSND PSHS A 00020 LDA CCODE GET CARRIAGE RETURN CODE 00021 CMPA #0 IS IT CARRIAGE RETURN ONLY? 00022 BEQ PCS1 GO IF YES 00023 JSR PCRLF SEND BOTH 00024 BRA PCS2 00025 PCS1 JSR XPCR SEND CR ONLY 00026 PCS2 PULS A 00027 ZEND RTS 00028 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * SPP.ASM 00004 * MDJ 01-25-91 00005 * 00006 * "SET PRINT PARAMETERS" 00007 * OPERATOR 00008 * 00009 ************************* 00010 * 00011 PTGL EQU $5B7A 00012 LTGL EQU $5BC2 00013 TTGL EQU $5BF1 00014 BTGL EQU $5C18 00015 CTGL EQU $5C9A 00016 SEXIT EQU $5D0F 00017 SMENU EQU $5D24 00018 KEY EQU $5041 00019 ORG $5F0E 00020 SPP PSHS X 00021 JSR SMENU PUT MENU TO SCREEN 00022 SGKY JSR KEY 00023 PULU X 00024 CMPX #112 LOWER CASE P 00025 BEQ SGKY1 00026 CMPX #80 UPPER CASE P 00027 BEQ SGKY1 00028 CMPX #108 LOWER CASE L 00029 BEQ SGKY2 00030 CMPX #76 UPPER CASE L 00031 BEQ SGKY2 00032 CMPX #116 LOWER CASE T 00033 BEQ SGKY3 00034 CMPX #84 UPPER CASE T 00035 BEQ SGKY3 00036 CMPX #98 LOWER CASE B 00037 BEQ SGKY4 00038 CMPX #66 UPPER CASE B 00039 BEQ SGKY4 00040 CMPX #99 LOWER CASE C 00041 BEQ SGKY5 00042 CMPX #67 UPPER CASE C 00043 BEQ SGKY5 00044 CMPX #120 LOWER CASE X 00045 BEQ SGKY6 00046 CMPX #88 UPPER CASE X 00047 BEQ SGKY6 00048 BRA SGKY RETURN FOR NEXT KEYPRESS 00049 SGKY1 JSR PTGL 00050 BRA SGKY 00051 SGKY2 JSR LTGL 00052 BRA SGKY 00053 SGKY3 JSR TTGL 00054 BRA SGKY 00055 SGKY4 JSR BTGL 00056 BRA SGKY 00057 SGKY5 JSR CTGL 00058 BRA SGKY 00059 SGKY6 PULS X 00060 JMP SEXIT 00061 ZEND NOP 00062 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * SEXIT.ASM 00004 * MDJ 01-25-91 00005 * 00006 * EXITS FROM PRINT 00007 * PARAMETERS MENU 00008 * 00009 ************************* 00010 * 00011 PCLS EQU $3E4F 00012 RSCR EQU $5B63 00013 XCURS EQU $F3 00014 YCURS EQU $F5 00015 XCURSH EQU $56CE 00016 YCURSH EQU $56D0 00017 ORG $5D0F 00018 SEXIT PSHS X 00019 LDX XCURSH RESTORE X-LOCATION 00020 STX XCURS 00021 LDX YCURSH RESTORE Y-LOCATION 00022 STX YCURS 00023 JSR PCLS GO CLEAR THE SCREEN 00024 JSR RSCR MOVE MAIN MENU FROM HIGH MEMORY 00025 PULS X 00026 ZEND RTS 00027 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * BTGL.ASM 00004 * MDJ 01-25-91 00005 * 00006 * BAUD RATE TOGGLE 00007 * 00008 ************************* 00009 * 00010 XCURS EQU $F3 00011 YCURS EQU $F5 00012 DOTF EQU $4F46 00013 SPACE EQU $4EBD 00014 BCODE EQU $96 00015 ORG $5C18 00016 BTGL PSHS A,B 00017 LDA BCODE GET BAUD RATE CODE 00018 CMPA #1 IS IT 9600 BAUD? 00019 BEQ BT96 GO IF YES 00020 CMPA #7 IS IT 4800 BAUD? 00021 BEQ BT48 GO IF YES 00022 CMPA #18 IS IT 2400 BAUD? 00023 BEQ BT24 GO IF YES 00024 CMPA #41 IS IT 1200 BAUD 00025 BEQ BT12 GO IF YES 00026 CMPA #87 IS IT 600 BAUD? 00027 BEQ BT6 GO IF YES 00028 LDA #87 SET 600 BAUD 00029 BRA BTA 00030 BT6 LDA #41 SET 1200 BAUD 00031 BRA BTA 00032 BT12 LDA #18 SET 2400 BAUD 00033 BRA BTA 00034 BT24 LDA #7 SET 4800 BAUD 00035 BRA BTA 00036 BT48 LDA #1 SET 9600 BAUD 00037 BRA BTA 00038 BT96 LDA #180 SET 300 BAUD 00039 BTA STA BCODE 00040 BTGLT LDD #120 SET Y-LOCATION 00041 STD YCURS 00042 LDD #120 SET X-LOCATION 00043 STD XCURS 00044 JSR SPACE CLEAR FIELD 00045 JSR SPACE 00046 JSR SPACE 00047 JSR SPACE 00048 STD XCURS RESET X-LOCATION 00049 LDA BCODE LOAD BAUD RATE CODE 00050 CMPA #1 IS IT 9600 BAUD? 00051 BEQ BTT96 GO IF YES 00052 CMPA #7 IS IT 4800 BAUD? 00053 BEQ BTT48 GO IF YES 00054 CMPA #18 IS IT 2400 BAUD? 00055 BEQ BTT24 GO IF YES 00056 CMPA #41 IS IT 1200 BAUD? 00057 BEQ BTT12 GO IF YES 00058 CMPA #180 IS IT 300 BAUD? 00059 BEQ BTT3 GO IF YES 00060 LDD #600 TYPE 600 BAUD 00061 BRA BTB 00062 BTT3 LDD #300 TYPE 300 BAUD 00063 BRA BTB 00064 BTT12 LDD #1200 TYPE 1200 BAUD 00065 BRA BTB 00066 BTT24 LDD #2400 TYPE 2400 BAUD 00067 BRA BTB 00068 BTT48 LDD #4800 TYPE 4800 BAUD 00069 BRA BTB 00070 BTT96 LDD #9600 TYPE 9600 BAUD 00071 BTB PSHU A,B 00072 JSR DOTF TYPE BAUD RATE TO SCREEN 00073 PULS A,B 00074 ZEND RTS 00075 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * LTGL.ASM 00004 * MDJ 01-25-91 00005 * 00006 * LEFT MARGIN TOGGLE 00007 * 00008 ************************* 00009 * 00010 XCURS EQU $F3 00011 YCURS EQU $F5 00012 DOTF EQU $4F46 00013 SPACE EQU $4EBD 00014 ORG $5BC2 00015 LTGL PSHS A,B 00016 INC LCODE INCREMENT LEFT MARGIN CODE 00017 LDA LCODE 00018 CMPA #12 OUT OF RANGE? 00019 BLO LTGLT GO IF NO 00020 CLR LCODE RESET LEFT MARGIN CODE 00021 LTGLT LDD #72 SET Y-LOCATION 00022 STD YCURS 00023 LDD #128 SET X-LOCATION 00024 STD XCURS 00025 JSR SPACE CLEAR FIELD 00026 JSR SPACE 00027 STD XCURS RESET X-LOCATION 00028 CLRA 00029 LDB LCODE 00030 PSHU A,B 00031 JSR DOTF TYPE LEFT MARGIN TO SCREEN 00032 PULS A,B 00033 RTS 00034 LCODE RMB 1 00035 ZEND NOP 00036 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * RSCR.ASM 00004 * MDJ 01-24-91 00005 * 00006 * COPY SCREEN FROM 00007 * HIGH MEMORY 00008 * 00009 ************************* 00010 * 00011 CMV EQU $4C89 00012 ORG $5B63 00013 RSCR PSHS X 00014 LDX #$6800 HIGH MEMORY ADDRESS 00015 PSHU X 00016 LDX #$0A00 SCREEN ADDRESS 00017 PSHU X 00018 LDX #6144 SCREEN LENGTH 00019 PSHU X 00020 JSR CMV GO COPY SCREEN 00021 PULS X 00022 ZEND RTS 00023 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * GNP.ASM 00004 * MDJ 01-23-91 00005 * 00006 * "GET NEW PAGE" OPERATOR 00007 * 00008 ************************* 00009 * 00010 XCURS EQU $F3 00011 YCURS EQU $F5 00012 XCURSH EQU $56CE 00013 YCURSH EQU $56D0 00014 TYPF EQU $4F02 00015 CPRMT1 EQU $571D 00016 CPRMT2 EQU $5747 00017 GPAGE EQU $58E3 00018 GETNUM EQU $5A89 00019 PNV EQU $598B 00020 PPN EQU $57B6 00021 PTV EQU $59F6 00022 PMOVET EQU $55F8 00023 PPTT EQU $57EE 00024 ORG $5AA9 00025 GNP PSHS A,X 00026 JSR CPRMT1 GO CLEAR PROMPTS 00027 JSR CPRMT2 00028 LDX XCURS SAVE X-LOCATION 00029 STX XCURSH 00030 LDX YCURS SAVE Y-LOCATION 00031 STX YCURSH 00032 CLR XCURS SET X-LOCATION 00033 CLR XCURS+1 00034 LDX #176 SET Y-LOCATION 00035 STX YCURS 00036 LDX #MSG2E MESSAGE ADDRESS 00037 PSHU X 00038 LDX MSGN2E CHARACTER COUNT 00039 PSHU X 00040 JSR TYPF GO TYPE MESSAGE TO SCREEN 00041 JSR GETNUM GO GET NEW PAGE NUMBER 00042 PULU X GET FLAG FROM U-STACK 00043 CMPX #0 IS IT FALSE? 00044 BEQ GNP2 GO IF YES 00045 CMPX #$FFFF IS IT 16-BIT? 00046 BEQ GNP1 GO IF YES 00047 PULU X DROP 32-BIT HIGH BYTES 00048 GNP1 JSR GPAGE GO GET NEW PAGE 00049 LDX PNV GET NEW PAGE NUMBER 00050 PSHU X 00051 JSR PPN GO TYPE NEW PAGE NUMBER TO SCREEN 00052 CLRA RESET THIRD CODE 00053 STA PTV 00054 JSR PMOVET TOP THIRD 00055 JSR PPTT 00056 BRA GNP3 00057 GNP2 CLR XCURS RESET X-LOCATION 00058 CLR XCURS+1 00059 LDX #184 RESET Y-LOCATION 00060 STX YCURS 00061 LDX #MSG1F MESSAGE ADDRESS 00062 PSHU X 00063 LDX MSGN1F CHARACTER COUNT 00064 PSHU X 00065 JSR TYPF GO TYPE MESSAGE TO SCREEN 00066 GNP3 LDX XCURSH RESTORE X-LOCATION 00067 STX XCURS 00068 LDX YCURSH RESTORE Y-LOCATION 00069 STX YCURS 00070 PULS A,X 00071 RTS 00072 MSGN2E FDB 17 00073 MSG2E FCC 'New Page Number? ' 00074 MSGN1F FDB 26 00075 MSG1F FCC 'This is not a valid number' 00076 ZEND NOP 00077 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * RARW.ASM 00004 * MDJ 01-23-91 00005 * 00006 * MOVES THE DISPLAY 00007 * FORWARD ONE PAGE 00008 * 00009 ************************* 00010 * 00011 MAXPP EQU $3104 00012 PTV EQU $59F6 00013 PNV EQU $598B 00014 PMOVET EQU $55F8 00015 PPN EQU $57B6 00016 PPTT EQU $57EE 00017 GPAGE EQU $58E3 00018 ORG $5A63 00019 RARW PSHS A,X 00020 LDX PNV LOAD CURRENT PAGE NUMBER 00021 CMPX MAXPP IS IT MAXIMUM PAGE NUMBER? 00022 BEQ RA1 GO IF YES 00023 LEAX 1,X INCREMENT PAGE NUMBER 00024 PSHU X 00025 JSR GPAGE GO GET NEW PAGE 00026 LDX PNV GET NEW PAGE NUMBER 00027 PSHU X 00028 JSR PPN GO TYPE PAGE NUMBER TO SCREEN 00029 CLRA RESET THIRD CODE 00030 STA PTV 00031 JSR PMOVET TOP THIRD 00032 JSR PPTT 00033 RA1 PULS A,X 00034 ZEND RTS 00035 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * DNARW.ASM 00004 * MDJ 01-23-91 00005 * 00006 * MOVES THE DISPLAY DOWN 00007 * ONE THIRD PAGE 00008 * 00009 ************************* 00010 * 00011 MAXPP EQU $3104 00012 PTV EQU $59F6 00013 PNV EQU $598B 00014 PNTV EQU $598D 00015 PMOVET EQU $55F8 00016 PMOVEM EQU $5603 00017 PMOVEB EQU $560E 00018 PPN EQU $57B6 00019 PPTT EQU $57EE 00020 PPTM EQU $5827 00021 PPTB EQU $5860 00022 GPAGE EQU $58E3 00023 ORG $59F9 00024 DNARW PSHS A,X 00025 LDA PTV GET CURRENT THIRD CODE 00026 CMPA #2 IS IT BOTTOM THIRD? 00027 BEQ DA2 GO IF YES 00028 INCA INCREMENT THIRD CODE 00029 STA PTV 00030 CMPA #1 IS IT MIDDLE THIRD? 00031 BEQ DA1 GO IF YES 00032 JSR PMOVEB BOTTOM THIRD 00033 JSR PPTB 00034 BRA DA3 00035 DA1 JSR PMOVEM MIDDLE THIRD 00036 JSR PPTM 00037 BRA DA3 00038 DA2 LDX PNV LOAD CURRENT PAGE NUMBER 00039 CMPX MAXPP IS IT MAXIMUM PAGE NUMBER? 00040 BEQ DA3 GO IF YES 00041 CLR PTV RESET THIRD CODE 00042 LEAX 1,X INCREMENT PAGE NUMBER 00043 PSHU X 00044 JSR GPAGE GO GET NEW PAGE 00045 LDX PNV GET NEW PAGE NUMBER 00046 PSHU X 00047 JSR PPN GO TYPE PAGE NUMBER TO SCREEN 00048 JSR PMOVET TOP THIRD 00049 JSR PPTT 00050 DA3 PULS A,X 00051 ZEND RTS 00052 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * UPARW.ASM 00004 * MDJ 01-23-91 00005 * 00006 * MOVES THE DISPLAY UP 00007 * ONE THIRD PAGE 00008 * 00009 ************************* 00010 * 00011 PNV EQU $598B 00012 PNTV EQU $598D 00013 PMOVET EQU $55F8 00014 PMOVEM EQU $5603 00015 PMOVEB EQU $560E 00016 PPN EQU $57B6 00017 PPTT EQU $57EE 00018 PPTM EQU $5827 00019 PPTB EQU $5860 00020 GPAGE EQU $58E3 00021 ORG $59B4 00022 UPARW PSHS A,X 00023 LDA PTV GET CURRENT THIRD CODE 00024 BEQ UA2 GO IF TOP THIRD 00025 DECA DECREMENT THIRD CODE 00026 STA PTV 00027 BNE UA1 GO IF MIDDLE THIRD 00028 JSR PMOVET TOP THIRD 00029 JSR PPTT 00030 BRA UA3 00031 UA1 JSR PMOVEM MIDDLE THIRD 00032 JSR PPTM 00033 BRA UA3 00034 UA2 LDX PNV LOAD CURRENT PAGE NUMBER 00035 CMPX #1 IS IT PAGE NUMBER ONE? 00036 BEQ UA3 GO IF YES 00037 LDA #3 RESET THIRD CODE 00038 STA PTV 00039 LEAX -1,X DECREMENT PAGE NUMBER 00040 PSHU X 00041 JSR GPAGE GO GET NEW PAGE 00042 LDX PNV GET NEW PAGE NUMBER 00043 PSHU X 00044 JSR PPN GO TYPE PAGE NUMBER TO SCREEN 00045 JSR PMOVEB BOTTOM THIRD 00046 JSR PPTB 00047 UA3 PULS A,X 00048 RTS 00049 PTV RMB 2 00050 ZEND NOP 00051 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PLN.ASM 00004 * (+n1 -- +n2) 00005 * MDJ 02-23-91 00006 * 00007 * TRANSLATES PAGE NUMBER 00008 * +n1 ON THE TOP OF THE 00009 * U-STACK INTO THE PAGE 00010 * LOCATION NUMBER +n2 FOR 00011 * THE DISK BEING READ 00012 * 00013 ************************* 00014 * 00015 ONEPL EQU $49CE 00016 MINUS EQU $48BC 00017 MINP EQU $3100 00018 ORG $58D3 00019 PLN PSHS X 00020 JSR ONEPL PAGE NUMBER +1 00021 LDX MINP DISK MIN. PAGE NUMBER 00022 PSHU X 00023 JSR MINUS GO SUBTRACT 00024 PULS X 00025 ZEND RTS 00026 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * CKPGNV.ASM 00004 * (+n -- +n flag) 00005 * MDJ 01-23-91 00006 * 00007 * CHECKS IF PAGE NUMBER 00008 * +n ON THE TOP OF THE 00009 * U-STACK IS A VALID PAGE 00010 * NUMBER FOR THE 00011 * DOCUMENT BEING READ 00012 * 00013 * flag IS TRUE (#$FFFF) 00014 * IFF PAGE NUMBER IS 00015 * VALID 00016 * 00017 ************************* 00018 * 00019 MAXPP EQU $3104 00020 ORG $5899 00021 CKPGNV PSHS X 00022 PULU X GET PAGE NUMBER 00023 PSHU X RE-PUSH IT 00024 CMPX #1 BELOW MINIMUM PAGE NUMBER? 00025 BLO CKV1 GO IF YES 00026 CMPX MAXPP ABOVE MAXIMUM PAGE NUMBER? 00027 BHI CKV1 GO IF YES 00028 LDX #$FFFF TRUE FLAG 00029 BRA CKV2 00030 CKV1 LDX #0 FALSE FLAG 00031 CKV2 PSHU X 00032 PULS X 00033 ZEND RTS 00034 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PPTM.ASM 00004 * MDJ 01-23-91 00005 * 00006 * TYPES THE PAGE MIDDLE 00007 * THIRD MESSAGE TO THE 00008 * SCREEN 00009 * 00010 ************************* 00011 * 00012 XCURS EQU $F3 00013 YCURS EQU $F5 00014 TYPE EQU $4EF1 00015 XCURSH EQU $56CE 00016 YCURSH EQU $56D0 00017 ORG $5827 00018 PPTM PSHS X 00019 LDX XCURS SAVE X-LOCATION 00020 STX XCURSH 00021 LDX YCURS SAVE Y-LOCATION 00022 STX YCURSH 00023 LDX #44 SET X-LOCATION 00024 STX XCURS 00025 LDX #136 SET Y-LOCATION 00026 STX YCURS 00027 LDX #MSGTM MESSAGE ADDRESS 00028 PSHU X 00029 LDX MSGNTM CHARACTER COUNT 00030 PSHU X 00031 JSR TYPE GO TYPE TO SCREEN 00032 LDX XCURSH RESTORE X-LOCATION 00033 STX XCURS 00034 LDX YCURSH RESTORE Y-LOCATION 00035 STX YCURS 00036 PULS X 00037 RTS 00038 MSGNTM FDB 6 00039 MSGTM FCC 'Middle' 00040 ZEND NOP 00041 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PPN.ASM 00004 * MDJ 01-22-91 00005 * 00006 * CLEARS THE PAGE NUMBER 00007 * FIELD AND TYPES THE 00008 * PAGE NUMBER ON TOP OF 00009 * THE U-STACK 00010 * 00011 ************************* 00012 * 00013 XCURS EQU $F3 00014 YCURS EQU $F5 00015 SPCES EQU $4EC8 00016 DOTF EQU $4F46 00017 XCURSH EQU $56CE 00018 YCURSH EQU $56D0 00019 ORG $57B6 00020 PPN PSHS X 00021 LDX XCURS SAVE X-LOCATION 00022 STX XCURSH 00023 LDX YCURS SAVE Y-LOCATION 00024 STX YCURSH 00025 LDX #20 SET X-LOCATION 00026 STX XCURS 00027 LDX #136 SET Y-LOCATION 00028 STX YCURS 00029 LDX #4 # OF SPACES 00030 PSHU X 00031 JSR SPCES GO CLEAR FIELD 00032 LDX #20 RESET X-LOCATION 00033 STX XCURS 00034 LDX #136 RESET Y-LOCATION 00035 STX YCURS 00036 JSR DOTF GO TYPE PAGE NUMBER 00037 LDX XCURSH RESTORE X-LOCATION 00038 STX XCURS 00039 LDX YCURSH RESTORE Y-LOCATION 00040 STX YCURS 00041 PULS X 00042 ZEND RTS 00043 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * CPRMT2.ASM 00004 * MDJ 01-22-91 00005 * 00006 * CLEARS PROMPT 00007 * LOCATION #2 00008 * 00009 ************************* 00010 * 00011 XCURS EQU $F3 00012 YCURS EQU $F5 00013 SPCES EQU $4EC8 00014 XCURSH EQU $56CE 00015 YCURSH EQU $56D0 00016 ORG $5747 00017 CPRMT2 PSHS X 00018 LDX XCURS SAVE X-LOCATION 00019 STX XCURSH 00020 LDX YCURS SAVE Y-LOCATION 00021 STX YCURSH 00022 CLR XCURS SET X-LOCATION 00023 CLR XCURS+1 00024 LDX #184 00025 STX YCURS 00026 LDX #63 00027 PSHU X 00028 JSR SPCES GO CLEAR PROMPT 00029 LDX XCURSH RESTORE X-LOCATION 00030 STX XCURS 00031 LDX YCURSH RESTORE Y-LOCATION 00032 STX YCURS 00033 PULS X 00034 ZEND RTS 00035 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PRMT2B.ASM 00004 * MDJ 01-22-91 00005 * 00006 * PRINTS PROMPT "B" AT 00007 * PROMPT LOCATION #2 00008 * 00009 ************************* 00010 * 00011 XCURS EQU $F3 00012 YCURS EQU $F5 00013 TYPF EQU $4F02 00014 XCURSH EQU $56CE 00015 YCURSH EQU $56D0 00016 ORG $56D3 00017 PRMT2B PSHS X 00018 LDX XCURS SAVE X-LOCATION 00019 STX XCURSH 00020 LDX YCURS SAVE Y-LOCATION 00021 STX YCURSH 00022 CLR XCURS SET X-LOCATION 00023 CLR XCURS+1 00024 LDX #184 00025 STX YCURS 00026 LDX #MSGB MESSAGE ADDRESS 00027 PSHU X 00028 LDX MSGNB CHARACTER COUNT 00029 PSHU X 00030 JSR TYPF GO TYPE TO SCREEN 00031 LDX XCURSH RESTORE X-LOCATION 00032 STX XCURS 00033 LDX YCURSH RESTORE Y-LOCATION 00034 STX YCURS 00035 PULS X 00036 RTS 00037 MSGNB FDB 24 00038 MSGB FCC 'Press Any Key When Ready' 00039 ZEND NOP 00040 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PLXLAT.ASM 00004 * (p1 -- u1 u2 u3 ) 00005 * MDJ 01-18-91 00006 * 00007 * TRANSLATES THE PAGE 00008 * LOCATION NUMBER pl 00009 * (1-52) INTO THE DRIVE 00010 * NUMBER u1, TRACK 00011 * NUMBER u2, AND SECTOR 00012 * NUMBER u3. 00013 * 00014 ************************* 00015 * 00016 ONEMN EQU $49E6 00017 MULT EQU $48CB 00018 DIVM EQU $4905 00019 SWAP EQU $4841 00020 ONEPL EQU $49CE 00021 ORG $5657 00022 PLXLAT PSHS A,B,X 00023 LDD #0 DRIVE NUMBER 00024 JSR ONEMN PAGE LOCATION NUMBER MINUS 1 00025 LDX #12 12 SECTORS PER PAGE 00026 PSHU X 00027 JSR MULT GO MULTIPLY = RAW SECTOR NUMBER 00028 PULU X 00029 PSHU A,B DRIVE NUMBER TO U-STACK 00030 PSHU X RAW SECTOR NUMBER 00031 LDX #18 18 SECTORS PER TRACK 00032 PSHU X 00033 JSR DIVM GO DIVIDE 00034 JSR SWAP REMAINDER TO TOP OF U-STACK 00035 JSR ONEPL REMANIDER PLUS 1 = SECTOR # 00036 PULS A,B,X 00037 ZEND RTS 00038 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * PMOVE.ASM 00004 * MDJ 01-17-91 00005 * 00006 * PMOVET MOVES THE TOP 00007 * THIRD OF THE PAGE TO 00008 * THE SCREEN 00009 * 00010 * PMOVEM MOVES THE MIDDLE 00011 * THIRD OF THE PAGE TO 00012 * THE SCREEN 00013 * 00014 * PMOVEB MOVES THE BOTTOM 00015 * THIRD OF THE PAGE TO 00016 * THE SCREEN 00017 * 00018 ************************* 00019 * 00020 BAKCOL EQU $B3 00021 XCURS EQU $F3 00022 YCURS EQU $F5 00023 TYPF EQU $4F02 00024 ORG $55F8 00025 PMOVET PSHS A,B,X,Y 00026 LDY #$2200 TOP THIRD ADDRESS 00027 BSR PMOVE 00028 PULS A,B,X,Y 00029 RTS 00030 PMOVEM PSHS A,B,X,Y 00031 LDY #$2600 MIDDLE THIRD ADDRESS 00032 BSR PMOVE 00033 PULS A,B,X,Y 00034 RTS 00035 PMOVEB PSHS A,B,X,Y 00036 LDY #$2A00 BOTTOM THIRD ADDRESS 00037 BSR PMOVE 00038 PULS A,B,X,Y 00039 RTS 00040 PMOVE LDX #$0A00 SCREEN ADDRESS 00041 LDB BAKCOL CLEAR SCREEN TEXT AREA 00042 LDA #$55 00043 MUL 00044 PMVA STB ,X+ 00045 CMPX #$1A00 END OF SCREEN TEXT AREA? 00046 BNE PMVA GO IF NO 00047 CLR XCURS SET CURSOR TO TOP OF SCREEN 00048 CLR XCURS+1 00049 CLR YCURS 00050 CLR YCURS+1 00051 PSHU Y TEXT ADDRESS TO U-STACK 00052 LDX #1024 NUMBER OF CHARACTERS TO U-STACK 00053 PSHU X 00054 JSR TYPF GO TYPE TO SCREEN 00055 ZEND RTS 00056 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00001 ************************* 00002 * 00003 * MENU.ASM 00004 * MDJ 01-17-91 00005 * 00006 * PUTS MENU TO SCREEN 00007 * 00008 ************************* 00009 * 00010 XCURS EQU $F3 00011 YCURS EQU $F5 00012 TYPF EQU $4F02 00013 ORG $5423 00014 MENU PSHS A,B,X,Y 00015 LDY #136 FIRST YCURS POSITION 00016 LDX MMSGN1 MENU MESSAGE #1 00017 LDD #MMSG1 00018 BSR MNUPRT GO PUT TO SCREEN 00019 LEAY 8,Y INCREMENT YCURS 00020 LDX MMSGN2 MENU MESSAGE #2 00021 LDD #MMSG2 00022 BSR MNUPRT GO PUT TO SCREEN 00023 LEAY 8,Y INCREMENT YCURS 00024 LDX MMSGN3 MENU MESSAGE #3 00025 LDD #MMSG3 00026 BSR MNUPRT GO PUT TO SCREEN 00027 LEAY 8,Y INCREMENT YCURS 00028 LDX MMSGN4 MENU MESSAGE #4 00029 LDD #MMSG4 00030 BSR MNUPRT GO PUT TO SCREEN 00031 LEAY 8,Y INCREMENT YCURS 00032 LDX MMSGN5 MENU MESSAGE #5 00033 LDD #MMSG5 00034 BSR MNUPRT GO PUT TO SCREEN 00035 PULS A,B,X,Y 00036 RTS 00037 MNUPRT CLR XCURS CLEAR X-CURSOR 00038 CLR XCURS+1 00039 STY YCURS SET Y-CURSOR 00040 PSHU A,B ADDRESS 00041 PSHU X NUMBER OF CHARACTERS 00042 JSR TYPF GO TYPE MESSAGE 00043 RTS 00044 MMSGN1 FDB 60 00045 MMSG1 FCC 'Page Third UP ARROW - Up One Third Page' 00046 MMSGN2 FDB 64 00047 MMSG2 FCC 'S - Set Printer Parameters DOWN ARROW - Down One Third Page' 00048 MMSGN3 FDB 58 00049 MMSG3 FCC 'P - Print Current Page LEFT ARROW - Back One Page' 00050 MMSGN4 FDB 62 00051 MMSG4 FCC 'R - Print a Range of Pages RIGHT ARROW - Forward One Page' 00052 MMSGN5 FDB 63 00053 MMSG5 FCC 'D - Print Entire Document G - Go to New Page X - Exit' 00054 ZEND NOP 00055 END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ е& к ˆ& г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] юя+џgMZB_WxHqNrSЧDсRnQє‹KQAъX*YžC‚G}IƒOŸT:LrPdVДUѓ '$- ,&Ÿ!Ÿ#ютe†—+юиўЙ&Œž!0Œž)Œž!ўё8, з,эЛ%"0щ С# ,Р'0Z' 0Z& ,0…9 ,X јэSK9 -' 2K”ёюz ,' +1+–,J'#цz40Œю5ХЦШЩЮкжУ '& {Ÿ)9+Oц€Œь ,&Ÿ) 0+˜ю5'џjЎ„ ,& '&>1џM&ўЫ 2”2џ*Oц„0џ# '0Е 2Оn„&лц„џџ &бІ„эш є™нBўœ,†—. '$„нB #' z“'— Ь4žB5&э# ('§Щ~Ь/4ьЄ' §ЗІфРьЄн1%lфja&ч5†'0ц„Ї„Ё„& LЇ„Ё„&ч„С?&Ц EМ'ї4žГ&ю5ј ј#45%%9'юƒ"†=ТояЅ9ŽZэ0&ї9Ц§Ьж0Ъ€з09Ь Ь€0†Ÿ)†_з'ж0Фз09Ц_з0-9ї -93чž 3чС“M& С' С 'С'Ц ВчФ9ы4H'%ыn,џpы`џh4ќвŸ!ў#ёCž)Ќф#я5ыь•ё– Юь‹ё‰9ќЉ0ŒG1эBOж8-ж9)ж7%ж6!§јќ‹3чKЦ41э#ьС jф&ј5ќrьФ4FыћOюф­Єь35ЦСТDаCУийегPУ†Lі"'4оž}^' X'н}5ёCЦ ŒЦ ќЙё,ќ!ъФ%ы9†PѕъќъГ%н4ъ4pЃb"вцfЎgюiяfёuŽў€4ъp0&є5№ъg'ўmћ9тья4v +) 2425+&( 0'$0Œ4“'–1 " %ьŠ…5іыhь>ьŽ34оІР„'23ЦьфЃС+№Ѓb$ыэb! х5`ƒ3$ ыЕ“'У32 2‰ Ж0цЖŽЇ„ўяC2шЬщ^ьAн8ЎDŸ:Ÿ<ЎHŸ>ІФ—(цCн6ЎJ0ŸB3Lп@№єЏO'5i[žBH& ю#3_я#&Йl$мBџ$ '‹0ъШ0Œъw BRK @ ( .'v.ž)4žBќ%5Ÿ)њv,Œ0OЌЄ'1%LZ&і\9 Ц oЂZ&ћ9ЎЄ'І"Ї„1%Z&ѓ9Ц1хb9Ц1хe9Ї„Ё„&5†?Ї„Ё„&-я#9‹лЦ=1ЅЏЄІ„Ї"Ьэ#9ЯЎЄ'І„Ї"†?Ї„1%Z&я )—ЦњиžB†?ЁЄ'ђ5оB!OЊ ' +сœ%'ž%†š–3ЗŽž4Пž<о>о@м6žB4ž:м85‰ЦџзЦз9 /#І 'ч'ј0Œ1ц€'с?&ј €%*Ц^'6Э'.„?'('$ц?Х@'ЪŒФФ n~­Н`%„0?ц†Сџ'ФqІ?Ц=0Œ9ц†*ц?Фъ†ФT0Œ9ц…%TTTTФ0Œ ц…O0ѕ­‹п%9-1'ь0 шц OŒьЁ45 ЊьЁ Іц –7ќ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— зц?–'ч9†џ—0юФ -ФХ'Ър|"&-‰CLЭfoЭUГКЭЩ&$„†+Œ†-Œ†[Œ†]Œ†#Œ†,Œ†TŒ†=Œ†/цьо п&Ѓ†џŒ†ў4сгІфL'ЬM53Х9ж94†B ж84†A м84†DТц?(53Ы9>ц  2ьЁ4* ьфCSУњо ж‰TTTTФ0сbю…0ŒTІ…џDXYUS†>Œ†< +З—ц[ѓўU щўU0Œхў,PCв&ў+§‹ џџ!"џ#$%'(џ)*+,MLџџabџKtџuJ{|NOPQRSTUVWXYZ[\]wxyz}~€џIHGvFџE-џџ./џ01245џ67џ89џџ:;џ<=>@AџBCџDФийегPУППСТCУDаППППџём[Ц ŒЦм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Цжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ’2ŒјŠЃ†:—†B—€†P— l,0Œ йжЗDISK ZBUG 01.00.0АCOPYRIGHT (C) 1983 BY MICROSOFд12-JUN-8Г40џe€‹5–43џU3Ы5nФИ_o€Z&ћ9† O4žC† ' І€Ÿ &† Ёф'чІ2a4—5‘0%:IˆFћ9A%ћ[ ёО'ѓ4 ž0Ÿ54ж'ьZ&ћ5„Ц†_ w& Д4"5'& жС" O]9в0Œ]ў9C9NONAMEБžЬ—џj'8$!™‰%0401Œ*†жSцЄФІЄDDDDћ5А џ@' $їџn$ђџu †9AhBiD`XqYrUsStPCUCCZDP[PCROЎbZыф1ЅŒ4цЄ'1!Фсa&ыІ Ё€&тZ&ї5–4_юЁЁ '\сф&ѕћ2a9о+ SзSX&ї0—90†O4І€ # ?M*єmр&49oтІ€„ ч]'І€*ќZ&љ94‰0ІыЫ5 Ъ†*Œ†0Œ†QŒ† Œ† † 4G +( '  v'Ь „' '  ' i N5ЧџФ–„&ї ѓ]'І‚ 'ZЎ†Г  9ѕ&ќZ'ј40њ№І€Z&љ5” 'з&ќ9цФІ€‡Z&љ94Ќ0ŒЦЁ€' 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љ‹ŸŸ94vœ'Ќf' "  3Ы0‹Œ5іІ€ЇР1?&ј903AІ‚ЇТ1?&ј9† Ї€Z&ћ94vџ‡†џ—ўm5іг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гŒ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є‰†Ї„) w'§І40єv†Ї„&–†5І&)†5с‰н‰9 w'§Ќ4—†0єH†Ї„ƒ5“ю‰ ъцvјЏџˆ Ь4`џ-џЇM&џОџЙуbZ ъL&cџЋџЈнB '.џ‚&Pюфџ–џ‘6ЎфŸ3_п0Œјcољsј[ољkџ65рSYMTBL: FIRSTН LASTНџ9ЇФЁР&0&ѓ9Ц ŒЦџjўЕOџKьbЃdУџOьdџH†џџ1O_џ<ьфџ7 'ўг5ЖІРџ0&ї9ŽЦ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ћП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! &<ƒ= € €,€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТХТХЧУЦУШФТШФХХУУФФУФФХЧџџџџџџџџџџџџџџџ*УУЦУФУФФФФ5ТФЦТФУХ=ЧХХХТCDTASM BIN ŠBUG BIN OS BIN&ROS BASиRMAIN ASMџ)) )SCRDVD ASMџ+  MENU ASMџLLPAGEIN ASMџ,%%PMOVE ASMџўўSSECT ASMџ-++PLXLAT ASMџІІPRMT1A ASMџ.eePRMT2B ASMџffCPRMT1 ASMџ/ааCPRMT2 ASMџааPRMT2C ASMџ0aaPPN ASMџННPPTT ASMџ1mmPPTM ASMџppPPTB ASMџ2ppCKPGNV ASMџџџCKPGN ASMџ3PLN ASMџ--GPAGE ASMџ4Њ ЊUPARW ASMџDNARW ASMџЯЯLARW ASMџ6RARW ASMџGETNUM ASMџ7--GNP ASMџ eeSSCR ASMџ8ООRSCR ASMџ РРPTGL ASMџ9яяLTGL ASMџ  TTGL ASMџ:BTGL ASMџ 88CTGL ASMџ;bbSEXIT ASMџ DDSMENU ASMџ<ІІSPP ASMџPCRSND ASMџvvPRPN ASMџ>..PHEAD ASMџЅЅPPAGE ASMџ?yyRDY ASMџммPRANGE ASMџ@ŒŒCRANGE ASMџллDRANGE ASMџAииSRANGE ASMџќ ќOSCR ASMџBaaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;€)€]€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аППППџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ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ЮН