EXEC_MENU: EQU >017C $DSK_LOOKUP: EQU >0000 $DSK_OPEN: EQU >0001 $DSK_DEL: EQU >0002 $DSK_FORMAT: EQU >0003 $DSK_READ: EQU >0004 $DSK_WRITE: EQU >0005 $DSK_ABS_R: EQU >0006 $DSK_ABS_W: EQU >0007 $DSK_CLOSE: EQU >0008 $DSK_REWIND: EQU >0009 $DELLIN EQU >1B13 PFLAG EQU >2828 $LF EQU >000A $FF EQU >000C $SPACE EQU >0020 $CLREOS EQU >1B18 $C01L06 EQU >6026 $DELEOL EQU >1B0F _5_ EQU >27DD COLON EQU >27DF DOT EQU >27E1 DASH EQU >27E2 _E EQU >27E3 FF EQU >27E5 LF EQU >27E7 YES EQU >27E9 READ_FILE: EQU >27EC SOURCEFILE: EQU >2830 FILDRIVE: EQU >2831 DEST_COMMAND: EQU >2840 DESTFILE: EQU >2844 DESTDRIVE: EQU >2845 INBUF EQU >285C OUTBUF EQU >28AC ERASE EQU >29B3 QUESTION_MARK: EQU >2AAD ASK_IF_REFORMAT: EQU >2AB1 REFORMAT_DRIVE_NUMBER: EQU >2ABA BLINK EQU >2AF9 BAD_DIRECTORY: EQU >2B1D FIELD_ERROR: EQU >2B5F SHOW_VERIFY: EQU >2BC9 DRIVE_NUMBER: EQU >2BCC NUM_FILES_COPIED: EQU >2BFA _DELETED: EQU >2C0B NUM_DELETED: EQU >2C3A END_MEDIA_VERIFY: EQU >2C7D NUMBER_OF_BAD_SECTORS: EQU >2C9B _DIRECTORY_OF: EQU >2CAB LABELNAME: EQU >2CB8 DATE_CREATED: EQU >2CCF BLOCKNUM: EQU >2CE0 HEADERS EQU >2CE5 END_HEADERS: EQU >2D1C DIRECTORY_END: EQU >2D1F SCREEN_CLEAR: EQU >2D29 FUTILS AORG >2000 CLR @FNAME_FLAG ;2000 ..($ 04E0 2824 XOP @TOP,3 ;2004 ,.). 2CE0 29AC XOP @FNAME1,2 ;2008 ,.(. 2CA0 2804 JOC MENU ;200C .. 1816 MOV @_4,@FNAME_TEST ;200E . '.'. C820 27A4 27FC XOP @FNAME_TEST,2 ;2014 ,.'. 2CA0 27FC JOC MENU ;2018 .. 1810 SETO @FNAME_FLAG ;201A . ($ 0720 2824 JMP MENU ;201E .. 100D FINISH BL @CLOSE_ALL_FILES ;2020 ..!@ 06A0 2140 XOP @TOP,3 ;2024 ,.). 2CE0 29AC B @EXEC_MENU ;2028 .`.| 0460 017C COMMAND_ERROR: XOP @BAD_COMMAND,3 ;202C ,.*. 2CE0 2AFC XOP @BLINK,3 ;2030 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;2034 - (\ 2D20 285C JOC FINISH ;2038 .. 18F3 MENU XOP @FUMENU,3 ;203A ,.). 2CE0 29BE CLR @COUNT ;203E ..(& 04E0 2826 CLR R9 ;2042 .. 04C9 XOP @INBUF,4 ;2044 - (\ 2D20 285C JOC FINISH ;2048 .. 18EB VM_ENTRY_POINT: LI R3,INBUF ;204A ..(\ 0203 285C LI R2,_T_ ;204E ..'. 0202 27B4 CB *R3,@CRLF ;2052 ..'. 9813 27E6 JEQ MENU ;2056 .. 13F1 C *R3,*R2 ;2058 .. 8493 JEQ FINISH ;205A .. 13E2 BL @CLOSE_ALL_FILES ;205C ..!@ 06A0 2140 MOV *R3+,R0 ;2060 .3 C033 WHAT_COMMAND: INCT R2 ;2062 .. 05C2 MOV *R2+,R1 ;2064 .r C072 JEQ COMMAND_ERROR ;2066 .. 13E2 C R0,R1 ;2068 .@ 8040 JNE WHAT_COMMAND ;206A .. 16FB MOV *R2,R10 ;206C .. C292 CLR @SRCFIL ;206E ..(. 04E0 282E CLR @SOURCEFILE ;2072 ..(0 04E0 2830 MOV @_1_,@DSTFIL ;2076 . '.(B C820 279A 2842 CLR @DESTFILE ;207C ..(D 04E0 2844 MOVB *R3+,R0 ;2080 .3 D033 CB @DOT,R0 ;2082 . '. 9020 27E1 JNE TRIM_COMMAND ;2086 .. 160F CLR R1 ;2088 .. 04C1 SEARCH_MODIFIERS: LI R2,MODIFIERS ;208A ..'. 0202 27D6 LI R4,$DSK_OPEN ;208E .... 0204 0001 MOVB *R3+,R0 ;2092 .3 D033 WHAT_MODIFIER: SRC R4,1 ;2094 .. 0B14 MOVB *R2+,R1 ;2096 .r D072 JEQ BAD_MODIFIER ;2098 .. 1304 CB R0,R1 ;209A .@ 9040 JNE WHAT_MODIFIER ;209C .. 16FB SOC R4,R9 ;209E .D E244 JMP SEARCH_MODIFIERS ;20A0 .. 10F4 BAD_MODIFIER: MOV R9,R9 ;20A2 .I C249 JEQ COMMAND_ERROR ;20A4 .. 13C3 TRIM_COMMAND: CB @SPACE,R0 ;20A6 . '. 9020 27DE JEQ GET_ARGS ;20AA .. 1304 CB @CRLF,R0 ;20AC . '. 9020 27E6 JNE COMMAND_ERROR ;20B0 .. 16BD JMP DO_IT ;20B2 .. 1011 GET_ARGS: LI R8,SOURCEFILE ;20B4 ..(0 0208 2830 BL @GET_ARG ;20B8 .. . 06A0 20E0 CB @CRLF,R0 ;20BC . '. 9020 27E6 JEQ DO_IT ;20C0 .. 130A CB @SPACE,R0 ;20C2 . '. 9020 27DE JNE COMMAND_ERROR ;20C6 .. 16B2 LI R8,DESTFILE ;20C8 ..(D 0208 2844 BL @GET_ARG ;20CC .. . 06A0 20E0 CB @CRLF,R0 ;20D0 . '. 9020 27E6 JNE COMMAND_ERROR ;20D4 .. 16AB DO_IT XOP @STATUS_LINE,3 ;20D6 ,.+. 2CE0 2BC2 XOP @ERASE,3 ;20DA ,.). 2CE0 29B3 B *R10 ;20DE .Z 045A GET_ARG MOVB *R3+,R0 ;20E0 .3 D033 CB @SPACE,R0 ;20E2 . '. 9020 27DE JEQ GET_ARG ;20E6 .. 13FC CB @CRLF,R0 ;20E8 . '. 9020 27E6 JNE CHECK_IF_DRIVE_SPECIFIED ;20EC .. 1601 RT ;20EE .[ 045B CHECK_IF_DRIVE_SPECIFIED: CB @COLON,*R3 ;20F0 ..'. 94E0 27DF JEQ GET_FILESPEC ;20F4 .. 1303 INCT R8 ;20F6 .. 05C8 DEC R3 ;20F8 .. 0603 JMP GET_FILENAME ;20FA .. 100B GET_FILESPEC: SWPB R0 ;20FC .. 06C0 ANDI R0,>00FF ;20FE .@.. 0240 00FF S @ASCII_OFFSET,R0 ;2102 ` '. 6020 27B2 JEQ STORE_DRIVE_NUMBER ;2106 .. 1303 CI R0,$DSK_OPEN ;2108 .... 0280 0001 JNE COMMAND_ERROR ;210C .. 168F STORE_DRIVE_NUMBER: MOV R0,*R8+ ;210E .. CE00 INC R3 ;2110 .. 0583 GET_FILENAME: LI R4,$DSK_CLOSE ;2112 .... 0204 0008 GFLOOP MOVB *R3+,R0 ;2116 .3 D033 CB @CRLF,R0 ;2118 . '. 9020 27E6 JEQ PAD_FILENAME ;211C .. 130A CB @SPACE,R0 ;211E . '. 9020 27DE JEQ PAD_FILENAME ;2122 .. 1307 MOVB R0,*R8+ ;2124 .. DE00 DEC R4 ;2126 .. 0604 JNE GFLOOP ;2128 .. 16F6 MOVB *R3+,R0 ;212A .3 D033 INC @COUNT ;212C ..(& 05A0 2826 RT ;2130 .[ 045B PAD_FILENAME: MOVB @SPACE,*R8+ ;2132 . '. DE20 27DE DEC R4 ;2136 .. 0604 JNE PAD_FILENAME ;2138 .. 16FC INC @COUNT ;213A ..(& 05A0 2826 RT ;213E .[ 045B CLOSE_ALL_FILES: MOV @_8,R4 ;2140 . '. C120 27AC CLR R5 ;2144 .. 04C5 XOP R4,2 ;2146 ,. 2C84 INC R5 ;2148 .. 0585 XOP R4,2 ;214A ,. 2C84 RT ;214C .[ 045B COPY LI R14,SHOW_WHILE_COPYING ;214E ..". 020E 22A2 COC @X4000,R9 ;2152 "`'. 2260 27CE JEQ CF.Q ;2156 .. 1302 LI R14,SHOW_COPIED ;2158 ..". 020E 22AC CF.Q DECT @COUNT ;215C .`(& 0660 2826 JEQ DO_COPY ;2160 .. 1308 XOP @FIELD_ERROR,3 ;2162 ,.+_ 2CE0 2B5F XOP @BLINK,3 ;2166 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;216A - (\ 2D20 285C B @MENU ;216E .` : 0460 203A DO_COPY COC @X1000,R9 ;2172 "`'. 2260 27D0 JEQ CF.I ;2176 .% 1325 LI R10,COPY_ROUTINE ;2178 .." 020A 2220 LI R12,DONE_COPYING ;217C ..". 020C 2290 LI R1,$DSK_CLOSE ;2180 .... 0201 0008 LI R2,SRCNAME ;2184 ..(2 0202 2832 LI R3,DESTNAME ;2188 ..(F 0203 2846 LI R8,CURRENT_FILENAME ;218C ..(T 0208 2854 CLOOP MOVB *R3+,R0 ;2190 .3 D033 MOVB R0,*R8+ ;2192 .. DE00 CB @STAR,R0 ;2194 . '. 9020 27E0 JNE SOURCE_WILDCARD_CHECK ;2198 .. 1602 INC R2 ;219A .. 0582 JMP CF_OK ;219C .. 100E SOURCE_WILDCARD_CHECK: CB @STAR,*R2+ ;219E ..'. 9CA0 27E0 JNE CF_OK ;21A2 .. 160B COC @X8000,R9 ;21A4 "`'. 2260 27D4 JNE CF_OK ;21A8 .. 1608 XOP @BAD_FILENAME,3 ;21AA ,.+. 2CE0 2B80 XOP @BLINK,3 ;21AE ,.*. 2CE0 2AF9 XOP @INBUF,4 ;21B2 - (\ 2D20 285C B @MENU ;21B6 .` : 0460 203A CF_OK DEC R1 ;21BA .. 0601 JNE CLOOP ;21BC .. 16E9 B @PERFORM_OPERATION ;21BE .`&6 0460 2636 CF.I C @SOURCEFILE,@DESTFILE ;21C2 . (0(D 8820 2830 2844 JNE CFI_COOL ;21C8 .. 1608 XOP @BAD_FILENAME,3 ;21CA ,.+. 2CE0 2B80 XOP @BLINK,3 ;21CE ,.*. 2CE0 2AF9 XOP @INBUF,4 ;21D2 - (\ 2D20 285C B @MENU ;21D6 .` : 0460 203A CFI_COOL: LI R2,>0023 ;21DA ...# 0202 0023 CLR R3 ;21DE .. 04C3 CFI_LOOP: MOV @_6,R5 ;21E0 .`'. C160 27A8 MOV @SOURCEFILE,R6 ;21E4 ..(0 C1A0 2830 BL @CFI_ROUTINE ;21E8 ..". 06A0 2206 MOV @_7,R5 ;21EC .`'. C160 27AA MOV @DESTFILE,R6 ;21F0 ..(D C1A0 2844 BL @CFI_ROUTINE ;21F4 ..". 06A0 2206 AI R3,$SPACE ;21F8 .#. 0223 0020 DEC R2 ;21FC .. 0602 JNE CFI_LOOP ;21FE .. 16F0 LI R13,>0023 ;2200 ...# 020D 0023 JMP DONE_COPYING ;2204 .E 1045 CFI_ROUTINE: LI R4,$SPACE ;2206 ... 0204 0020 LI R7,TRANSFER_BUFFER ;220A ..-. 0207 2D80 MOV R3,R8 ;220E .. C203 CFI_INNERLOOP: XOP R5,2 ;2210 ,. 2C85 JOC COPY_ERROR ;2212 .8 1838 INC R8 ;2214 .. 0588 AI R7,>0100 ;2216 .'.. 0227 0100 DEC R4 ;221A .. 0604 JNE CFI_INNERLOOP ;221C .. 16F9 RT ;221E .[ 045B COPY_ROUTINE: MOV *R5+,*R7+ ;2220 .. CDF5 MOV *R5+,*R7+ ;2222 .. CDF5 MOV *R5+,*R7 ;2224 .. C5F5 MOV @_1,@DEST_COMMAND ;2226 . '.(@ C820 279E 2840 XOP @DEST_COMMAND,2 ;222C ,.(@ 2CA0 2840 JNC COPY_ONE_FILE ;2230 .. 1713 CB @_5_,R0 ;2232 . '. 9020 27DD JNE COPY_ERROR ;2236 .& 1626 COC @X800,R9 ;2238 "`'. 2260 27D2 JEQ REPLACE_EXISTING_FILE ;223C .. 1301 RT ;223E .[ 045B REPLACE_EXISTING_FILE: MOV @_2,@DEST_COMMAND ;2240 . '.(@ C820 27A0 2840 XOP @DEST_COMMAND,2 ;2246 ,.(@ 2CA0 2840 JOC COPY_ERROR ;224A .. 181C MOV @_1,@DEST_COMMAND ;224C . '.(@ C820 279E 2840 XOP @DEST_COMMAND,2 ;2252 ,.(@ 2CA0 2840 JOC COPY_ERROR ;2256 .. 1816 COPY_ONE_FILE: CLR R0 ;2258 .. 04C0 MOV @>FA16,R1 ;225A .`.. C060 FA16 DIV @>FA10,R0 ;225E < .. 3C20 FA10 MOV R0,@NUMBER_OF_RECORDS ;2262 ..'. C800 27F2 MOV R0,@HOW_MANY_RECORDS ;2266 ..'. C800 27FA JEQ CLOSE_THE_FILE ;226A .. 1306 XOP @READ_FILE,2 ;226C ,.'. 2CA0 27EC JOC COPY_ERROR ;2270 .. 1809 XOP @WRITE_FILE,2 ;2272 ,.'. 2CA0 27F4 JOC COPY_ERROR ;2276 .. 1806 CLOSE_THE_FILE: MOV @_8,@DEST_COMMAND ;2278 . '.(@ C820 27AC 2840 XOP @DEST_COMMAND,2 ;227E ,.(@ 2CA0 2840 RT ;2282 .[ 045B COPY_ERROR: XOP @IO_ERROR,3 ;2284 ,.+> 2CE0 2B3E XOP @BLINK,3 ;2288 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;228C - (\ 2D20 285C DONE_COPYING: MOV R13,R2 ;2290 .. C08D LI R8,NUM_FILES_COPIED ;2292 ..+. 0208 2BFA BL @DISPLAY_NUMBER ;2296 ..'& 06A0 2726 XOP @EXIT_COPY,3 ;229A ,.+. 2CE0 2BDE B @MENU ;229E .` : 0460 203A SHOW_WHILE_COPYING: XOP @_COPY,3 ;22A2 ,.+. 2CE0 2BD8 XOP @SOURCE_FILE_NOTIFICATION,3 ;22A6 ,.*. 2CE0 2A94 RT ;22AA .[ 045B SHOW_COPIED: XOP @_COPIED,3 ;22AC ,.+. 2CE0 2BD0 XOP @SOURCE_FILE_NOTIFICATION,3 ;22B0 ,.*. 2CE0 2A94 RT ;22B4 .[ 045B DEL LI R14,SHOW_DELETING ;22B6 ..#2 020E 2332 COC @X4000,R9 ;22BA "`'. 2260 27CE JEQ DF.Q ;22BE .. 1302 LI R14,SHOW_DELETED ;22C0 ..#< 020E 233C DF.Q DEC @COUNT ;22C4 . (& 0620 2826 JEQ DO_DELETE ;22C8 .. 1308 XOP @FIELD_ERROR,3 ;22CA ,.+_ 2CE0 2B5F XOP @BLINK,3 ;22CE ,.*. 2CE0 2AF9 XOP @INBUF,4 ;22D2 - (\ 2D20 285C B @MENU ;22D6 .` : 0460 203A DO_DELETE: LI R10,DELETE_ROUTINE ;22DA ..#. 020A 2308 LI R12,DONE_DELETING ;22DE ..# 020C 2320 MOV @_2,@DEST_COMMAND ;22E2 . '.(@ C820 27A0 2840 MOV @_1_,@DSTFIL ;22E8 . '.(B C820 279A 2842 MOV @SOURCEFILE,@DESTFILE ;22EE . (0(D C820 2830 2844 LI R8,CURRENT_FILENAME ;22F4 ..(T 0208 2854 LI R7,$DSK_CLOSE ;22F8 .... 0207 0008 LOAD_STARS: MOVB @STAR,*R8+ ;22FC . '. DE20 27E0 DEC R7 ;2300 .. 0607 JNE LOAD_STARS ;2302 .. 16FC B @PERFORM_OPERATION ;2304 .`&6 0460 2636 DELETE_ROUTINE: XOP @DEST_COMMAND,2 ;2308 ,.(@ 2CA0 2840 JOC DEL_ERROR ;230C .. 1801 RT ;230E .[ 045B DEL_ERROR: XOP @IO_ERROR,3 ;2310 ,.+> 2CE0 2B3E XOP @BLINK,3 ;2314 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;2318 - (\ 2D20 285C B @MENU ;231C .` : 0460 203A DONE_DELETING: MOV R13,R2 ;2320 .. C08D LI R8,NUM_DELETED ;2322 ..,: 0208 2C3A BL @DISPLAY_NUMBER ;2326 ..'& 06A0 2726 XOP @EXIT_DELETE,3 ;232A ,.,. 2CE0 2C1C B @MENU ;232E .` : 0460 203A SHOW_DELETING: XOP @_DELETE,3 ;2332 ,.,. 2CE0 2C14 XOP @DEST_FILE_NOTIFICATION,3 ;2336 ,.*. 2CE0 2AA2 RT ;233A .[ 045B SHOW_DELETED: XOP @DEST_FILE_NOTIFICATION,3 ;233C ,.*. 2CE0 2AA2 XOP @_DELETED,3 ;2340 ,.,. 2CE0 2C0B RT ;2344 .[ 045B FORMAT DECT @COUNT ;2346 .`(& 0660 2826 JEQ DO_FORMAT ;234A .. 1308 XOP @FIELD_ERROR,3 ;234C ,.+_ 2CE0 2B5F XOP @BLINK,3 ;2350 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;2354 - (\ 2D20 285C B @MENU ;2358 .` : 0460 203A DO_FORMAT: LI R2,$DSK_CLOSE ;235C .... 0202 0008 LI R3,REFORMAT_DRIVE_NUMBER ;2360 ..*. 0203 2ABA LI R4,FILDRIVE ;2364 ..(1 0204 2831 MOVB *R4+,R0 ;2368 .4 D034 AI R0,>3000 ;236A . 0. 0220 3000 MOVB R0,*R3+ ;236E .. DCC0 MOVB @COLON,*R3+ ;2370 ..'. DCE0 27DF STORE_DRIVE_AND_LABEL: MOVB *R4+,*R3+ ;2374 .. DCF4 DEC R2 ;2376 .. 0602 JNE STORE_DRIVE_AND_LABEL ;2378 .. 16FD LI R3,DESTNAME ;237A ..(F 0203 2846 BL @GET_NUMBER_OF_DIRECTORY_BLOCKS ;237E ..$. 06A0 240E CI R2,>0063 ;2382 ...c 0282 0063 JGT TOO_MANY_DIRECTORY_BLOCKS ;2386 .A 1541 MOV R2,*R4 ;2388 .. C502 LI R8,HOW_MANY_DIRECTORY_BLOCKS ;238A ..*. 0208 2ACA BL @DISPLAY_NUMBER ;238E ..'& 06A0 2726 XOP @ASK_IF_REFORMAT,3 ;2392 ,.*. 2CE0 2AB1 XOP @INBUF,4 ;2396 - (\ 2D20 285C JOC SKIP_TO_MENU ;239A .5 1835 CB @YES,@INBUF ;239C . '.(\ 9820 27E9 285C JNE SKIP_TO_MENU ;23A2 .1 1631 MOV @_3,@XOP2_COMMAND ;23A4 . '.(, C820 27A2 282C MOV @FNAME_FLAG,R0 ;23AA . ($ C020 2824 JNE FNAME_SET_FLAG ;23AE .. 1614 XOP @FACILITY_NAME_PROMPT,3 ;23B0 ,.*. 2CE0 2AD8 XOP @FNAME_BUFFER,4 ;23B4 - -0 2D20 2D30 JOC SKIP_TO_MENU ;23B8 .& 1826 LI R0,>0050 ;23BA ...P 0200 0050 LI R1,FNAME_BUFFER ;23BE ..-0 0201 2D30 FNAME_EOL_LOOP: CB @CRLF,*R1 ;23C2 .`'. 9460 27E6 JEQ PAD_FNAME ;23C6 .. 1304 INC R1 ;23C8 .. 0581 DEC R0 ;23CA .. 0600 JNE FNAME_EOL_LOOP ;23CC .. 16FA JMP FNAME_SET_FLAG ;23CE .. 1004 PAD_FNAME: MOVB @SPACE,*R1+ ;23D0 .`'. DC60 27DE DEC R0 ;23D4 .. 0600 JNE PAD_FNAME ;23D6 .. 16FC FNAME_SET_FLAG: SETO @FNAME_FLAG ;23D8 . ($ 0720 2824 XOP @XOP2_COMMAND,2 ;23DC ,.(, 2CA0 282C JOC ERROR_CREATING_FNAME ;23E0 .. 180C MOV @SOURCEFILE,@FNAME2DRIVE ;23E2 . (0(. C820 2830 2816 XOP @FNAME2,2 ;23E8 ,.(. 2CA0 2812 JOC ERROR_CREATING_FNAME ;23EC .. 1806 MOV @_5,@FNAME_TEST ;23EE . '.'. C820 27A6 27FC XOP @FNAME_TEST,2 ;23F4 ,.'. 2CA0 27FC JNC FINISH_CREATING_FNAME ;23F8 .. 171E ERROR_CREATING_FNAME: XOP @IO_ERROR,3 ;23FA ,.+> 2CE0 2B3E XOP @BLINK,3 ;23FE ,.*. 2CE0 2AF9 XOP @INBUF,4 ;2402 - (\ 2D20 285C SKIP_TO_MENU: B @MENU ;2406 .` : 0460 203A TOO_MANY_DIRECTORY_BLOCKS: B @COMMAND_ERROR ;240A .` , 0460 202C GET_NUMBER_OF_DIRECTORY_BLOCKS: CLR R2 ;240E .. 04C2 GET_DIR_BLKS_LOOP: MOVB *R3+,R0 ;2410 .3 D033 CB @SPACE,R0 ;2412 . '. 9020 27DE JNE CONVERT_DIR_BLOCKS ;2416 .. 1601 RT ;2418 .[ 045B CONVERT_DIR_BLOCKS: SWPB R0 ;241A .. 06C0 ANDI R0,>00FF ;241C .@.. 0240 00FF S @ASCII_OFFSET,R0 ;2420 ` '. 6020 27B2 JLT TOO_MANY_DIRECTORY_BLOCKS ;2424 .. 11F2 CI R0,$DSK_REWIND ;2426 .... 0280 0009 JGT TOO_MANY_DIRECTORY_BLOCKS ;242A .. 15EF MOV R2,R1 ;242C .B C042 MPY @_10_,R1 ;242E 8`'. 3860 2798 A R0,R2 ;2432 .. A080 JMP GET_DIR_BLKS_LOOP ;2434 .. 10ED FINISH_CREATING_FNAME: CLR @COUNT ;2436 ..(& 04E0 2826 CLR R9 ;243A .. 04C9 LI R2,>3000 ;243C ..0. 0202 3000 AB @FILDRIVE,R2 ;2440 ..(1 B0A0 2831 MOVB R2,@DRIVE_NUMBER ;2444 ..+. D802 2BCC XOP @FUMENU,3 ;2448 ,.). 2CE0 29BE XOP @SHOW_VERIFY,3 ;244C ,.+. 2CE0 2BC9 LI R2,SHOW_VERIFY ;2450 ..+. 0202 2BC9 LI R3,INBUF ;2454 ..(\ 0203 285C MOVE_VM_COMMAND: MOVB *R2+,*R3+ ;2458 .. DCF2 MOVB @>FFFF(R2),@>FFFF(R2) ;245A ...... D8A2 FFFF FFFF JNE MOVE_VM_COMMAND ;2460 .. 16FB B @VM_ENTRY_POINT ;2462 .` J 0460 204A VERIFY MOV @_6,@XOP2_COMMAND ;2466 . '.(, C820 27A8 282C MOV @SOURCEFILE,@SRCFIL ;246C . (0(. C820 2830 282E LI R0,TRANSFER_BUFFER ;2472 ..-. 0200 2D80 MOV R0,@SOURCEFILE ;2476 ..(0 C800 2830 CLR R13 ;247A .. 04CD CLR R14 ;247C .. 04CE VLOOP MOV R13,@SRCNAME ;247E ..(2 C80D 2832 XOP @XOP2_COMMAND,2 ;2482 ,.(, 2CA0 282C JOC INC_BADBLOCK_COUNT ;2486 .. 180D INC R13 ;2488 .. 058D CI R13,>0460 ;248A ...` 028D 0460 JNE VLOOP ;248E .. 16F7 END_VERIFY: LI R8,NUMBER_OF_BAD_SECTORS ;2490 ..,. 0208 2C9B MOV R14,R2 ;2494 .. C08E BL @DISPLAY_NUMBER ;2496 ..'& 06A0 2726 XOP @END_MEDIA_VERIFY,3 ;249A ,.,} 2CE0 2C7D B @MENU ;249E .` : 0460 203A INC_BADBLOCK_COUNT: INC R14 ;24A2 .. 058E LI R8,BAD_SECTOR_LOC ;24A4 ..,b 0208 2C62 MOV R13,R1 ;24A8 .M C04D BL @CONVERT_TO_DECIMAL ;24AA ..'> 06A0 273E LI R8,ERROR_STATUS ;24AE ..,x 0208 2C78 MOV R0,R1 ;24B2 .@ C040 BL @CONVERT_TO_HEX ;24B4 ..'l 06A0 276C XOP @SHOW_WHERE_BAD_SECTOR_IS,3 ;24B8 ,.,L 2CE0 2C4C INC R13 ;24BC .. 058D CI R13,>0460 ;24BE ...` 028D 0460 JNE VLOOP ;24C2 .. 16DD JMP END_VERIFY ;24C4 .. 10E5 DIR SETO @PFLAG ;24C6 . (( 0720 2828 ANDI R9,FUTILS ;24CA .I . 0249 2000 JEQ SKIP_PRINTER_INIT ;24CE .. 1304 CLR @PFLAG ;24D0 ..(( 04E0 2828 XOP @FF,7 ;24D4 -.'. 2DE0 27E5 SKIP_PRINTER_INIT: LI R2,XOP2_COMMAND ;24D8 ..(, 0202 282C MOV @_6,*R2+ ;24DC ..'. CCA0 27A8 MOV @SOURCEFILE,*R2+ ;24E0 ..(0 CCA0 2830 LI R0,OUTBUF ;24E4 ..(. 0200 28AC MOV R0,*R2+ ;24E8 .. CC80 CLR *R2 ;24EA .. 04D2 DIR_AGAIN: XOP @XOP2_COMMAND,2 ;24EC ,.(, 2CA0 282C JNC GOT_DIR ;24F0 .. 1710 XOP @IO_ERROR,3 ;24F2 ,.+> 2CE0 2B3E XOP @BLINK,3 ;24F6 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;24FA - (\ 2D20 285C B @MENU ;24FE .` : 0460 203A DIR_ERROR: XOP @BAD_DIRECTORY,3 ;2502 ,.+. 2CE0 2B1D XOP @BLINK,3 ;2506 ,.*. 2CE0 2AF9 XOP @INBUF,4 ;250A - (\ 2D20 285C B @MENU ;250E .` : 0460 203A GOT_DIR LI R7,OUTBUF ;2512 ..(. 0207 28AC CB @VALID_DIR,*R7+ ;2516 ..'. 9DE0 27B0 JNE DIR_ERROR ;251A .. 16F3 LI R8,DATE_CREATED ;251C ..,. 0208 2CCF BL @SHOW_DATE ;2520 ..'. 06A0 2706 LI R8,LABELNAME ;2524 ..,. 0208 2CB8 BL @SHOW_FILENAME ;2528 ..&. 06A0 26EC C @VALID_DIR,*R7+ ;252C ..'. 8DE0 27B0 JNE DIR_ERROR ;2530 .. 16E8 MOV *R7+,@NEXT_SECTOR ;2532 .7(* C837 282A MOV @SRCNAME,R2 ;2536 ..(2 C0A0 2832 LI R8,BLOCKNUM ;253A ..,. 0208 2CE0 BL @DISPLAY_NUMBER ;253E ..'& 06A0 2726 BL @CLEAR_SCREEN ;2542 ..&" 06A0 2622 LI R10,_DIRECTORY_OF ;2546 ..,. 020A 2CAB BL @DISPLAY_IT ;254A ..%. 06A0 25EE LI R10,HEADERS ;254E ..,. 020A 2CE5 LI R8,END_HEADERS ;2552 ..-. 0208 2D1C BL @DISPLAY_IT ;2556 ..%. 06A0 25EE LI R9,$LF ;255A .... 0209 000A SHOW_10_FILES: LI R8,TRANSFER_BUFFER ;255E ..-. 0208 2D80 MOV R8,R10 ;2562 .. C288 MOVB *R7+,R0 ;2564 .7 D037 CB @_E,R0 ;2566 . '. 9020 27E3 JEQ END_DIR ;256A .1 1331 MOVB @SPACE,*R8+ ;256C . '. DE20 27DE MOVB R0,*R8+ ;2570 .. DE00 BL @TAB_3_SPACES ;2572 ..&. 06A0 26F8 BL @SHOW_DATE ;2576 ..'. 06A0 2706 BL @TAB_3_SPACES ;257A ..&. 06A0 26F8 BL @SHOW_FILENAME ;257E ..&. 06A0 26EC BL @TAB_3_SPACES ;2582 ..&. 06A0 26F8 MOV *R7+,R1 ;2586 .w C077 BL @CONVERT_TO_HEX ;2588 ..'l 06A0 276C BL @TAB_3_SPACES ;258C ..&. 06A0 26F8 MOV @$DSK_ABS_R(R7),R1 ;2590 .g.. C067 0006 BL @CONVERT_TO_DECIMAL ;2594 ..'> 06A0 273E BL @TAB_3_SPACES ;2598 ..&. 06A0 26F8 CB @_P,R0 ;259C . '. 9020 27E4 JNE SHOW_A_LINE ;25A0 .. 160A MOV *R7,R1 ;25A2 .W C057 BL @CONVERT_TO_DECIMAL ;25A4 ..'> 06A0 273E BL @TAB_3_SPACES ;25A8 ..&. 06A0 26F8 MPY @$DSK_READ(R7),R1 ;25AC 8g.. 3867 0004 MOV R2,R1 ;25B0 .B C042 BL @CONVERT_TO_DECIMAL ;25B2 ..'> 06A0 273E SHOW_A_LINE: AI R7,$LF ;25B6 .'.. 0227 000A BL @DISPLAY_IT ;25BA ..%. 06A0 25EE DEC R9 ;25BE .. 0609 JNE SHOW_10_FILES ;25C0 .. 16CE BL @WAIT_FOR_INPUT ;25C2 ..&. 06A0 260E MOV @NEXT_SECTOR,@SRCNAME ;25C6 . (*(2 C820 282A 2832 JNE DIR_AGAIN ;25CC .. 168F END_DIR LI R10,DIRECTORY_END ;25CE ..-. 020A 2D1F LI R8,AFTER_DIRECTORY_END ;25D2 ..-& 0208 2D26 BL @DISPLAY_IT ;25D6 ..%. 06A0 25EE BL @WAIT_FOR_INPUT ;25DA ..&. 06A0 260E MOV @PFLAG,@PFLAG ;25DE . (((( C820 2828 2828 JNE DONE_DIR ;25E4 .. 1602 XOP @FF,7 ;25E6 -.'. 2DE0 27E5 DONE_DIR: B @MENU ;25EA .` : 0460 203A DISPLAY_IT: MOVB @CRLF,*R8+ ;25EE . '. DE20 27E6 MOV @PFLAG,@PFLAG ;25F2 . (((( C820 2828 2828 JEQ DISPLAY_TO_PRINTER ;25F8 .. 1304 MOVB @HOLDIT,*R8+ ;25FA . '. DE20 27E8 XOP *R10,3 ;25FE ,. 2CDA RT ;2600 .[ 045B DISPLAY_TO_PRINTER: MOVB @LF,*R8+ ;2602 . '. DE20 27E7 MOVB @HOLDIT,*R8+ ;2606 . '. DE20 27E8 XOP *R10,7 ;260A -. 2DDA RT ;260C .[ 045B WAIT_FOR_INPUT: MOV @PFLAG,@PFLAG ;260E . (((( C820 2828 2828 JEQ END_WAIT ;2614 .. 1305 XOP @INBUF,4 ;2616 - (\ 2D20 285C JNC END_WAIT ;261A .. 1702 B @MENU ;261C .` : 0460 203A END_WAIT: RT ;2620 .[ 045B CLEAR_SCREEN: MOV @PFLAG,@PFLAG ;2622 . (((( C820 2828 2828 JEQ INIT_LD.P ;2628 .. 1303 XOP @SCREEN_CLEAR,3 ;262A ,.-) 2CE0 2D29 RT ;262E .[ 045B INIT_LD.P: XOP @CRLF,7 ;2630 -.'. 2DE0 27E6 RT ;2634 .[ 045B PERFORM_OPERATION: MOV @_0_,@XOP2_COMMAND ;2636 . '.(, C820 279C 282C CLR R13 ;263C .. 04CD WAIT_FDC_READY: XOP @XOP2_COMMAND,2 ;263E ,.(, 2CA0 282C JOC ERROR_IN_LOOKUP ;2642 .F 1846 MOV @_12,@XOP2_COMMAND ;2644 . '.(, C820 27AE 282C CB @_X,@>FA06 ;264A . '... 9820 27EA FA06 JEQ WAIT_FDC_READY ;2650 .. 13F6 LI R4,$DSK_CLOSE ;2652 .... 0204 0008 LI R3,DEST_FILE_NOTIFICATION ;2656 ..*. 0203 2AA2 LI R5,>FA08 ;265A .... 0205 FA08 LI R6,SOURCE_FILE_NOTIFICATION ;265E ..*. 0206 2A94 LI R7,DESTNAME ;2662 ..(F 0207 2846 LI R8,CURRENT_FILENAME ;2666 ..(T 0208 2854 MOVB @FILDRIVE,R0 ;266A . (1 D020 2831 AI R0,>3000 ;266E . 0. 0220 3000 MOVB R0,*R6+ ;2672 .. DD80 MOVB @COLON,*R6+ ;2674 ..'. DDA0 27DF MOVB @DESTDRIVE,R0 ;2678 . (E D020 2845 AI R0,>3000 ;267C . 0. 0220 3000 MOVB R0,*R3+ ;2680 .. DCC0 MOVB @COLON,*R3+ ;2682 ..'. DCE0 27DF LOOP_TO_SHOW_SOURCEFILE: MOVB *R5+,R0 ;2686 .5 D035 MOVB R0,*R6+ ;2688 .. DD80 CB @STAR,*R8+ ;268A . '. 9E20 27E0 JNE LOOP_TO_SHOW_DESTFILE ;268E .. 1601 MOVB R0,*R7 ;2690 .. D5C0 LOOP_TO_SHOW_DESTFILE: MOVB *R7+,*R3+ ;2692 .. DCF7 DEC R4 ;2694 .. 0604 JNE LOOP_TO_SHOW_SOURCEFILE ;2696 .. 16F7 COC @X4000,R9 ;2698 "`'. 2260 27CE JNE SKIP_USER_VERIFICATION ;269C .. 160D XOP @ERASE,3 ;269E ,.). 2CE0 29B3 BL *R14 ;26A2 .. 069E XOP @QUESTION_MARK,3 ;26A4 ,.*. 2CE0 2AAD XOP @INBUF,4 ;26A8 - (\ 2D20 285C JNC CHECK_ANSWER ;26AC .. 1701 B *R12 ;26AE .\ 045C CHECK_ANSWER: CB @YES,@INBUF ;26B0 . '.(\ 9820 27E9 285C JNE IS_M_FLAG_SET ;26B6 .. 1608 SKIP_USER_VERIFICATION: BL *R10 ;26B8 .. 069A INC R13 ;26BA .. 058D COC @X4000,R9 ;26BC "`'. 2260 27CE JEQ IS_M_FLAG_SET ;26C0 .. 1303 XOP @ERASE,3 ;26C2 ,.). 2CE0 29B3 BL *R14 ;26C6 .. 069E IS_M_FLAG_SET: COC @X8000,R9 ;26C8 "`'. 2260 27D4 JEQ WAIT_FDC_READY ;26CC .. 13B8 B *R12 ;26CE .\ 045C ERROR_IN_LOOKUP: CB @_3_,R0 ;26D0 . '. 9020 27DC JNE LOOKUP_ERROR ;26D4 .. 1601 B *R12 ;26D6 .\ 045C LOOKUP_ERROR: XOP @IO_ERROR,3 ;26D8 ,.+> 2CE0 2B3E XOP @BLINK,3 ;26DC ,.*. 2CE0 2AF9 XOP @INBUF,4 ;26E0 - (\ 2D20 285C BL @CLOSE_ALL_FILES ;26E4 ..!@ 06A0 2140 B @MENU ;26E8 .` : 0460 203A SHOW_FILENAME: LI R6,$DSK_CLOSE ;26EC .... 0206 0008 SFLOOP MOVB *R7+,*R8+ ;26F0 .7 DE37 DEC R6 ;26F2 .. 0606 JNE SFLOOP ;26F4 .. 16FD RT ;26F6 .[ 045B TAB_3_SPACES: LI R6,$DSK_FORMAT ;26F8 .... 0206 0003 T3LOOP MOVB @SPACE,*R8+ ;26FC . '. DE20 27DE DEC R6 ;2700 .. 0606 JNE T3LOOP ;2702 .. 16FC RT ;2704 .[ 045B SHOW_DATE: MOV R11,R5 ;2706 .K C14B BL @SHOW_NUM ;2708 ..'. 06A0 271E MOVB @DASH,*R8+ ;270C . '. DE20 27E2 BL @SHOW_NUM ;2710 ..'. 06A0 271E MOVB @DASH,*R8+ ;2714 . '. DE20 27E2 BL @SHOW_NUM ;2718 ..'. 06A0 271E B *R5 ;271C .U 0455 SHOW_NUM: MOVB *R7+,R2 ;271E .. D0B7 SWPB R2 ;2720 .. 06C2 ANDI R2,>00FF ;2722 .B.. 0242 00FF DISPLAY_NUMBER: CLR R1 ;2726 .. 04C1 DIV @_10_,R1 ;2728 <`'. 3C60 2798 AI R1,>0030 ;272C .!.0 0221 0030 SWPB R1 ;2730 .. 06C1 MOVB R1,*R8+ ;2732 .. DE01 AI R2,>0030 ;2734 .".0 0222 0030 SWPB R2 ;2738 .. 06C2 MOVB R2,*R8+ ;273A .. DE02 RT ;273C .[ 045B CONVERT_TO_DECIMAL: LI R6,_10000 ;273E ..'. 0206 2792 LI R5,$DSK_READ ;2742 .... 0205 0004 LI R4,FUTILS ;2746 .. . 0204 2000 MOV R1,R3 ;274A .. C0C1 CDLOOP CLR R2 ;274C .. 04C2 DIV *R6+,R2 ;274E <. 3CB6 MOV R2,R2 ;2750 .. C082 JEQ SKIP_ZERO ;2752 .. 1302 LI R4,>3000 ;2754 ..0. 0204 3000 SKIP_ZERO: SWPB R2 ;2758 .. 06C2 A R4,R2 ;275A .. A084 MOVB R2,*R8+ ;275C .. DE02 DEC R5 ;275E .. 0605 JNE CDLOOP ;2760 .. 16F5 SWPB R3 ;2762 .. 06C3 AI R3,>3000 ;2764 .#0. 0223 3000 MOVB R3,*R8+ ;2768 .. DE03 RT ;276A .[ 045B CONVERT_TO_HEX: MOV R1,R2 ;276C .. C081 LI R5,$DSK_READ ;276E .... 0205 0004 CVT_HEX_LOOP: SRC R2,4 ;2772 .B 0B42 MOV R2,R3 ;2774 .. C0C2 SWPB R2 ;2776 .. 06C2 ANDI R3,>0F00 ;2778 .C.. 0243 0F00 AI R3,>3000 ;277C .#0. 0223 3000 CI R3,>3900 ;2780 ..9. 0283 3900 JLE LESS_THAN_10 ;2784 .. 1202 AI R3,>0700 ;2786 .#.. 0223 0700 LESS_THAN_10: MOVB R3,*R8+ ;278A .. DE03 DEC R5 ;278C .. 0605 JNE CVT_HEX_LOOP ;278E .. 16F1 RT ;2790 .[ 045B _10000 CZC *R0,R12 ;2792 '. 2710 _1000 DATA >03E8 ;2794 .. 03E8 _100_ DATA >0064 ;2796 .d 0064 _10_ DATA >000A ;2798 .. 000A _1_ DATA >0001 ;279A .. 0001 _0_ DATA >0000 ;279C .. 0000 _1 DATA >0001 ;279E .. 0001 _2 DATA >0002 ;27A0 .. 0002 _3 DATA >0003 ;27A2 .. 0003 _4 DATA >0004 ;27A4 .. 0004 _5 DATA >0005 ;27A6 .. 0005 _6 DATA >0006 ;27A8 .. 0006 _7 DATA >0007 ;27AA .. 0007 _8 DATA >0008 ;27AC .. 0008 _12 DATA >000C ;27AE .. 000C VALID_DIR: SOCB R4,*R4+ ;27B0 .. FD04 ASCII_OFFSET: DATA >0030 ;27B2 .0 0030 _T_ SZCB R13,*R0 ;27B4 T. 540D SZC R4,*R1+ ;27B6 LD 4C44 CZC R6,R3 ;27B8 $. 24C6 SZC R6,*R1 ;27BA DF 4446 COC *R6+,R10 ;27BC ". 22B6 SZC R6,R13 ;27BE CF 4346 COC R14,R5 ;27C0 !N 214E SZC R4,*R9 ;27C2 FD 4644 COC R6,R13 ;27C4 #F 2346 SZCB R13,*R9 ;27C6 VM 564D CZC @$DSK_LOOKUP(R6),R1 ;27C8 $f.. 2466 0000 X2000 COC R0,R0 ;27CC . 2000 X4000 SZC R0,R0 ;27CE @. 4000 X1000 NOP ;27D0 .. 1000 X800 SRA R0,0 ;27D2 .. 0800 X8000 C R0,R0 ;27D4 .. 8000 MODIFIERS: SZC *R1,*R5+ ;27D6 MQ 4D51 SZCB R9,R1 ;27D8 PI 5049 SZCB R0,R8 ;27DA R. 5200 _3_ DATA >0305 ;27DC .. 0305 SPACE COC *R10+,R0 ;27DE : 203A STAR XOR @>2D45(R14),R8 ;27E0 *.-E 2A2E 2D45 _P SZCB R12,R0 ;27E4 P. 500C CRLF DATA >0D0A ;27E6 .. 0D0A HOLDIT B *R9 ;27E8 .Y 0459 _X SZCB R0,@$DSK_READ ;27EA X... 5800 0004 DATA >0000 ;27EE .. 0000 XOP R0,6 ;27F0 -. 2D80 NUMBER_OF_RECORDS: SZCB R1,R1 ;27F2 PA 5041 WRITE_FILE: DATA >0005 ;27F4 .. 0005 DATA >0001 ;27F6 .. 0001 XOP R0,6 ;27F8 -. 2D80 HOW_MANY_RECORDS: XOR R10,R1 ;27FA (J 284A FNAME_TEST: SB @$DSK_LOOKUP(R14),*R8 ;27FC v... 762E 0000 XOP *R0+,4 ;2800 -0 2D30 DATA >0001 ;2802 .. 0001 FNAME1 DATA >0000 ;2804 .. 0000 DATA >0000 ;2806 .. 0000 DATA >0000 ;2808 .. 0000 SZC R14,*R9 ;280A FN 464E SZC R13,R5 ;280C AM 414D SZC @>2424(R4),*R4 ;280E E$$$ 4524 2424 FNAME2 DATA >0001 ;2812 .. 0001 DATA >0000 ;2814 .. 0000 FNAME2DRIVE: INV R0 ;2816 .@ 0540 SZC R14,*R9 ;2818 FN 464E SZC R13,R5 ;281A AM 414D SZC @>2424(R4),*R4 ;281C E$$$ 4524 2424 DATA >0050 ;2820 .P 0050 DATA >0001 ;2822 .. 0001 FNAME_FLAG: SB *R6+,*R8 ;2824 v6 7636 COUNT MOV @>7634,R0 ;2826 . v4 C020 7634 NEXT_SECTOR: S *R0,R1 ;282A `P 6050 XOP2_COMMAND: NEG R1 ;282C .. 0501 SRCFIL MOV R1,@>7632 ;282E ..v2 C801 7632 SRCNAME MOV @>762E,R3 ;2832 ..v. C0E0 762E INV R1 ;2836 .A 0541 SZC R1,R3 ;2838 @. 40C1 MOV R3,@>7632 ;283A ..v2 C803 7632 MPY @>284E,R2 ;283E 8.(N 38A0 284E DSTFIL A @>7632,R3 ;2842 ..v2 A0E0 7632 DESTNAME: MOV R3,*R0 ;2846 .. C403 RTWP ;2848 .. 0380 DATA >000F ;284A .. 000F DATA >0100 ;284C .. 0100 DATA >000A ;284E .. 000A SB *R8+,*R8 ;2850 v8 7638 XOR *R4,R1 ;2852 (T 2854 CURRENT_FILENAME: BL @>3840 ;2854 ..8@ 06A0 3840 DATA >0004 ;2858 .. 0004 SB @>5245,*R12 ;285A w RE 7720 5245 SZC R4,R5 ;285E AD 4144 SZC R13,*R5 ;2860 EM 454D MOV @>298E,@>7718 ;2862 . ).w. C820 298E 7718 MOV @>7726,R0 ;2868 . w& C020 7726 C *R0,@>2990 ;286C ..). 8810 2990 JNE >2876 ;2870 .. 1602 CLR @>7718 ;2872 ..w. 04E0 7718 CLR @>771A ;2876 ..w. 04E0 771A MOV @>7726,R0 ;287A . w& C020 7726 CLR *R0 ;287E .. 04D0 MOV @>298E,@>771C ;2880 . ).w. C820 298E 771C MOV @>771C,R1 ;2886 .`w. C060 771C SLA R1,1 ;288A .. 0A11 MOV @>7712,@>76C0(R1) ;288C .`w.v. C860 7712 76C0 INC @>771C ;2892 ..w. 05A0 771C C @>771C,@>2992 ;2896 . w.). 8820 771C 2992 JLE >2886 ;289C .. 12F4 MOV @>7716,@>770E ;289E . w.w. C820 7716 770E MOV @>7714,@>7710 ;28A4 . w.w. C820 7714 7710 MOV @>2994,@>7668 ;28AA . ).vh C820 2994 7668 MOV @>7718,@>766A ;28B0 . w.vj C820 7718 766A BLWP @>2B5A ;28B6 . +Z 0420 2B5A DATA >0002 ;28BA .. 0002 SB @>771A(R8),*R9 ;28BC vhw. 7668 771A CLR @>771A ;28C0 ..w. 04E0 771A BLWP @>34FA ;28C4 . 4. 0420 34FA DATA >0007 ;28C8 .. 0007 SB @>298E(R1),*R12 ;28CA w!). 7721 298E XOR *R4,R6 ;28CE ). 2994 SB @>2996(R8),*R9 ;28D0 vh). 7668 2996 XOR *R4,R6 ;28D4 ). 2994 SB *R14,*R12 ;28D6 w. 771E CLR @>7668 ;28D8 ..vh 04E0 7668 MOV @>7718,@>766C ;28DC . w.vl C820 7718 766C BLWP @>2B5A ;28E2 . +Z 0420 2B5A DATA >0002 ;28E6 .. 0002 SB @>771A(R8),*R9 ;28E8 vhw. 7668 771A MOV @>771A,R2 ;28EC ..w. C0A0 771A JNE >2914 ;28F0 .. 1611 MOV @>2998,@>7668 ;28F2 . ).vh C820 2998 7668 MOV @>7718,@>766A ;28F8 . w.vj C820 7718 766A MOV @>7724,R3 ;28FE ..w$ C0E0 7724 MOV *R3,@>766E ;2902 ..vn C813 766E BLWP @>2BA6 ;2906 . +. 0420 2BA6 DATA >0003 ;290A .. 0003 SB @>7723(R8),*R9 ;290C vhw# 7668 7723 SB @>0380(R7),*R12 ;2910 w'.. 7727 0380 MOV @>771A,R0 ;2914 . w. C020 771A BL @>35E4 ;2918 ..5. 06A0 35E4 XOR *R10,R6 ;291C ). 299A MOV R0,@>771A ;291E ..w. C800 771A CI R0,$DSK_FORMAT ;2922 .... 0280 0003 JNE >2968 ;2926 . 1620 MOV @>7726,R1 ;2928 .`w& C060 7726 MOV R0,*R1 ;292C .@ C440 MOV @>7718,R2 ;292E ..w. C0A0 7718 JEQ >298C ;2932 ., 132C BLWP @>34FA ;2934 . 4. 0420 34FA DATA >0007 ;2938 .. 0007 SB @>298E(R10),*R10 ;293A v.). 76AA 298E XOR *R12,R6 ;293E ). 299C SB R2,*R11 ;2940 v. 76C2 XOR R14,R6 ;2942 ). 298E XOR *R12,R6 ;2944 ). 299C SB *R14,*R12 ;2946 w. 771E BLWP @>34FA ;2948 . 4. 0420 34FA DATA >0007 ;294C .. 0007 SB @>298E(R1),*R12 ;294E w!). 7721 298E XOR *R4,R6 ;2952 ). 2994 SB R2,*R11 ;2954 v. 76C2 XOR R14,R6 ;2956 ). 298E XOR *R4,R6 ;2958 ). 2994 SB *R14,*R12 ;295A w. 771E BLWP @>2DA8 ;295C . -. 0420 2DA8 DATA >0002 ;2960 .. 0002 SB R2,*R11 ;2962 v. 76C2 SB @>1012(R8),*R9 ;2964 vh.. 7668 1012 BLWP @>34FA ;2968 . 4. 0420 34FA DATA >0007 ;296C .. 0007 SB *R12+,*R9 ;296E v| 767C XOR R14,R6 ;2970 ). 298E XOR *R14,R6 ;2972 ). 299E SB R2,*R11 ;2974 v. 76C2 XOR @>299E,R6 ;2976 ).). 29A0 299E SB *R14,*R12 ;297A w. 771E BLWP @>2DA8 ;297C . -. 0420 2DA8 DATA >0002 ;2980 .. 0002 SB R2,*R11 ;2982 v. 76C2 SB @>0420(R8),*R9 ;2984 vh. 7668 0420 XOR *R14+,R11 ;2988 *. 2AFE DATA >0000 ;298A .. 0000 RTWP ;298C .. 0380 DATA >0001 ;298E .. 0001 DATA >0005 ;2990 .. 0005 DATA >0028 ;2992 .( 0028 DATA >0008 ;2994 .. 0008 DATA >0007 ;2996 .. 0007 DATA >0004 ;2998 .. 0004 DATA >0100 ;299A .. 0100 DATA >0018 ;299C .. 0018 DATA >002E ;299E .. 002E DATA >0002 ;29A0 .. 0002 SB @>29A6(R8),*R12 ;29A2 w(). 7728 29A6 BL @>3840 ;29A6 ..8@ 06A0 3840 DATA >0004 ;29AA .. 0004 TOP JH >29D0 ;29AC .. 1B11 S @$CLREOS,R0 ;29AE ` .. 6020 1B18 BLWP *R11 ;29B2 .. 041B JLT >2A76 ;29B4 .` 1160 XOR *R11,R4 ;29B6 ). 291B JEQ >29F0 ;29B8 .. 131B JLT >2A7C ;29BA .` 1160 STCR R4,8 ;29BC 6. 3604 FUMENU JH >29E2 ;29BE .. 1B11 SBO $SPACE ;29C0 . 1D20 JH >29F6 ;29C2 .. 1B19 SZC R9,*R9 ;29C4 FI 4649 SZC R5,*R1+ ;29C6 LE 4C45 COC *R5,R1 ;29C8 U 2055 SZCB R9,*R1 ;29CA TI 5449 SZC R9,*R1+ ;29CC LI 4C49 SZCB R9,*R1 ;29CE TI 5449 SZC *R3,*R5 ;29D0 ES 4553 COC R13,R1 ;29D2 M 204D SZC R14,*R5 ;29D4 EN 454E SZCB *R11,*R4 ;29D6 U. 551B JLT >2A9A ;29D8 .` 1160 COC *R11,R4 ;29DA !. 211B DATA >0F1B ;29DC .. 0F1B JLT >2AA0 ;29DE .` 1160 COC *R11,R12 ;29E0 #. 231B DATA >0F1B ;29E2 .. 0F1B JLT >2AA6 ;29E4 .` 1160 CZC *R11,R0 ;29E6 $. 241B DATA >0F1B ;29E8 .. 0F1B JLT >2AAC ;29EA .` 1160 CZC *R11,R4 ;29EC %. 251B DATA >0F1B ;29EE .. 0F1B JLT >2AB2 ;29F0 .` 1160 CZC *R11,R8 ;29F2 &. 261B DATA >0F1B ;29F4 .. 0F1B JLT >2AB8 ;29F6 .` 1160 CZC *R11,R12 ;29F8 '. 271B DATA >0F1B ;29FA .. 0F1B JLT >2A12 ;29FC .. 110A CZC R12,R1 ;29FE $L 244C SZC @>2D20,*R0 ;2A00 D - 4420 2D20 SZC R9,*R1+ ;2A04 LI 4C49 SZCB *R4,R13 ;2A06 ST 5354 COC R4,R1 ;2A08 D 2044 SZC *R2,@>4543(R5) ;2A0A IREC 4952 4543 SZCB R15,*R1 ;2A0E TO 544F SZCB *R9,R9 ;2A10 RY 5259 JH >2A36 ;2A12 .. 1B11 LDCR @>4346(R4),8 ;2A14 2$CF 3224 4346 COC @>2043(R13),R0 ;2A18 - C 202D 2043 SZC *R0,*R13+ ;2A1C OP 4F50 SZCB @>4649,@>4C45(R4) ;2A1E Y FILE 5920 4649 4C45 SZCB *R11,R12 ;2A24 S. 531B JLT >2A3C ;2A26 .. 110A CZC R4,R5 ;2A28 %D 2544 SZC @>2D20,*R8 ;2A2A F - 4620 2D20 SZC R5,*R1 ;2A2E DE 4445 SZC R5,*R1+ ;2A30 LE 4C45 SZCB R5,*R1 ;2A32 TE 5445 COC R6,R1 ;2A34 F 2046 SZC R12,@>4553(R5) ;2A36 ILES 494C 4553 JH >2A5E ;2A3A .. 1B11 LDCR @>4644(R5),8 ;2A3C 2%FD 3225 4644 COC @>2046(R13),R0 ;2A40 - F 202D 2046 SZC *R2,*R13+ ;2A44 OR 4F52 SZC R1,*R5+ ;2A46 MA 4D41 SZCB @>4449,*R0 ;2A48 T DI 5420 4449 SZCB R11,R13 ;2A4C SK 534B SZC *R4,*R5 ;2A4E ET 4554 SZCB R5,*R1 ;2A50 TE 5445 JH >2A76 ;2A52 .. 1B11 SLA R6,2 ;2A54 .& 0A26 SZCB R13,*R9 ;2A56 VM 564D COC @>2056(R13),R0 ;2A58 - V 202D 2056 SZC *R2,*R5 ;2A5C ER 4552 SZC R6,@>5920(R5) ;2A5E IFY 4946 5920 SZC R5,*R5+ ;2A62 ME 4D45 SZC R9,*R1 ;2A64 DI 4449 SZC *R11,R4 ;2A66 A. 411B JLT >2ACE ;2A68 .2 1132 CZC *R4,R9 ;2A6A &T 2654 COC @>2D20,R0 ;2A6C - 2020 2D20 SZCB R5,*R1 ;2A70 TE 5445 SZCB R13,R9 ;2A72 RM 524D SZC R14,@>4154(R5) ;2A74 INAT 494E 4154 SZC @>5052,*R4 ;2A78 E PR 4520 5052 SZC R7,*R13+ ;2A7C OG 4F47 SZCB R1,R9 ;2A7E RA 5241 SZC *R11,*R4+ ;2A80 M. 4D1B JLT >2B44 ;2A82 .` 1160 XOR *R11,R0 ;2A84 (. 281B DATA >0F1B ;2A86 .. 0F1B JLT >2B4A ;2A88 .` 1160 XOR *R11,R4 ;2A8A ). 291B JEQ >2AC4 ;2A8C .. 131B JLT >2B50 ;2A8E .` 1160 STCR *R11,9 ;2A90 6[ 365B SZCB R4,*R4+ ;2A92 ]. 5D04 SOURCE_FILE_NOTIFICATION: JNE >2AAE ;2A94 .. 160C MOV @>7780,R2 ;2A96 ..w. C0A0 7780 SLA R2,1 ;2A9A .. 0A12 MOV @>2054,@>4F20(R2) ;2A9C .. TO C8A0 2054 4F20 DEST_FILE_NOTIFICATION: INC @>7780 ;2AA2 ..w. 05A0 7780 C @>7780,@>F774 ;2AA6 . w..t 8820 7780 F774 BLWP @>3F20 ;2AAC . ? 0420 3F20 B *R2 ;2AB0 .R 0452 SZC R6,*R5 ;2AB2 EF 4546 SZC *R2,*R13+ ;2AB4 OR 4F52 SZC R1,*R5+ ;2AB6 MA 4D41 SZCB @>777A,*R0 ;2AB8 T wz 5420 777A MOV @>2AEE,@>7770 ;2ABC . *.wp C820 2AEE 7770 BLWP @>2057 ;2AC2 . W 0420 2057 SZC *R4,@>4820(R5) ;2AC6 ITH 4954 4820 HOW_MANY_DIRECTORY_BLOCKS: SB *R10+,*R13 ;2ACA wz 777A COC R2,R1 ;2ACC B 2042 SZC R11,*R1+ ;2ACE LK 4C4B COC R4,R1 ;2AD0 D 2044 SZC *R2,@>203F(R5) ;2AD2 IR ? 4952 203F COC R4,R0 ;2AD6 . 2004 FACILITY_NAME_PROMPT: JH BAD_COMMAND ;2AD8 .. 1B11 S @$DELLIN(R9),R0 ;2ADA `).. 6029 1B13 JH >2B02 ;2ADE .. 1B11 S *R6+,R0 ;2AE0 `6 6036 SZC R14,*R5 ;2AE2 EN 454E SZCB R5,*R1 ;2AE4 TE 5445 SZCB @>4641,R8 ;2AE6 R FA 5220 4641 SZC R9,R13 ;2AEA CI 4349 SZC R9,*R1+ ;2AEC LI 4C49 SZCB *R9,*R1 ;2AEE TY 5459 COC R14,R1 ;2AF0 N 204E SZC R13,R5 ;2AF2 AM 414D SZC @>3A20,*R4 ;2AF4 E : 4520 3A20 BLWP *R11 ;2AF8 .. 041B DATA >0104 ;2AFA .. 0104 BAD_COMMAND: JH >2B20 ;2AFC .. 1B11 S @$DELEOL(R2),R0 ;2AFE `".. 6022 1B0F JH >2B26 ;2B02 .. 1B11 SBO >0022 ;2B04 ." 1D22 JH >2B46 ;2B06 .. 1B1F DIV *R15+,R12 ;2B08 ?? 3F3F COC R2,R1 ;2B0A B 2042 SZC R4,R5 ;2B0C AD 4144 COC R3,R1 ;2B0E C 2043 SZC R13,*R13+ ;2B10 OM 4F4D SZC R1,*R5+ ;2B12 MA 4D41 SZC R4,*R9+ ;2B14 ND 4E44 COC @>203F,R0 ;2B16 ? 2020 203F DIV R7,R12 ;2B1A ?. 3F07 BLWP *R11 ;2B1C .. 041B JLT >2BE0 ;2B1E .` 1160 COC *R11,R8 ;2B20 ". 221B DATA >0F1B ;2B22 .. 0F1B JLT >2B60 ;2B24 .. 111D COC *R11,R8 ;2B26 ". 221B TB >003F ;2B28 .? 1F3F DIV @>4241,R12 ;2B2A ? BA 3F20 4241 SZC @>4449,*R0 ;2B2E D DI 4420 4449 SZCB R5,R9 ;2B32 RE 5245 SZC *R4,R13 ;2B34 CT 4354 SZC *R2,*R13+ ;2B36 OR 4F52 SZCB @>3F3F,@>0704(R4) ;2B38 Y ??.. 5920 3F3F 0704 IO_ERROR: JH >2B62 ;2B3E .. 1B11 S @$DELEOL(R2),R0 ;2B40 `".. 6022 1B0F JH >2B68 ;2B44 .. 1B11 SBO >0022 ;2B46 ." 1D22 JH >2B88 ;2B48 .. 1B1F DIV *R15+,R12 ;2B4A ?? 3F3F COC R6,R1 ;2B4C F 2046 SZC *R4,R5 ;2B4E AT 4154 SZC R12,R5 ;2B50 AL 414C COC R9,R1 ;2B52 I 2049 XOP R15,13 ;2B54 /O 2F4F COC R5,R1 ;2B56 E 2045 SZCB *R2,R9 ;2B58 RR 5252 COC *R15+,R0 ;2B5A ? 203F DIV R7,R12 ;2B5C ?. 3F07 BLWP *R11 ;2B5E .. 041B JLT >2C22 ;2B60 .` 1160 COC *R11,R8 ;2B62 ". 221B DATA >0F1B ;2B64 .. 0F1B JLT >2BA2 ;2B66 .. 111D COC *R11,R8 ;2B68 ". 221B TB >003F ;2B6A .? 1F3F DIV @>4D49,R12 ;2B6C ? MI 3F20 4D49 SZCB *R3,R13 ;2B70 SS 5353 SZC R14,@>4720(R5) ;2B72 ING 494E 4720 SZC R9,*R9 ;2B76 FI 4649 SZC R12,*R5 ;2B78 EL 454C SZC @>3F3F,*R0 ;2B7A D ?? 4420 3F3F SETO R4 ;2B7E .. 0704 BAD_FILENAME: JH >2BA4 ;2B80 .. 1B11 S @$DELEOL(R2),R0 ;2B82 `".. 6022 1B0F JH >2BAA ;2B86 .. 1B11 SBO >0022 ;2B88 ." 1D22 JH >2BCA ;2B8A .. 1B1F DIV *R15+,R12 ;2B8C ?? 3F3F COC R2,R1 ;2B8E B 2042 SZC R4,R5 ;2B90 AD 4144 COC R6,R1 ;2B92 F 2046 SZC R12,@>454E(R5) ;2B94 ILEN 494C 454E SZC R13,R5 ;2B98 AM 414D SZC @>203F,*R4 ;2B9A E ? 4520 203F DIV R7,R12 ;2B9E ?. 3F07 BLWP *R11 ;2BA0 .. 041B JLT >2C64 ;2BA2 .` 1160 COC *R11,R8 ;2BA4 ". 221B DATA >0F1B ;2BA6 .. 0F1B JLT >2BE4 ;2BA8 .. 111D COC *R11,R8 ;2BAA ". 221B TB >003F ;2BAC .? 1F3F DIV @>4E4F,R12 ;2BAE ? NO 3F20 4E4F COC R4,R1 ;2BB2 D 2044 SZCB R11,R13 ;2BB4 SK 534B COC R6,R1 ;2BB6 F 2046 SZCB R14,*R5 ;2BB8 UN 554E SZC *R4,R13 ;2BBA CT 4354 SZC @>3F3F,*R8+ ;2BBC N ?? 4E20 3F3F SETO R4 ;2BC0 .. 0704 STATUS_LINE: JH >2BE6 ;2BC2 .. 1B11 S @$DELEOL(R2),R0 ;2BC4 `".. 6022 1B0F B *R6 ;2BC8 .V 0456 SZC @>303A,*R4+ ;2BCA M 0: 4D20 303A DATA >0D00 ;2BCE .. 0D00 _COPIED SZC R15,R13 ;2BD0 CO 434F SZCB R9,R1 ;2BD2 PI 5049 SZC R4,*R5 ;2BD4 ED 4544 COC R4,R0 ;2BD6 . 2004 _COPY SZC R15,R13 ;2BD8 CO 434F SZCB *R9,R1 ;2BDA PY 5059 COC R4,R0 ;2BDC . 2004 EXIT_COPY: JH >2C02 ;2BDE .. 1B11 S @$DELEOL(R2),R0 ;2BE0 `".. 6022 1B0F JH >2C08 ;2BE4 .. 1B11 JNC >2C2C ;2BE6 ." 1722 JH >2C28 ;2BE8 .. 1B1F SZC *R8,*R5 ;2BEA EX 4558 SZC *R4,@>2046(R5) ;2BEC IT F 4954 2046 SZC R12,@>4520(R5) ;2BF0 ILE 494C 4520 SZC R15,R13 ;2BF4 CO 434F SZCB *R9,R1 ;2BF6 PY 5059 MPY @>5858,R8 ;2BF8 : XX 3A20 5858 COC R6,R1 ;2BFC F 2046 SZC R12,@>4553(R5) ;2BFE ILES 494C 4553 COC R3,R1 ;2C02 C 2043 SZC *R0,*R13+ ;2C04 OP 4F50 SZC R5,@>4407(R5) ;2C06 IED. 4945 4407 BLWP @>4445 ;2C0A . DE 0420 4445 SZC R5,*R1+ ;2C0E LE 4C45 SZCB R5,*R1 ;2C10 TE 5445 SZC R4,*R0 ;2C12 D. 4404 _DELETE SZC R5,*R1 ;2C14 DE 4445 SZC R5,*R1+ ;2C16 LE 4C45 SZCB R5,*R1 ;2C18 TE 5445 COC R4,R0 ;2C1A . 2004 EXIT_DELETE: JH >2C40 ;2C1C .. 1B11 S @$DELEOL(R2),R0 ;2C1E `".. 6022 1B0F JH >2C46 ;2C22 .. 1B11 JNE >2C6A ;2C24 ." 1622 JH >2C66 ;2C26 .. 1B1F SZC *R8,*R5 ;2C28 EX 4558 SZC *R4,@>2046(R5) ;2C2A IT F 4954 2046 SZC R12,@>4520(R5) ;2C2E ILE 494C 4520 SZC R5,*R1 ;2C32 DE 4445 SZC R5,*R1+ ;2C34 LE 4C45 SZCB R5,*R1 ;2C36 TE 5445 MPY @>5858,R8 ;2C38 : XX 3A20 5858 COC R6,R1 ;2C3C F 2046 SZC R12,@>4553(R5) ;2C3E ILES 494C 4553 COC R4,R1 ;2C42 D 2044 SZC R12,*R5 ;2C44 EL 454C SZC *R4,*R5 ;2C46 ET 4554 SZC R4,*R5 ;2C48 ED 4544 SETO R4 ;2C4A .. 0704 SHOW_WHERE_BAD_SECTOR_IS: JH >2C70 ;2C4C .. 1B11 S @$DELLIN(R9),R0 ;2C4E `).. 6029 1B13 JH >2C76 ;2C52 .. 1B11 S *R6+,R0 ;2C54 `6 6036 SZC R1,R9 ;2C56 BA 4241 SZC @>5345,*R0 ;2C58 D SE 4420 5345 SZC *R4,R13 ;2C5C CT 4354 SZC *R2,*R13+ ;2C5E OR 4F52 COC *R13+,R0 ;2C60 = 203D BAD_SECTOR_LOC: COC R15,R1 ;2C62 O 204F SZC R6,*R9 ;2C64 FF 4646 DATA >0020 ;2C66 . 0020 COC @FINISH,R0 ;2C68 2020 2020 COC @>2053,R0 ;2C6C S 2020 2053 SZCB R1,*R1 ;2C70 TA 5441 SZCB *R5,*R1 ;2C72 TU 5455 SZCB @>3D20,R12 ;2C74 S = 5320 3D20 ERROR_STATUS: DATA >0000 ;2C78 .. 0000 SLA R13,0 ;2C7A .. 0A0D BLWP *R11 ;2C7C .. 041B JLT >2D40 ;2C7E .` 1160 COC *R11,R8 ;2C80 ". 221B DATA >0F1B ;2C82 .. 0F1B JLT >2CB4 ;2C84 .. 1117 COC *R11,R8 ;2C86 ". 221B TB >0045 ;2C88 .E 1F45 SZC R4,*R9+ ;2C8A ND 4E44 COC R13,R1 ;2C8C M 204D SZC R4,*R5 ;2C8E ED 4544 SZC R1,@>2056(R5) ;2C90 IA V 4941 2056 SZC *R2,*R5 ;2C94 ER 4552 SZC R6,@>593A(R5) ;2C96 IFY: 4946 593A COC *R8,R1 ;2C9A X 2058 SZCB @>4241,@>4420 ;2C9C X BAD 5820 4241 4420 SZCB R5,R13 ;2CA2 SE 5345 SZC *R4,R13 ;2CA4 CT 4354 SZC *R2,*R13+ ;2CA6 OR 4F52 SZCB R7,R12 ;2CA8 S. 5307 B R4 ;2CAA .D 0444 SZC *R2,@>4543(R5) ;2CAC IREC 4952 4543 SZCB R15,*R1 ;2CB0 TO 544F SZCB *R9,R9 ;2CB2 RY 5259 COC R15,R1 ;2CB4 O 204F SZC @>2D0E,*R8 ;2CB6 F -. 4620 2D0E SB *R12+,*R14 ;2CBA w. 77BC MOV @>2D0E,@FINISH ;2CBC . -. C820 2D0E 2020 COC @>4352,R0 ;2CC2 CR 2020 4352 SZC R1,*R5 ;2CC6 EA 4541 SZCB R5,*R1 ;2CC8 TE 5445 SZC @>4F4E,*R0 ;2CCA D ON 4420 4F4E COC R0,R0 ;2CCE . 2000 A R12,R1 ;2CD0 .L A04C MOV R1,@>77C4 ;2CD2 ..w. C801 77C4 DATA >0020 ;2CD6 . 0020 COC @>424C,R0 ;2CD8 BL 2020 424C SZC R3,*R13+ ;2CDC OC 4F43 SZC @>77C0,@>A8A1(R12) ;2CDE K w... 4B20 77C0 A8A1 DATA >0054 ;2CE4 .T 0054 SZCB *R0,@>4520(R5) ;2CE6 YPE 5950 4520 COC @>4441,R0 ;2CEA DA 2020 4441 SZCB R5,*R1 ;2CEE TE 5445 COC @FINISH,R0 ;2CF0 2020 2020 COC @>204E,R0 ;2CF4 N 2020 204E SZC R13,R5 ;2CF8 AM 414D SZC @FINISH,*R4 ;2CFA E 4520 2020 COC @>4241,R0 ;2CFE BA 2020 4241 SZCB R5,R13 ;2D02 SE 5345 COC @FINISH,R0 ;2D04 2020 2020 SZC R12,R5 ;2D08 AL 414C SZC R3,*R13+ ;2D0A OC 4F43 COC @FINISH,R0 ;2D0C 2020 2020 SZCB R5,R9 ;2D10 RE 5245 SZC R12,R13 ;2D12 CL 434C COC @FINISH,R0 ;2D14 2020 2020 SZCB R9,R13 ;2D18 SI 5349 SZCB R5,@$DSK_DEL(R9) ;2D1A ZE.. 5A45 0002 DATA >003C ;2D1E .< 003C COC R5,R1 ;2D20 E 2045 SZC R4,*R9+ ;2D22 ND 4E44 COC *R14+,R0 ;2D24 > 203E AFTER_DIRECTORY_END: MOV @>001B,@>1160 ;2D26 . ...` C820 001B 1160 XOR *R11,R4 ;2D2C ). 291B JOC >2D38 ;2D2E .. 1804 FNAME_BUFFER: SLA R1,1 ;2D30 .. 0A11 A @>7812,R1 ;2D32 .`x. A060 7812 CLR @>FFFE(R1) ;2D36 .... 04E1 FFFE INC @>780A ;2D3A ..x. 05A0 780A C @>780A,@>2D9E ;2D3E . x.-. 8820 780A 2D9E JLE >2D2C ;2D44 .. 12F3 CLR @>780C ;2D46 ..x. 04E0 780C BLWP @>2850 ;2D4A . (P 0420 2850 DATA >0004 ;2D4E .. 0004 SB *R1,@>7813 ;2D50 x.x. 7811 7813 XOP *R12,6 ;2D54 -. 2D9C SB R12,@>C0A0 ;2D56 x... 780C C0A0 SB R12,@>131E ;2D5A x... 780C 131E BLWP @SHOW_10_FILES ;2D5E . %^ 0420 255E DATA >0000 ;2D62 .. 0000 BLWP @>34FA ;2D64 . 4. 0420 34FA DATA >0007 ;2D68 .. 0007 SB *R6+,*R15 ;2D6A w. 77F6 XOP *R12,6 ;2D6C -. 2D9C XOP @>065C,6 ;2D6E -..\ 2DA0 065C XOP @>2DA0(R2),6 ;2D72 -.-. 2DA2 2DA0 SB R14,@>0420 ;2D76 x.. 780E 0420 STCR *R10+,3 ;2D7A 4. 34FA DATA >0007 ;2D7C .. 0007 SB *R1,@>2D9C ;2D7E x.-. 7811 2D9C XOP @>A05C(R4),6 ;2D82 -..\ 2DA4 A05C END