URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [dump/] [dump_cf8.lst] - Rev 66
Compare with Previous | Blame | View Log
Assembler release DWC_2.0 version 2.11May 6, 2004 (c) Motorola (free ware)0001 *0002 * Sector Dump Utility0003 * For Compact Flash Driver0004 * for the 68090005 * Configured in 8 bit mode0006 *0007 * John Kent0008 * 21 May 20070009 *0010 * Register Equates0011 *0012 E040 CF_BASE EQU $E0400013 E040 CF_DATA EQU CF_BASE+00014 E041 CF_ERROR EQU CF_BASE+1 ; read error0015 E041 CF_FEATURE EQU CF_BASE+1 ; write feature0016 E042 CF_SECCNT EQU CF_BASE+20017 E043 CF_SECNUM EQU CF_BASE+30018 E044 CF_CYLLO EQU CF_BASE+40019 E045 CF_CYLHI EQU CF_BASE+50020 E046 CF_HEAD EQU CF_BASE+60021 E047 CF_STATUS EQU CF_BASE+7 ; read status0022 E047 CF_COMAND EQU CF_BASE+7 ; write command0023 *0024 * Command Equates0025 *0026 0020 CMDREAD EQU $20 ; Read Single sector0027 0030 CMDWRITE EQU $30 ; Write Single sector0028 00EF CMDFEATURE EQU $EF0029 0001 FEAT8BIT EQU $01 ; enable 8 bit transfers0030 00E0 HEADLBA EQU $E00031 *0032 * Status bit equates0033 *0034 0080 BUSY EQU $800035 0040 DRDY EQU $400036 0008 DRQ EQU $080037 0001 ERR EQU $010038 *0039 * Start of Program0040 *0041 0100 ORG $01000042 0100 16 02 46 START LBRA START10043 *0044 * DATA STORAGE0045 *0046 0103 00 00 00 SECNUM FCB $00,$00,$000047 0106 E0 00 CPORT FDB $E0000048 0108 FF ECHO FCB $FF0049 *0050 * SECTOR BUFFER0051 *0052 0109 SECBUF RMB 5120053 *0054 * PROGRAM STACK0055 *0056 0309 RMB 640057 0349 STACK EQU *0058 *0059 * Initialization0060 *0061 0349 10 CE 03 49 START1 LDS #STACK0062 *0063 * Clear sector buffer0064 *0065 034D 8E 01 09 LDX #SECBUF0066 0350 10 8E 02 00 LDY #5120067 0354 6F 80 ZEROLP CLR ,X+0068 0356 31 3F LEAY -1,Y0069 0358 26 FA BNE ZEROLP0070 *0071 * INITIALIZE CF CARD FOR 8 BIT LBA MODE0072 *0073 035A BD 04 64 JSR WAITRDY0074 035D 86 E0 LDA #HEADLBA0075 035F B7 E0 46 STA CF_HEAD0076 0362 BD 04 64 JSR WAITRDY0077 0365 86 01 LDA #FEAT8BIT0078 0367 B7 E0 41 STA CF_FEATURE0079 036A 86 EF LDA #CMDFEATURE0080 036C B7 E0 47 STA CF_COMAND0081 036F BD 04 64 JSR WAITRDY0082 *0083 * DISPLAY TITTLE BANNER0084 *0085 0372 8E 06 4E LDX #TTLMSG0086 0375 BD 05 FB JSR PDATA0087 *0088 * COMMAND LOOP0089 * R - READ0090 * W - WRITE0091 * N - NEXT0092 * P - PREV0093 * M - MODIFY0094 * Q - QUIT0095 *0096 0378 8E 06 78 CMDLP LDX #CMDMSG0097 037B BD 05 FB JSR PDATA0098 037E BD 06 02 JSR ECHON0099 0381 81 52 CMPA #'R'0100 0383 27 4A BEQ READ0101 0385 81 4E CMPA #'N'0102 0387 27 23 BEQ NEXT0103 0389 81 50 CMPA #'P'0104 038B 27 2E BEQ PREV0105 038D 81 57 CMPA #'W'0106 038F 10 27 00 88 LBEQ WRITE0107 0393 81 4D CMPA #'M'0108 0395 27 10 BEQ MODIFY0109 0397 81 51 CMPA #'Q'0110 0399 27 08 BEQ QUIT0111 039B 8E 07 31 LDX #WOTMSG0112 039E BD 05 EC JSR PSTRNG0113 03A1 20 D5 BRA CMDLP0114 *0115 * QUIT0116 *0117 03A3 6E 9F F8 00 QUIT JMP [$F800]0118 *0119 * MODIFY SECTOR0120 *0121 03A7 BD 04 F3 MODIFY JSR MEMCHG0122 03AA 20 CC BRA CMDLP0123 *0124 * NEXT SECTOR (READ)0125 * INCREMENT SECTOR NUMBER0126 * WRAPS AROUND TO ZERO ON $FFFFFF0127 *0128 03AC BE 01 04 NEXT LDX SECNUM+10129 03AF 30 01 LEAX 1,X0130 03B1 BF 01 04 STX SECNUM+10131 03B4 26 2A BNE READS0132 03B6 7C 01 03 INC SECNUM0133 03B9 20 25 BRA READS0134 *0135 * PREVIOUS SECTOR (READ)0136 * DECREMENT SECTOR NUMBER0137 * DON'T DECREMENT PAST $0000000138 *0139 03BB BE 01 04 PREV LDX SECNUM+10140 03BE 26 08 BNE PREV10141 03C0 7D 01 03 TST SECNUM0142 03C3 27 1B BEQ READS0143 03C5 7A 01 03 DEC SECNUM0144 03C8 30 1F PREV1 LEAX -1,X0145 03CA BF 01 04 STX SECNUM+10146 03CD 20 11 BRA READS0147 *0148 * READ SECTORS FROM CF0149 *0150 03CF 8E 06 DF READ LDX #SECPMT0151 03D2 BD 05 EC JSR PSTRNG0152 03D5 BD 05 59 JSR IN6HEX0153 03D8 29 3E BVS RDEXIT0154 03DA F7 01 03 STB SECNUM0155 03DD BF 01 04 STX SECNUM+10156 *0157 03E0 86 01 READS LDA #$010158 03E2 B7 E0 42 STA CF_SECCNT0159 03E5 B6 01 05 LDA SECNUM+20160 03E8 B7 E0 43 STA CF_SECNUM0161 03EB B6 01 04 LDA SECNUM+10162 03EE B7 E0 44 STA CF_CYLLO0163 03F1 B6 01 03 LDA SECNUM+00164 03F4 B7 E0 45 STA CF_CYLHI0165 *0166 03F7 86 20 LDA #CMDREAD ; IDE READ MULTIPLE0167 03F9 B7 E0 47 STA CF_COMAND0168 03FC BD 04 64 JSR WAITRDY0169 *0170 03FF 8E 01 09 LDX #SECBUF0171 0402 10 8E 02 00 LDY #5120172 *0173 * READ LOOP0174 *0175 0406 BD 04 73 RDLOOP JSR WAITDRQ0176 0409 B6 E0 40 LDA CF_DATA0177 040C A7 80 STA ,X+0178 040E 31 3F LEAY -1,Y0179 0410 26 F4 BNE RDLOOP0180 *0181 0412 BD 04 64 JSR WAITRDY0182 0415 BD 04 7B JSR MEMDUMP0183 0418 7E 03 78 RDEXIT JMP CMDLP0184 *0185 * WRITE SECTOR TO CF0186 *0187 041B 8E 06 DF WRITE LDX #SECPMT0188 041E BD 05 EC JSR PSTRNG0189 0421 BD 05 59 JSR IN6HEX0190 0424 29 3B BVS WREXIT0191 0426 F7 01 03 STB SECNUM0192 0429 BF 01 04 STX SECNUM+10193 *0194 042C 86 01 LDA #$010195 042E B7 E0 42 STA CF_SECCNT0196 0431 B6 01 05 LDA SECNUM+20197 0434 B7 E0 43 STA CF_SECNUM0198 0437 B6 01 04 LDA SECNUM+10199 043A B7 E0 44 STA CF_CYLLO0200 043D B6 01 03 LDA SECNUM+00201 0440 B7 E0 45 STA CF_CYLHI0202 *0203 0443 86 30 LDA #CMDWRITE; IDE WRITE MULTIPLE0204 0445 B7 E0 47 STA CF_COMAND0205 0448 BD 04 64 JSR WAITRDY0206 *0207 044B 8E 01 09 LDX #SECBUF0208 044E 10 8E 02 00 LDY #5120209 *0210 * WRITE LOOP0211 *0212 0452 BD 04 73 WRLOOP JSR WAITDRQ0213 0455 A6 80 LDA ,X+0214 0457 B7 E0 40 STA CF_DATA0215 045A 31 3F LEAY -1,Y0216 045C 26 F4 BNE WRLOOP0217 *0218 045E BD 04 64 JSR WAITRDY0219 0461 7E 03 78 WREXIT JMP CMDLP0220 *0221 * WAIT UNTIL READY0222 *0223 0464 B6 E0 47 WAITRDY LDA CF_STATUS0224 0467 85 80 BITA #BUSY0225 0469 26 F9 BNE WAITRDY0226 046B B6 E0 47 LDA CF_STATUS0227 046E 85 40 BITA #DRDY0228 0470 27 F2 BEQ WAITRDY0229 0472 39 RTS0230 *0231 * WAIT FOR DATA REQUEST0232 *0233 0473 B6 E0 47 WAITDRQ LDA CF_STATUS0234 0476 85 08 BITA #DRQ0235 0478 27 F9 BEQ WAITDRQ0236 047A 39 RTS0237 *0238 * DUMP SECTOR IN MEMORY0239 *0240 047B 8E 06 F8 MEMDUMP LDX #SECMSG0241 047E BD 05 EC JSR PSTRNG0242 0481 B6 01 03 LDA SECNUM0243 0484 BD 05 C1 JSR OUT2H0244 0487 BE 01 04 LDX SECNUM+10245 048A BD 05 B9 JSR OUT4H0246 048D BD 05 F0 JSR PCRLF0247 0490 10 8E 00 00 LDY #$00000248 0494 30 A9 01 FF LEAX #$1FF,Y0249 *0250 * ADJUST LOWER AND UPPER ADDRESS LIMITS0251 * TO EVEN 16 BYTE BOUNDRIES.0252 *0253 * IF LOWER ADDR = $45320254 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530.0255 *0256 * IF UPPER ADDR = $45670257 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570.0258 *0259 * ENTER WITH LOWER ADDRESS IN X-REG.0260 * -UPPER ADDRESS ON TOP OF STACK.0261 *0262 0498 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG0263 049A C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS0264 049D C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY0265 049F 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT0266 04A1 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG0267 04A3 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY0268 04A5 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT0269 04A7 AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT0270 04A9 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP0271 04AB 17 01 6E LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD0272 04AE 27 03 BEQ EDUMP0273 04B0 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING0274 04B2 39 RTS ;0275 *0276 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS0277 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS.0278 *0279 04B3 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK0280 04B5 8E 07 25 LDX #MSG5 POINT TO MSG " - "0281 04B8 17 01 31 LBSR PSTRNG PRINT MSG0282 04BB AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK0283 04BD 17 00 F9 LBSR OUT4H PRINT THE ADDRESS0284 04C0 17 01 63 LBSR OUT2S 2 SPACES0285 04C3 C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP0286 04C5 A6 89 01 09 ELOOP LDA SECBUF,X GET FROM MEMORY HEX BYTE TO PRINT0287 04C9 30 01 LEAX 1,X0288 04CB 17 00 F3 LBSR OUT2H OUTPUT HEX BYTE AS ASCII0289 04CE 17 01 57 LBSR OUT1S OUTPUT SPACE0290 04D1 5A DECB $F9D1 DECREMENT BYTE COUNT0291 04D2 26 F1 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED0292 *0293 * PRINT 16 ASCII CHARACTERS0294 * IF NOT PRINTABLE OR NOT VALID0295 * ASCII PRINT A PERIOD (.)0296 04D4 17 01 4F LBSR OUT2S 2 SPACES0297 04D7 AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK0298 04D9 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 160299 04DB A6 89 01 09 EDPASC LDA SECBUF,X GET CHARACTER FROM MEMORY0300 04DF 30 01 LEAX 1,X0301 04E1 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE?0302 04E3 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD0303 04E5 81 7E CMPA #$7E IS IT VALID ASCII?0304 04E7 23 02 BLS PRASC IF SO PRINT IT0305 04E9 86 2E PERIOD LDA #'. LOAD A PERIOD (.)0306 04EB 17 01 3C PRASC LBSR OUTCH PRINT ASCII CHARACTER0307 04EE 5A DECB DECREMENT COUNT0308 04EF 26 EA BNE EDPASC0309 04F1 20 B4 BRA NXTLIN0310 *0311 *0312 ***** "M" MEMORY EXAMINE AND CHANGE *****0313 *0314 * RESTRICT ADDRESSING RANGE TO 512 BYTES ($000 - $1FF)0315 *0316 04F3 8E 07 0A MEMCHG LDX #MEMMSG0317 04F6 BD 05 EC JSR PSTRNG0318 04F9 17 00 74 LBSR IN3HEX INPUT ADDRESS0319 04FC 29 34 BVS CHRTN IF NOT HEX, RETURN0320 04FE 8C 02 00 CMPX #$02000321 0501 24 2F BHS CHRTN0322 0503 1F 12 TFR X,Y SAVE ADDR IN "Y"0323 0505 8E 07 25 MEMC2 LDX #MSG5 POINT TO MSG " - "0324 0508 17 00 E1 LBSR PSTRNG PRINT MSG0325 050B 1F 21 TFR Y,X FETCH ADDRESS0326 050D 17 00 A9 LBSR OUT4H PRINT ADDR IN HEX0327 0510 17 01 15 LBSR OUT1S OUTPUT SPACE0328 0513 A6 A9 01 09 LDA SECBUF,Y GET CONTENTS OF CURRENT ADDR.0329 0517 17 00 A7 LBSR OUT2H OUTPUT CONTENTS IN ASCII0330 051A 17 01 0B LBSR OUT1S OUTPUT SPACE0331 051D 17 00 60 LBSR BYTE LOOP WAITING FOR OPERATOR INPUT0332 0520 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC.0333 0522 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)?0334 0524 27 DF BEQ MEMC2 PROMPT OPERATOR AGAIN0335 0526 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)?0336 0528 27 DB BEQ MEMC2 PROMPT OPERATOR AGAIN0337 052A 81 5E CMPA #'^ IS IT AN UP ARROW?0338 052C 27 21 BEQ BACK DISPLAY PREVIOUS BYTE0339 052E 81 0D CMPA #$D IS IT A CR?0340 0530 26 13 BNE FORWRD DISPLAY NEXT BYTE0341 0532 39 CHRTN RTS EXIT ROUTINE0342 *0343 *0344 0533 A7 A9 01 09 CHANGE STA SECBUF,Y CHANGE BYTE IN MEMORY0345 0537 A1 A9 01 09 CMPA SECBUF,Y DID MEMORY BYTE CHANGE?0346 053B 27 08 BEQ FORWRD $F9720347 053D 17 00 E8 LBSR OUT1S OUTPUT SPACE0348 0540 86 3F LDA #'? LOAD QUESTION MARK0349 0542 17 00 E5 LBSR OUTCH PRINT IT0350 0545 10 8C 01 FF FORWRD CMPY #$01FF0351 0549 27 BA BEQ MEMC20352 054B 31 21 LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION0353 054D 20 B6 BRA MEMC2 PRINT LOCATION & CONTENTS0354 054F 10 8C 00 00 BACK CMPY #$00000355 0553 27 B0 BEQ MEMC20356 0555 31 3F LEAY -1,Y POINT TO LAST MEM LOCATION0357 0557 20 AC BRA MEMC2 PRINT LOCATION & CONTENTS0358 *0359 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE0360 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE0361 * ADDRESS IS RETURNED IN THE "X" REGISTER.0362 *0363 * IN6HEX - MS BYTE IN ACCB0364 * LS WORD IN X REG0365 *0366 0559 32 7D IN6HEX LEAS -3,S0367 055B 8D 23 BSR BYTE0368 055D 29 57 BVS NOTHEX0369 055F A7 E4 STA 0,S0370 0561 8D 1D BSR BYTE0371 0563 29 51 BVS NOTHEX0372 0565 A7 61 STA 1,S0373 0567 8D 17 BSR BYTE0374 0569 29 4B BVS NOTHEX0375 056B A7 62 STA 2,S0376 056D 4F CLRA0377 056E 35 94 PULS B,X,PC0378 *0379 * INPUT 3 HEX DIGITS0380 * RESULT RETURNED IN X0381 *0382 0570 8D 21 IN3HEX BSR INHEX INPUT HEX (1 HEX CHAR)0383 0572 29 42 BVS NOTHEX EXIT IF NOT VALID HEX0384 0574 1F 01 TFR D,X0385 0576 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR)0386 0578 29 3C BVS NOTHEX0387 057A 34 10 PSHS X0388 057C A7 61 STA 1,S0389 057E 35 90 PULS X,PC0390 *0391 ***** INPUT BYTE (2 HEX CHAR.) *****0392 *0393 0580 8D 11 BYTE BSR INHEX GET HEX LEFT0394 0582 29 32 BVS NOTHEX EXIT IF NOT VALID HEX0395 0584 48 ASLA ;0396 0585 48 ASLA ;0397 0586 48 ASLA ; SHIFT INTO LEFT NIBBLE0398 0587 48 ASLA ;0399 0588 1F 89 TFR A,B PUT HEXL IN "B"0400 058A 8D 07 BSR INHEX GET HEX RIGHT0401 058C 29 28 BVS NOTHEX EXIT IF NOT VALID HEX0402 058E 34 04 PSHS B PUSH HEXL ON STACK0403 0590 AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK0404 0592 39 RTS RETURN WITH HEX L&R IN "A"0405 *0406 *0407 0593 8D 6D INHEX BSR ECHON INPUT ASCII CHAR.0408 0595 81 30 CMPA #'0 IS IT > OR = "0" ?0409 0597 25 1D BCS NOTHEX IF LESS IT AIN'T HEX0410 0599 81 39 CMPA #'9 IS IT < OR = "9" ?0411 059B 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA0412 059D 80 30 SUBA #$30 ASCII ADJ. NUMERIC0413 059F 39 RTS ;0414 *0415 *0416 05A0 81 41 INHEXA CMPA #'A IS IT > OR = "A"0417 05A2 25 12 BCS NOTHEX IF LESS IT AIN'T HEX0418 05A4 81 46 CMPA #'F IS IT < OR = "F" ?0419 05A6 22 03 BHI INHEXL IF > IT AIN'T HEX0420 05A8 80 37 SUBA #$37 ASCII ADJ. ALPHA0421 05AA 39 RTS ;0422 *0423 05AB 81 61 INHEXL CMPA #'a IS IT > OR = "a"0424 05AD 25 07 BCS NOTHEX IF LESS IT AIN'T HEX0425 05AF 81 66 CMPA #'f IS IT < "f"0426 05B1 22 03 BHI NOTHEX IF > IT AIN'T HEX0427 05B3 80 57 SUBA #$57 ADJUST TO LOWER CASE0428 05B5 39 RTS ;0429 *0430 *0431 05B6 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER0432 05B8 39 RTS ;0433 *0434 *0435 05B9 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK0436 05BB 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC.0437 05BD 8D 02 BSR OUTHL OUTPUT HEX LEFT0438 05BF 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC.0439 05C1 OUTHL EQU *0440 05C1 34 02 OUT2H PSHS A SAVE IT BACK ON STACK0441 05C3 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII0442 05C4 44 LSRA ;0443 05C5 44 LSRA ;0444 05C6 44 LSRA ;0445 05C7 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII0446 05C9 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII0447 05CB 84 0F ANDA #$0F STRIP LEFT NIBBLE0448 05CD 8B 30 XASCII ADDA #$30 ASCII ADJ0449 05CF 81 39 CMPA #$39 IS IT < OR = "9" ?0450 05D1 2F 02 BLE OUTC IF LESS, OUTPUT IT0451 05D3 8B 07 ADDA #7 IF > MAKE ASCII LETTER0452 05D5 20 53 OUTC BRA OUTCH OUTPUT CHAR0453 *0454 * BINARY / ASCII --- THIS ROUTINE0455 * OUTPUTS A BYTE IN ENHANCED0456 * BINARY FORMAT. THE ENHANCEMENT0457 * IS DONE BY SUBSTITUTING ASCII0458 * LETTERS FOR THE ONES IN THE BYTE.0459 * THE ASCII ENHANCEMENT LETTERS0460 * ARE OBTAINED FROM THE STRING0461 * POINTED TO BY THE INDEX REG. "X".0462 *0463 05D7 34 02 BIASCI PSHS A SAVE "A" ON STACK0464 05D9 C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE0465 05DB A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING0466 05DD 68 E4 ASL ,S TEST BYTE FOR "1" IN B70467 05DF 25 02 BCS PRTBA IF ONE PRINT LETTER0468 05E1 86 2D LDA #'- IF ZERO PRINT "-"0469 05E3 8D 45 PRTBA BSR OUTCH PRINT IT0470 05E5 8D 41 BSR OUT1S PRINT SPACE0471 05E7 5A DECB SUB 1 FROM #BITS YET TO PRINT0472 05E8 26 F1 BNE OUTBA0473 05EA 35 82 PULS A,PC0474 *0475 * PRINT STRING PRECEEDED BY A CR & LF.0476 *0477 05EC 8D 02 PSTRNG BSR PCRLF PRINT CR/LF0478 05EE 20 0B BRA PDATA PRINT STRING POINTED TO BY IX0479 *0480 * PCRLF0481 *0482 05F0 34 10 PCRLF PSHS X SAVE IX0483 05F2 8E 07 2A LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS0484 05F5 8D 04 BSR PDATA PRINT MSG0485 05F7 35 90 PULS X,PC RESTORE IX0486 05F9 8D 2F PRINT BSR OUTCH0487 *0488 * PDATA0489 *0490 05FB A6 80 PDATA LDA ,X+ GET 1st CHAR. TO PRINT0491 05FD 81 04 CMPA #4 IS IT EOT?0492 05FF 26 F8 BNE PRINT IF NOT EOT PRINT IT0493 0601 39 RTS ;0494 *0495 *0496 0602 7D 01 08 ECHON TST ECHO IS ECHO REQUIRED ?0497 0605 27 06 BEQ INCH ECHO NOT REQ. IF CLEAR0498 *0499 * INCHE0500 *0501 * ---GETS CHARACTER FROM TERMINAL AND0502 * ECHOS SAME. THE CHARACTER IS RETURNED0503 * IN THE "A" ACCUMULATOR WITH THE PARITY0504 * BIT MASKED OFF. ALL OTHER REGISTERS0505 * ARE PRESERVED.0506 *0507 0607 8D 04 INCHE BSR INCH GET CHAR FROM TERMINAL0508 0609 84 7F ANDA #$7F STRIP PARITY FROM CHAR.0509 060B 20 1D BRA OUTCH ECHO CHAR TO TERMINAL0510 *0511 * INCH0512 *0513 * GET CHARACTER FROM TERMINAL. RETURN0514 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE0515 * ALL OTHER REGISTERS. THE INPUT CHARACTER0516 * IS 8 BITS AND IS NOT ECHOED.0517 *0518 *0519 060D 34 10 INCH PSHS X SAVE IX0520 060F BE 01 06 GETSTA LDX CPORT POINT TO TERMINAL PORT0521 0612 A6 84 LDA ,X FETCH PORT STATUS0522 0614 85 01 BITA #1 TEST READY BIT, RDRF ?0523 0616 27 F7 BEQ GETSTA IF NOT RDY, THEN TRY AGAIN0524 0618 A6 01 GETST1 LDA 1,X FETCH CHAR0525 061A 35 90 PULS X,PC RESTORE IX0526 *0527 * INCHEK0528 *0529 * CHECK FOR A CHARACTER AVAILABLE FROM0530 * THE TERMINAL. THE SERIAL PORT IS CHECKED0531 * FOR READ READY. ALL REGISTERS ARE0532 * PRESERVED, AND THE "Z" BIT WILL BE0533 * CLEAR IF A CHARACTER CAN BE READ.0534 *0535 *0536 061C 34 02 INCHEK PSHS A SAVE A ACCUM.0537 061E A6 9F 01 06 LDA [CPORT] FETCH PORT STATUS0538 0622 85 01 BITA #1 TEST READY BIT, RDRF ?0539 0624 35 82 INCHEK1 PULS A,PC RESTORE A ACCUM.0540 *0541 0626 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES0542 0628 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE0543 *0544 *0545 * OUTCH0546 *0547 * OUTPUT CHARACTER TO TERMINAL.0548 * THE CHAR. TO BE OUTPUT IS0549 * PASSED IN THE A REGISTER.0550 * ALL REGISTERS ARE PRESERVED.0551 *0552 062A 34 12 OUTCH PSHS A,X SAVE A ACCUM AND IX0553 062C BE 01 06 LDX CPORT GET ADDR. OF TERMINAL0554 062F A6 84 FETSTA LDA ,X FETCH PORT STATUS0555 0631 85 02 BITA #2 TEST TDRE, OK TO XMIT ?0556 0633 27 FA BEQ FETSTA IF NOT LOOP UNTIL RDY0557 0635 35 02 PULS A GET CHAR. FOR XMIT0558 0637 A7 01 STA 1,X XMIT CHAR.0559 0639 35 90 PULS X,PC RESTORE IX0560 *0561 *0562 063B BE 01 06 ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS0563 063E 86 03 LDA #3 RESET ACIA PORT CODE0564 0640 A7 84 STA ,X STORE IN CONTROL REGISTER0565 0642 86 11 LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY0566 0644 A7 84 STA ,X STORE IN CONTROL REGISTER0567 0646 6D 01 TST 1,X ANYTHING IN DATA REGISTER?0568 0648 86 FF LDA #$FF TURN ON ECHO FLAG0569 064A B7 01 08 STA ECHO0570 064D 39 RTS0571 *0572 * MESSAGE STRINGS0573 *0574 064E 0A 0D TTLMSG FCB $0A,$0D0575 0650 43 4F 4D 50 41 43 FCC "COMPACT FLASH SECTOR READ/WRITE UTILITY"54 20 46 4C 41 5348 20 53 45 43 544F 52 20 52 45 4144 2F 57 52 49 5445 20 55 54 49 4C49 54 590576 0677 04 FCB $040577 0678 0A 0D CMDMSG FCB $0A,$0D0578 067A 28 52 29 20 52 45 FCC "(R) READ SECTOR"41 44 20 53 45 4354 4F 520579 0689 0A 0D FCB $0A,$0D0580 068B 28 57 29 20 57 52 FCC "(W) WRITE SECTOR"49 54 45 20 53 4543 54 4F 520581 069B 0A 0D FCB $0A,$0D0582 069D 28 4E 29 20 4E 45 FCC "(N) NEXT SECTOR"58 54 20 53 45 4354 4F 520583 06AC 0A 0D FCB $0A,$0D0584 06AE 28 50 29 20 50 52 FCC "(P) PREV SECTOR"45 56 20 53 45 4354 4F 520585 06BD 0A 0D FCB $0A,$0D0586 06BF 28 4D 29 20 4D 4F FCC "(M) MODIFY SECTOR"44 49 46 59 20 5345 43 54 4F 520587 06D0 0A 0D FCB $0A,$0D0588 06D2 28 51 29 20 51 55 FCC "(Q) QUIT"49 540589 06DA 0A 0D FCB $0A,$0D0590 06DC 3A 20 FCC ": "0591 06DE 04 FCB $040592 06DF 53 45 43 54 4F 52 SECPMT FCC "SECTOR NUMBER (6 HEX) : "20 4E 55 4D 42 4552 20 28 36 20 4845 58 29 20 3A 200593 06F7 04 FCB $040594 06F8 53 45 43 54 4F 52 SECMSG FCC "SECTOR NUMBER - $"20 4E 55 4D 42 4552 20 2D 20 240595 0709 04 FCB $040596 070A 0D 0A MEMMSG FCB $0D,$0A0597 070C 4D 45 4D 4F 52 59 FCC "MEMORY ADDRESS (3 HEX): "20 41 44 44 52 4553 53 20 28 33 2048 45 58 29 3A 200598 0724 04 FCB $040599 0725 20 2D 20 MSG5 FCC " - "0600 0728 04 FCB $040601 0729 00 00 0A 0D 00 00 MSG2 FCB $00,$00,$0A,$0D,$00,$00,$00,$0400 040602 0731 57 68 61 74 20 3F WOTMSG FCC "What ?"0603 0737 0D 0A 04 FCB $0D,$0A,$040604 *0605 END STARTProgram + Init Data = 1018 bytesError count = 0