head 1.3; access; symbols; locks; strict; comment @# @; 1.3 date 2008.03.14.15.26.38; author dilbert57; state dead; branches; next 1.2; commitid 509c47da99224567; 1.2 date 2008.01.08.01.59.10; author dilbert57; state Exp; branches; next 1.1; commitid 797a4782d8ba4567; 1.1 date 2007.12.09.16.06.10; author dilbert57; state Exp; branches; next ; commitid 15a2475c11894567; desc @@ 1.3 log @Removing old source code @ text @Assembler release DWC_2.0 version 2.11 May 6, 2004 (c) Motorola (free ware) 0001 * NAM SYS09BUG12 SYSTEM09 MONITOR 0002 OPT l sys09bug.txt page 2 0004 * 0005 * MONITOR PROGRAM FOR THE SOUTHWEST TECHNICAL 0006 * PRODUCTS MP-09 CPU BOARD AS COMMENTED BY.... 0007 * 0008 * ALLEN CLARK WALLACE WATSON 0009 * 2502 REGAL OAKS LANE 4815 EAST 97th AVE. 0010 * LUTZ, FLA. 33549 TEMPLE TERRACE, FLA. 33617 0011 * PH. 813-977-0347 PH. 813-985-1359 0012 * 0013 * MODIFIED TO SBUG09 VER 1.8 BY: RANDY JARRETT 0014 * 2561 NANTUCKET DR APT. E 0015 * ATLANTA, GA 30345 0016 * PH. 404-320-1043 0017 * 0018 * MODIFIED TO SYS09BUG VER 1.0 0019 * FOR: SYSTEM09 FPGA SYSTEM 0020 * BY: JOHN KENT 0021 * DATE: 21ST NOVEMBER 2006 0022 * REMOVED: DISK BOOTS 0023 * MEMORY TEST 0024 * ADDED: ADM3A VDU DRIVER 0025 * 0026 * MODIFIED TO SYS09BUG VER 1.1 0027 * FOR: SYSTEM09 FPGA SYSTEM 0028 * BY: JOHN KENT 0029 * DATE: 7TH JANUARY 2007 0030 * ADDED: 'U' USER EXTENTION COMMANDS AT $F000 0031 * CONDITIONAL ASSEMBLY OF FLOPPY BOOTS 0032 * AND REALTIME CLOCK 0033 * 0034 * MODIFIED TO SYS09BUG VER 1.2 0035 * FOR: SYSTEM09 FPGA SYSTEM 0036 * BY: JOHN KENT 0037 * DATE: 21ST MAY 2007 0038 * ADDED: COMPACT FLASH BOOT TO FPGA VERSION 0039 * REMOVED PORT REDIRECTION ON PUNCH & LOAD 0040 * 0041 * Modified to SYS09BUG VER 1.3 0042 * FOR: SYSTEM09 FPGA SYSTEM 0043 * BY: JOHN KENT 0044 * DATE: 8TH JAN 2008 0045 * ADDED: CONDITIONALS FOR SPARTAN3E STARTER BOARD 0046 * WITH ONLY 32K OF RAM 0047 * 0048 * *** COMMANDS *** 0049 * 0050 * CONTROL A = ALTER THE "A" ACCUMULATOR 0051 * CONTROL B = ALTER THE "B" ACCUMULATOR 0052 * CONTROL C = ALTER THE CONDITION CODE REGISTER 0053 * CONTROL D = ALTER THE DIRECT PAGE REGISTER 0054 * CONTROL P = ALTER THE PROGRAM COUNTER 0055 * CONTROL U = ALTER USER STACK POINTER 0056 * CONTROL X = ALTER "X" INDEX REGISTER 0057 * CONTROL Y = ALTER "Y" INDEX REGISTER 0058 * B hhhh = SET BREAKPOINT AT LOCATION $hhhh 0059 * D = 5.25" MINIFLOPPY BOOT 0060 * E ssss-eeee = EXAMINE MEMORY 0061 * FROM STARTING ADDRESS ssss 0062 * TO ENDING ADDRESS eeee. 0063 * G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI 0064 * L = LOAD TAPE 0065 * M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh 0066 * P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR. 0067 * R = DISPLAY REGISTER CONTENTS 0068 * S = DISPLAY STACK FROM ssss TO $DFC0 0069 * U = 8" DMAF2 FLOPPY BOOT 0070 * U = USER EXTENSION COMMANDS AT $F000 0071 * X = REMOVE ALL BREAKPOINTS 0072 * 0073 * 0074 * 0075 *************************************************** 0076 * OPTION SWITCHES 0077 *************************************************** 0078 * 0079 * 0080 ** THE CONTROL PORT CAN ONLY BE ONE OF THESE 0081 ** NOTE THAT THE ACIA WILL ALWAYS BE PRESET 0082 ** FOR LOADING AND SAVING S1 RECORDS 0083 * 0084 *S3EOPT EQU $FF SPARTAN3E STARTER 0085 *FPGAOPT EQU $FF FPGA VIDEO & PS2 KEYBOARD 0086 *ADSOPT EQU $FF ADS6809 & DG640 VIDEO DISPAY 0087 00FF SWTPOPT EQU $FF SWTP ACIA SERIAL CONTROL PORT 0088 * 0089 *************************************************** 0090 * MEMORY MAP EQUATES * 0091 *************************************************** 0092 E000 MONIO EQU $E000 I/O SPACE 0093 IFD S3EOPT 0094 MONRAM EQU $7FC0 0095 ELSE 0096 DFC0 MONRAM EQU $DFC0 STACK SPACE 0097 ENDIF S3EOPT 0098 F800 MONROM EQU $F800 START OF ROM 0099 F000 MONEXT EQU $F000 START OF EXTENDED COMMANDS 0100 0000 EXTCMD EQU $00 EXTENDED OFFSET 0101 *************************************************** 0102 IFD S3EOPT 0103 ACIAOPT EQU $FF ACIA AT PORT 0 0104 PS2OPT EQU $FF PS2 KEYBOARD AT $E020 0105 VDUOPT EQU $FF VDU AT $E030 0106 TRAOPT EQU $FF PIA TRACE TIMER 0107 ENDIF S3EOPT 0107 ENDIF S3EOPT 0108 IFD FPGAOPT 0109 ACIAOPT EQU $FF ACIA AT PORT 0 0110 PS2OPT EQU $FF PS2 KEYBOARD AT $E020 0111 VDUOPT EQU $FF VDU AT $E030 0112 CFOPT EQU $FF COMPACT FLASH AT $E040 0113 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION 0114 ENDIF FPGAOPT 0114 ENDIF FPGAOPT 0115 * 0116 IFD ADSOPT 0117 DG640OPT EQU $FF DG640 VDU AT $E800 0118 *RTCOPT EQU $FF REAL TIME CLOCK 0119 PRTOPT EQU $FF PRINTER DRIVERS 0120 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT 0121 ENDIF ADSOPT 0121 ENDIF ADSOPT 0122 * 0123 IFD SWTPOPT 0124 00FF ACIAOPT EQU $FF ACIA AT PORT 0 0125 00FF DMAFOPT EQU $FF DMAF2 8" FLOPPY DISK BOOT 0126 00FF MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT 0127 00FF DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION 0128 ENDIF 0129 * 0130 *************************************************** 0131 * SYS09BUG VARIABLE SPACE 0132 *************************************************** 0133 * 0134 DFC0 ORG MONRAM 0135 DFC0 STACK EQU * TOP OF INTERNAL STACK 0136 DFC0 NMI RMB 2 USER NMI VECTOR 0137 DFC2 SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #3 0138 DFC4 SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #2 0139 DFC6 FIRQ RMB 2 FAST INTERRUPT VECTOR 0140 DFC8 IRQ RMB 2 INTERRUPT VECTOR 0141 DFCA SWI RMB 2 SOFTWARE INTERRUPT VECTOR 0142 DFCC SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN 0143 DFCE SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT 0144 IFD DATOPT 0145 DFD0 LRARAM RMB 16 LRA ADDRESSES 0146 ENDIF DATOPT 0147 DFE0 CPORT RMB 2 RE-VECTORABLE CONTROL PORT 0148 DFE2 ECHO RMB 1 ECHO FLAG 0149 DFE3 BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR 0150 IFD TRAOPT 0151 NMISAV RMB 2 NMI Jump Vector Backup 0152 TRACNT RMB 2 Trace Count 0153 ENDIF TRAOPT 0153 ENDIF TRAOPT 0154 * 0155 IFD ACIAOPT 0156 * 0157 *************************************************** 0158 * SERIAL PORT * 0159 *************************************************** 0160 * 0161 ** ACIA SITS ON PORT 0 0162 * 0163 E000 ACIAS EQU MONIO+$00 CONTROL PORT 0164 * 0165 ENDIF ACIAOPT 0166 IFD MFDCOPT 0167 * 0168 *************************************************** 0169 * MINIFLOPPY DRIVE * 0170 *************************************************** 0171 * 0172 ** FLOPPY DISK CONTROLLER SITS ON PORT 1 0173 * 0174 E014 DRVFDC EQU MONIO+$14 0175 E018 CMDFDC EQU MONIO+$18 0176 E01A SECFDC EQU MONIO+$1A 0177 E01B DATFDC EQU MONIO+$1B 0178 ENDIF MFDCOPT 0179 IFD PS2OPT 0180 * 0181 *************************************************** 0182 * VDU8 PS/2 KEYBOARD PORT * 0183 *************************************************** 0184 * 0185 ** KEYBOARD SITS ON PORT 2 0186 * 0187 PS2KBD EQU MONIO+$20 PS/2 KEYBOARD PORT 0188 ENDIF PS2OPT 0188 ENDIF PS2OPT 0189 IFD VDUOPT 0190 * 0191 *************************************************** 0192 * VDU8 DISPLAY DRIVER EQUATES * 0193 *************************************************** 0194 * 0195 ** VDU8 DISPLAY SITS ON PORT 3 0196 * 0197 VDU EQU MONIO+$30 0198 VDUCHR EQU 0 CHARACTER REGISTER 0199 VDUATT EQU 1 ATTRIBUTE REGISTER 0200 VDUCOL EQU 2 CURSOR COLUMN 0201 VDUROW EQU 3 CURSOR ROW 0202 VDUOFF EQU 4 ROW OFFSET 0203 * 0204 LINLEN EQU 80 LENGTH OF A LINE 0205 NUMLIN EQU 25 NUMBER OF LINES 0206 * 0207 ************************************************** 0208 * VDU8 DISPLAY DRIVER VARIABLES * 0209 ************************************************** 0210 * 0211 **** ALWAYS KEEP COLADX AND ROWADX TOGETHER ****** 0212 COLADX RMB 1 CURSOR COLUMN 0213 ROWADX RMB 1 CURSOR ROW 0214 ************************************************** 0215 * 0216 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE 0217 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE 0218 ENDIF VDUOPT 0218 ENDIF VDUOPT 0219 IFD CFOPT 0220 * 0221 *************************************************** 0222 * COMPACT FLASH EQUATES * 0223 *************************************************** 0224 * 0225 ** COMPACT FLASH SITS AT PORT 4 0226 * 0227 CF_BASE EQU MONIO+$40 0228 CF_DATA EQU CF_BASE+0 0229 CF_ERROR EQU CF_BASE+1 ; read error 0230 CF_FEATURE EQU CF_BASE+1 ; write feature 0231 CF_SECCNT EQU CF_BASE+2 0232 CF_SECNUM EQU CF_BASE+3 0233 CF_CYLLO EQU CF_BASE+4 0234 CF_CYLHI EQU CF_BASE+5 0235 CF_HEAD EQU CF_BASE+6 0236 CF_STATUS EQU CF_BASE+7 ; read status 0237 CF_COMAND EQU CF_BASE+7 ; write command 0238 * 0239 * Command Equates 0240 * 0241 CMDREAD EQU $20 ; Read Single sector 0242 CMDWRITE EQU $30 ; Write Single sector 0243 CMDFEATURE EQU $EF 0244 FEAT8BIT EQU $01 ; enable 8 bit transfers 0245 HEADLBA EQU $E0 0246 * 0247 * Status bit equates 0248 * 0249 BUSY EQU $80 0250 DRDY EQU $40 0251 DRQ EQU $08 0252 ERR EQU $01 0253 * 0254 ENDIF CFOPT 0254 ENDIF CFOPT 0255 * 0256 IFD RTCOPT 0257 * 0258 ************************************************** 0259 * MM58167A REAL TIME CLOCK MEMORY MAP: 0260 ************************************************** 0261 * 0262 ** REAL TIME CLOCK SITS ON PORT 4 AND PORT 5 0263 * 0264 CLOCK EQU MONIO+$40 CLOCK BASE ADDRESS AND REGISTERS 0265 * 0266 * COUNTER AND COMPARITOR REGISTERS: 0267 * 0268 * Both the Clock Counter and Clock Comparitor 0269 * consist of 8 registers for holding the time. 0270 * The register offsets from the Counter and 0271 * Comparitor registers are listed above. 0272 * 0273 COUNTR EQU CLOCK+0 0274 CMPRAM EQU CLOCK+8 COMPARITOR REGISTERS 0275 * 0276 * CLOCK REGISTER OFFSETS: 0277 * These register offsets are used for the CLOCK 0278 * and comparitor ram CMPRAM. 0279 * 0280 S10000 EQU 0 TEN THOUNSANDTHS OF SECONDS 0281 S100 EQU 1 HUNDRETHS AND TENTHS OF SECONDS 0282 SECOND EQU 2 0283 MINUIT EQU 3 0284 HOUR EQU 4 0285 WKDAY EQU 5 0286 MTHDAY EQU 6 0287 MONTH EQU 7 0288 * 0289 * INTERRUPT OUTPUT REGISTERS: 0290 * 0291 * An interrupt output may be generated at the 0292 * following rates by setting the appropriate bit 0293 * in the Interrupt Control Register (CINTCR). 0294 * The Interrupt Status Register (CINTSR) must be 0295 * read to clear the interrupt and will return 0296 * the source of the interrupt. 0297 * 0298 * 1/Month Bit 7 0299 * 1/Week Bit 6 0300 * 1/Day Bit 5 0301 * 1/Hour Bit 4 0302 * 1/Minuite Bit 3 0303 * 1/Second Bit 2 0304 * 10/Second Bit 1 0305 * Comparitor Bit 0 0306 * 0307 CINTSR EQU CLOCK+16 INTERRUPT STATUS REGISTER 0308 CINTCR EQU CLOCK+17 INTERRUPT CONTROL REGISTER 0309 * 0310 * COUNTER AND RAM RESETS; GO COMMAND. 0311 * 0312 * The counter and comparitor may be reset 0313 * by writing $FF into CTRRES and CMPRES 0314 * respectivly. 0315 * A write to the Go command register (GOCMND) 0316 * will reset the 1/1000ths, 1/100ths and 1/10ths 0317 * of a second counter. 0318 * 0319 CTRRES EQU CLOCK+18 COUNTER RESET 0320 CMPRES EQU CLOCK+19 COMPARITOR RAM RESET 0321 GOCMND EQU CLOCK+21 GO COMMAND 0322 * 0323 * CLOCK STATUS REGISTER. 0324 * 0325 * The counter takes 61 usec. to rollover for 0326 * every 1KHz clock pulse. If the Status bit is 0327 * set after reading the counter, the counter 0328 * should be re-read to ensure the time is correct. 0329 * 0330 CLKSTA EQU CLOCK+20 STATUS BIT 0331 SBYINT EQU CLOCK+22 STANDBY INTERRUPT 0332 TSTMOD EQU CLOCK+31 TEST MODE REGISTER 0333 ENDIF RTCOPT 0333 ENDIF RTCOPT 0334 * 0335 IFD TRAOPT 0336 * 0337 ************************************************** 0338 * PIA INTERRUPT TIMER 0339 ************************************************** 0340 * 0341 ** PIA INTERRUPT TIMER SITS ON PORT 7 0342 * 0343 ** PIA TIMER FOR SINGLE STEP / TRACE 0344 * 0345 * TADATA = Output = Timer preset register 0346 * TACTRL - CA1 = input = rising edge = NMI 0347 * - CA2 = Output = Timer Reset (Active High) 0348 * TBDATA = Input = Timer read back register 0349 * TBCTRL - CB1 = input = rising edge = FIRQ 0350 * - CB2 = output = strobe low on write to TBDATA = Timer Preset 0351 * 0352 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB 0353 * CRA1 = 1 CA1 Rising edge IRQ 0354 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register 0355 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 1 0356 * CRA4 = 1 ] CA2 = Set/Reset output 0357 * CRA5 = 1 ] 0358 * CRA6 = X CA2 Input Interrupt Flag 0359 * CRA7 = X CA1 Interrupt Flag 0360 * 0361 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB 0362 * CRB1 = 1 CB1 Rising edge IRQ 0363 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register 0364 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 1 0365 * CRB4 = 1 ] CB2 = Set/Reset output 0366 * CRB5 = 1 ] 0367 * CRB6 = X CB2 Input Interrupt Flag 0368 * CRB7 = X CB1 Interrupt Flag 0369 * 0370 * DDRA = 0 TADATA = Input, DDRA = 1 TADATA = Output 0371 * DDRB = 0 TBDATA = Input, DDRB = 1 TBDATA = Output 0372 * 0373 TADATA EQU MONIO+$70 Timer preset port 0374 TACTRL EQU MONIO+$71 0375 TBDATA EQU MONIO+$72 Timer read back port 0376 TBCTRL EQU MONIO+$73 0377 * 0378 TRADEL EQU 13 Number of E cycles for RTI (May need to be fudged) 0379 * 0380 ENDIF TRAOPT 0380 ENDIF TRAOPT 0381 IFD ADSOPT 0382 * 0383 *************************************************** 0384 * SERIAL PORT FOR DG640 * 0385 *************************************************** 0386 * 0387 ** SET UP FOR ACKERMAN DIGITAL ADS6809 0388 ** THE ADS6809 S100 BOAD HAS AN ON BOARD ACIA 0389 * 0390 ACIAS EQU MONIO+$400 CONTROL PORT 0391 * 0392 ENDIF ADSOPT 0392 ENDIF ADSOPT 0393 IFD PRTOPT 0394 * 0395 *************************************************** 0396 * PRINTER INTERFACE * 0397 *************************************************** 0398 * 0399 PADATA EQU MONIO+$404 0400 PACTRL EQU MONIO+$405 0401 PBDATA EQU MONIO+$406 0402 PBCTRL EQU MONIO+$407 0403 * 0404 ** CB1 ACK. I/P 0405 ** CB2 STB. O/P 0406 ** PB0 - PB7 DATA 1 - 8 O/P 0407 ** PORT A BIT ASSIGNMENT 0408 * 0409 PBUSY EQU $80 I/P 0410 PEMPTY EQU $40 I/P 0411 SELECT EQU $20 I/P 0412 PERROR EQU $10 I/P 0413 PRESET EQU %00000100 O/P PA3 = 0 0414 AUTOFD EQU %00001000 O/P PA2 = 0 0415 DIRMSK EQU %00001100 0416 ENDIF PRTOPT 0416 ENDIF PRTOPT 0417 IFD DG640OPT 0418 * 0419 *************************************************** 0420 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES * 0421 *************************************************** 0422 * 0423 ** VIDEO DISPLAY DEFINITIONS 0424 * 0425 SCREEN EQU MONIO+$0800 START OF SCREEN MEMORY 0426 LINLEN EQU 64 LENGTH OF A LINE 0427 NUMLIN EQU 16 NUMBER OF LINES 0428 SCNLEN EQU $400 LENGTH OF SCREEN 0429 * 0430 ***** ALWAYS KEEP THESE TWO BYTES TOGETHER ***** 0431 COLADX RMB 1 CURSOR COLUMN 0432 ROWADX RMB 1 CURSOR ROW 0433 ************************************************* 0434 CURSOR RMB 2 ABSOLUTE SCREEN ADDRESS 0435 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE 0436 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE 0437 ENDIF DG640OPT 0437 ENDIF DG640OPT 0438 * 0439 IFD DMAFOPT 0440 * 0441 *************************************************** 0442 * DMAF2 8" DRIVE * 0443 *************************************************** 0444 * 0445 F000 ADDREG EQU $F000 ADDRESS REGISTER 0446 F002 CNTREG EQU $F002 COUNT REGISTER 0447 F010 CCREG EQU $F010 CHANNEL CONTROL REGISTER 0448 F014 PRIREG EQU $F014 DMA PRIORITY REGISTER 0449 F015 AAAREG EQU $F015 ??? 0450 F016 BBBREG EQU $F016 ??? 0451 F020 COMREG EQU $F020 1791 COMMAND REGISTER 0452 F022 SECREG EQU $F022 SECTOR REGISTER 0453 F024 DRVREG EQU $F024 DRIVE SELECT LATCH 0454 F040 CCCREG EQU $F040 ??? 0455 ENDIF DMAFOPT 0456 IFD DATOPT 0457 ************************************************** 0458 * DYNAMIC ADDRESS TRANSLATION REGISTERS * 0459 ************************************************** 0460 * 0461 FFF0 IC11 EQU $FFF0 DAT RAM CHIP 0462 55AA TSTPAT EQU $55AA TEST PATTERN 0463 ENDIF DATOPT 0464 * 0465 *************************************************** 0466 * START OF ROM * 0467 *************************************************** 0468 * 0469 F800 ORG MONROM 0470 F800 F8 14 FDB MONITOR 0471 F802 F8 61 FDB NEXTCMD 0472 F804 FD 29 FDB INCH 0473 F806 FD 23 FDB INCHE 0474 F808 FD 38 FDB INCHEK 0475 F80A FD 46 FDB OUTCH 0476 F80C FC 17 FDB PDATA 0477 F80E FB A6 FDB PCRLF 0478 F810 FB A2 FDB PSTRNG 0479 F812 FA B6 FDB LRA 0480 * 0481 IFD ADSOPT 0482 FDB PCHK CHECK FOR PRINTER INPUT 0483 FDB PINIZ INITIATE PRINTER 0484 FDB POUTCH OUTPUT CH. TO PRINTER 0485 FDB VINIZ 0486 FDB VOUTCH 0487 FDB ACINIZ 0488 FDB AOUTCH 0489 ENDIF ADSOPT 0489 ENDIF ADSOPT 0490 * 0491 * MONITOR 0492 * 0493 * VECTOR ADDRESS STRING IS..... 0494 * $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF 0495 * 0496 F814 8E FD A3 MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING 0497 F817 10 8E DF C0 LDY #STACK POINT TO RAM VECTOR LOCATION 0498 F81B C6 10 LDB #$10 BYTES TO MOVE = 16 0499 F81D A6 80 LOOPA LDA ,X+ GET VECTOR BYTE 0500 F81F A7 A0 STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF 0501 F821 5A DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE 0502 F822 26 F9 BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED 0503 * 0504 * CONTENTS FROM TO FUNCTION 0505 * $F8A1 $FE40 $DFC0 USER-V 0506 * $F8A1 $FE42 $DFC2 SWI3-V 0507 * $F8A1 $FE44 $DFC4 SWI2-V 0508 * $F8A1 $FE46 $DFC6 FIRQ-V 0509 * $F8A1 $FE48 $DFC8 IRQ-V 0510 * $FAB0 $FE4A $DFCA SWI-V 0511 * $FFFF $FE4C $DFCC SVC-VO 0512 * $FFFF $FE4E $DFCE SVC-VL 0513 * 0514 F824 8E E0 00 LDX #ACIAS 0515 F827 BF DF E0 STX CPORT STORE ADDR. IN RAM 0516 F82A 17 01 5B LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS 0517 F82D C6 0C LDB #12 CLEAR 12 BYTES ON STACK 0518 F82F 6F E2 CLRSTK CLR ,-S 0519 F831 5A DECB 0520 F832 26 FB BNE CLRSTK 0521 F834 30 8C DD LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY 0522 F837 AF 6A STX 10,S ON STACK 0523 F839 86 D0 LDA #$D0 PRESET CONDITION CODES ON STACK 0524 F83B A7 E4 STA ,S 0525 F83D 1F 43 TFR S,U 0526 F83F 17 05 15 LBSR IOINIZ INITIALIZE CONTROL PORT 0527 F842 8E FD B3 LDX #MSG1 POINT TO MONITOR MESSAGE 0528 F845 17 03 CF LBSR PDATA PRINT MSG 0529 * 0530 IFD DATOPT 0531 F848 8E DF D0 LDX #LRARAM POINT TO LRA RAM STORAGE AREA 0532 F84B 4F CLRA START TOTAL AT ZERO 0533 F84C C6 0D LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY 0534 F84E 6D 85 FNDREL TST B,X TEST FOR RAM AT NEXT LOC. 0535 F850 27 03 BEQ RELPAS IF NO RAM GO TO NEXT LOC. 0536 F852 8B 04 ADDA #4 ELSE ADD 4K TO TOTAL 0537 F854 19 DAA ADJ. TOTAL FOR DECIMAL 0538 F855 5A RELPAS DECB SUB. 1 FROM LOCS. TO TEST 0539 F856 2A F6 BPL FNDREL PRINT TOTAL OF RAM 0540 F858 17 04 94 LBSR OUT2H OUTPUT HEX BYTE AS ASCII 0541 F85B 8E FD D3 LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS 0542 F85E 17 03 B6 LBSR PDATA PRINT MSG 0543 ENDIF DATOPT 0544 * 0545 IFD TRAOPT 0546 LBSR TRAINZ 0547 ENDIF TRAOPT 0547 ENDIF TRAOPT 0548 * 0549 ***** NEXTCMD ***** 0550 * 0551 F861 8E FD DA NEXTCMD LDX #MSG3 POINT TO MSG ">" 0552 F864 17 03 3B LBSR PSTRNG PRINT MSG 0553 F867 17 04 BF LBSR INCH GET ONE CHAR. FROM TERMINAL 0554 F86A 84 7F ANDA #$7F STRIP PARITY FROM CHAR. 0555 F86C 81 0D CMPA #$0D IS IT CARRIAGE RETURN ? 0556 F86E 27 F1 BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR. 0557 F870 1F 89 TFR A,B PUT CHAR. IN "B" ACCUM. 0558 F872 81 20 CMPA #$20 IS IT CONTROL OR DATA CHAR ? 0559 F874 2C 09 BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT 0560 F876 86 5E LDA #'^ ELSE CNTRL CHAR CMD SO... 0561 F878 17 04 CB LBSR OUTCH PRINT "^" 0562 F87B 1F 98 TFR B,A RECALL CNTRL CMD CHAR 0563 F87D 8B 40 ADDA #$40 CONVERT IT TO ASCII LETTER 0564 F87F 17 04 C4 PRTCMD LBSR OUTCH PRNT CMD CHAR 0565 F882 17 04 BF LBSR OUT1S PRNT SPACE 0566 F885 C1 60 CMPB #$60 0567 F887 2F 02 BLE NXTCH0 0568 F889 C0 20 SUBB #$20 0569 * 0570 ***** DO TABLE LOOKUP ***** 0571 * FOR COMMAND FUNCTIONS 0572 * 0573 F88B 8E FD 6A NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE 0574 F88E E1 80 NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ? 0575 F890 27 0F BEQ JMPCMD BRANCH IF MATCH FOUND 0576 F892 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE 0577 F894 8C FD A3 CMPX #TABEND REACHED END OF TABLE YET ? 0578 F897 26 F5 BNE NXTCHR IF NOT END, CHECK NEXT ENTRY 0579 F899 8E FD DC LDX #MSG4 POINT TO MSG "WHAT?" 0580 F89C 17 03 78 LBSR PDATA PRINT MSG 0581 F89F 20 C0 BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD 0582 F8A1 AD 94 JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE 0583 F8A3 20 BC BRA NEXTCMD PROMPT FOR NEW COMMAND 0584 * 0585 * "G" GO OR CONTINUE 0586 * 0587 F8A5 1F 34 GO TFR U,S 0588 F8A7 3B RTI RTI 0589 * 0590 ***** "M" MEMORY EXAMINE AND CHANGE ***** 0591 * 0592 F8A8 17 03 F3 MEMCHG LBSR IN1ADR INPUT ADDRESS 0593 F8AB 29 2D BVS CHRTN IF NOT HEX, RETURN 0594 F8AD 1F 12 TFR X,Y SAVE ADDR IN "Y" 0595 F8AF 8E FD E2 MEMC2 LDX #MSG5 POINT TO MSG " - " 0596 F8B2 17 02 ED LBSR PSTRNG PRINT MSG 0597 F8B5 1F 21 TFR Y,X FETCH ADDRESS 0598 F8B7 17 04 2D LBSR OUT4H PRINT ADDR IN HEX 0599 F8BA 17 04 87 LBSR OUT1S OUTPUT SPACE 0600 F8BD A6 A4 LDA ,Y GET CONTENTS OF CURRENT ADDR. 0601 F8BF 17 04 2D LBSR OUT2H OUTPUT CONTENTS IN ASCII 0602 F8C2 17 04 7F LBSR OUT1S OUTPUT SPACE 0603 F8C5 17 03 E6 LBSR BYTE LOOP WAITING FOR OPERATOR INPUT 0604 F8C8 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC. 0605 F8CA 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)? 0606 F8CC 27 E1 BEQ MEMC2 PROMPT OPERATOR AGAIN 0607 F8CE 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)? 0608 F8D0 27 DD BEQ MEMC2 PROMPT OPERATOR AGAIN 0609 F8D2 81 5E CMPA #'^ IS IT AN UP ARROW? 0610 F8D4 27 17 BEQ BACK DISPLAY PREVIOUS BYTE 0611 F8D6 81 0D CMPA #$D IS IT A CR? 0612 F8D8 26 0F BNE FORWRD DISPLAY NEXT BYTE 0613 F8DA 39 CHRTN RTS EXIT ROUTINE 0614 * 0615 * 0616 F8DB A7 A4 CHANGE STA ,Y CHANGE BYTE IN MEMORY 0617 F8DD A1 A4 CMPA ,Y DID MEMORY BYTE CHANGE? 0618 F8DF 27 08 BEQ FORWRD $F972 0619 F8E1 17 04 60 LBSR OUT1S OUTPUT SPACE 0620 F8E4 86 3F LDA #'? LOAD QUESTION MARK 0621 F8E6 17 04 5D LBSR OUTCH PRINT IT 0622 F8E9 31 21 FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION 0623 F8EB 20 C2 BRA MEMC2 PRINT LOCATION & CONTENTS 0624 F8ED 31 3F BACK LEAY -1,Y POINT TO LAST MEM LOCATION 0625 F8EF 20 BE BRA MEMC2 PRINT LOCATION & CONTENTS 0626 * 0627 * "S" DISPLAY STACK 0628 * HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM 0629 ** CURRENT STACK POINTER TO INTERNAL STACK LIMIT. 0630 * 0631 F8F1 17 03 2A DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER 0632 F8F4 1F 32 TFR U,Y 0633 F8F6 8E DF C0 LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT 0634 F8F9 30 1F LEAX -1,X POINT TO CURRENT STACK 0635 F8FB 20 05 BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS 0636 * 0637 * "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII 0638 * AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG. 0639 * UPPER ADDRESS IN X-REG. 0640 * IF HEX ADDRESSES ARE INVALID (V)=1. 0641 * 0642 F8FD 17 03 93 MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES 0643 F900 29 06 BVS EDPRTN NEW COMMAND IF ILLEGAL HEX 0644 F902 34 20 MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS 0645 F904 AC E1 CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS? 0646 F906 24 01 BCC AJDUMP IF NOT, DUMP HEX AND ASCII 0647 F908 39 EDPRTN RTS ; 0648 * 0649 * ADJUST LOWER AND UPPER ADDRESS LIMITS 0650 * TO EVEN 16 BYTE BOUNDRIES. 0651 * 0652 * IF LOWER ADDR = $4532 0653 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530. 0654 * 0655 * IF UPPER ADDR = $4567 0656 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570. 0657 * 0658 * ENTER WITH LOWER ADDRESS IN X-REG. 0659 * -UPPER ADDRESS ON TOP OF STACK. 0660 * 0661 F909 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG 0662 F90B C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS 0663 F90E C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY 0664 F910 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT 0665 F912 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG 0666 F914 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY 0667 F916 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT 0668 F918 AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT 0669 F91A 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP 0670 F91C 17 04 19 LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD 0671 F91F 27 03 BEQ EDUMP 0672 F921 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING 0673 F923 39 RTS ; 0674 * 0675 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS 0676 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS. 0677 * 0678 F924 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK 0679 F926 8E FD E2 LDX #MSG5 POINT TO MSG " - " 0680 F929 17 02 76 LBSR PSTRNG PRINT MSG 0681 F92C AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK 0682 F92E 17 03 B6 LBSR OUT4H PRINT THE ADDRESS 0683 F931 17 04 0E LBSR OUT2S 2 SPACES 0684 F934 C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP 0685 F936 A6 80 ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT 0686 F938 17 03 B4 LBSR OUT2H OUTPUT HEX BYTE AS ASCII 0687 F93B 17 04 06 LBSR OUT1S OUTPUT SPACE 0688 F93E 5A DECB $F9D1 DECREMENT BYTE COUNT 0689 F93F 26 F5 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED 0690 * 0691 * PRINT 16 ASCII CHARACTERS 0692 * IF NOT PRINTABLE OR NOT VALID 0693 * ASCII PRINT A PERIOD (.) 0694 F941 17 03 FE LBSR OUT2S 2 SPACES 0695 F944 AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK 0696 F946 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 16 0697 F948 A6 80 EDPASC LDA ,X+ GET CHARACTER FROM MEMORY 0698 F94A 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE? 0699 F94C 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD 0700 F94E 81 7E CMPA #$7E IS IT VALID ASCII? 0701 F950 23 02 BLS PRASC IF SO PRINT IT 0702 F952 86 2E PERIOD LDA #'. LOAD A PERIOD (.) 0703 F954 17 03 EF PRASC LBSR OUTCH PRINT ASCII CHARACTER 0704 F957 5A DECB DECREMENT COUNT 0705 F958 26 EE BNE EDPASC 0706 F95A 20 BC BRA NXTLIN 0707 * 0708 ***** "B" SET BREAKPOINT ***** 0709 * 0710 F95C 17 03 3F BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS 0711 F95F 29 1E BVS EXITBP EXIT IF INVALID HEX ADDR. 0712 F961 8C DF C0 CMPX #STACK ADDRESS ILLEGAL IF >=$DFC0 0713 F964 24 1A BCC BPERR IF ERROR PRINT (?), EXIT 0714 F966 34 10 PSHS X $FA82 PUSH BP ADDRESS ON STACK 0715 F968 8E FF FF LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE 0716 F96B 8D 55 BSR BPTEST TEST BP TABLE FOR FREE SPACE 0717 F96D 35 10 PULS X POP BP ADDRESS FROM STACK 0718 F96F 27 0F BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE 0719 F971 A6 84 LDA ,X GET DATA AT BREAKPOINT ADDRESS 0720 F973 81 3F CMPA #$3F IS IT A SWI? 0721 F975 27 09 BEQ BPERR IF SWI ALREADY, INDICATE ERROR 0722 F977 A7 A0 STA ,Y+ SAVE DATA BYTE IN BP TABLE 0723 F979 AF A4 STX ,Y SAVE BP ADDRESS IN BP TABLE 0724 F97B 86 3F LDA #$3F LOAD A SWI ($3F) 0725 F97D A7 84 STA ,X SAVE SWI AT BREAKPOINT ADDRESS 0726 F97F 39 EXITBP RTS ; 0727 * 0728 * INDICATE ERROR SETTING BREAKPOINT 0729 * 0730 F980 17 03 C1 BPERR LBSR OUT1S OUTPUT SPACE 0731 F983 86 3F LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR 0732 F985 16 03 BE LBRA OUTCH PRINT "?" 0733 * 0734 *** "X" CLEAR OUTSTANDING BREAKPOINTS *** 0735 * 0736 F988 10 8E DF E3 XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE 0737 F98C C6 08 LDB #8 LOAD BREAKPOINT COUNTER 0738 F98E 8D 18 XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE 0739 F990 5A DECB $FAAC DECREMENT BP COUNTER 0740 F991 26 FB BNE XBPLP END OF BREAKPOINT TABLE? 0741 F993 39 RTS 0742 * 0743 ***** SWI ENTRY POINT ***** 0744 * 0745 F994 1F 43 SWIE TFR S,U TRANSFER STACK TO USER POINTER 0746 F996 AE 4A LDX 10,U LOAD PC FROM STACK INTO X-REG 0747 F998 30 1F LEAX -1,X ADJUST ADDR DOWN 1 BYTE. 0748 F99A 8D 26 BSR BPTEST FIND BREAKPOINT IN BP TABLE 0749 F99C 27 04 BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR 0750 F99E AF 4A STX 10,U SAVE BREAKPOINT ADDR IN STACK 0751 F9A0 8D 06 BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA 0752 F9A2 17 02 D0 REGPR LBSR REGSTR GO PRINT REGISTERS 0753 * 0754 IFD TRAOPT 0755 LDX #0 0756 STX TRACNT 0757 ENDIF TRAOPT 0757 ENDIF TRAOPT 0758 * 0759 F9A5 16 FE B9 LBRA NEXTCMD GET NEXT COMMAND 0760 * 0761 F9A8 AE 21 RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE 0762 F9AA 8C DF C0 CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY 0763 F9AD 24 0A BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S 0764 F9AF A6 84 LDA ,X GET DATA FROM BP ADDRESS 0765 F9B1 81 3F CMPA #$3F IS IT SWI? 0766 F9B3 26 04 BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S 0767 F9B5 A6 A4 LDA ,Y GET ORIGINAL DATA FROM BP TABLE 0768 F9B7 A7 84 STA ,X $FAD3 RESTORE DATA AT BP ADDRESS 0769 F9B9 86 FF FFSTBL LDA #$FF LOAD $FF IN A-ACC 0770 F9BB A7 A0 STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S 0771 F9BD A7 A0 STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S 0772 F9BF A7 A0 STA ,Y+ 0773 F9C1 39 RTS 0774 * 0775 ** SEARCH BREAKPOINT TABLE FOR MATCH ** 0776 * 0777 F9C2 10 8E DF E3 BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE 0778 F9C6 C6 08 LDB #8 LOAD BREAKPOINT COUNTER 0779 F9C8 A6 A0 FNDBP LDA ,Y+ LOAD DATA BYTE 0780 F9CA AC A1 CMPX ,Y++ COMPARE ADDRESS, IS IT SAME? 0781 F9CC 27 04 BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY 0782 F9CE 5A DECB IF NOT, DECREMENT BREAKPOINT COUNTER 0783 F9CF 26 F7 BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH 0784 F9D1 39 RTS ; 0785 * 0786 * 0787 F9D2 31 3D BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY 0788 F9D4 39 RTS 0789 * 0790 IFD TRAOPT 0791 * 0792 ** TRACE from address AAAA BB bytes 0793 * 0794 TRACE LBSR ALTPC1 SET UP NEW PC 0795 BVS TREXIT ADDRESS ERROR, EXIT 0796 LBSR OUT1S 0797 LBSR IN1ADR Fetch Byte Count 0798 BVS TREXIT Byte Count error, EXIT 0799 STX TRACNT 0800 * 0801 LDX NMI Save NMI Vector 0802 STX NMISAV 0803 LDX #NMIE Set up NMI for Tracing 0804 STX NMI 0805 LBSR TRAINZ Initialise Hardware 0806 BRA TRACEG Start Trace 0807 TREXIT RTS 0808 * 0809 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB 0810 * CRA1 = 1 CA1 Rising edge IRQ 0811 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register 0812 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 1 0813 * CRA4 = 1 ] CA2 = Set/Reset output 0814 * CRA5 = 1 ] 0815 * CRA6 = X CA2 Input Interrupt Flag 0816 * CRA7 = X CA1 Interrupt Flag 0817 * 0818 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB 0819 * CRB1 = 1 CB1 Rising edge IRQ 0820 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register 0821 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 1 0822 * CRB4 = 1 ] CB2 = Set/Reset output 0823 * CRB5 = 1 ] 0824 * CRB6 = X CB2 Input Interrupt Flag 0825 * CRB7 = X CB1 Interrupt Flag 0826 * 0827 * 0828 ** TRACE NMI ENTRY POINT 0829 * 0830 NMIE TFR S,U 0831 LDA #$36 Disable Interrupt, CA2 Low 0832 STA TACTRL 0833 LDA TADATA Clear Interrupt flag by reading data port 0834 * 0835 LBSR REGSTR DUMP REGISTERS 0836 * 0837 LDX 10,U TEST IF NEXT INSTRUCTION IS A SWI 0838 LDA ,X 0839 CMPA #$3F 0840 BEQ TRACEX EXIT ON SWI 0841 * 0842 LDX TRACNT CHECK IF TRACE COUNT EXPIRED 0843 BEQ TRACEX YES, GO BACK TO THE MONITOR 0844 LEAX -1,X DECREMENT TRACE COUNT 0845 STX TRACNT 0846 * 0847 ** TRACE GO (RESUME SINGLE STEP) 0848 * 0849 TRACEG TFR U,S SET UP PROGRAM STACK POINTER 0850 LDA #TRADEL SET UP TIMER DELAY (NUMB CYCLES FOR RTI+1) 0851 STA TADATA 0852 LDA #$36 LOAD STROBE LOW 0853 STA TACTRL 0854 LDA TADATA CLEAR INTERRUPT 0855 LDA #$36 RELEASE RESET 0856 STA TBCTRL 0857 LDA #$3F RELEASE LOAD, ENABLE CA1 NMI, CA1 RISING EDGE 0858 STA TACTRL 0859 RTI GO EXECUTE INSTRUCTION 0860 * 0861 TRACEX LDX NMISAV Restore NMI vector 0862 STX NMI 0863 LBRA NEXTCMD Jump back to the command loop. 0864 * 0865 ** TRACE HARDWARE INITIALISATION 0866 * 0867 TRAINZ LDA #$32 SELECT DDRA, CA2 LOW, NMI DISABLED 0868 STA TACTRL 0869 LDA #$3A SELECT DDRB, CB2 HIGH, FIRQ DISABLED 0870 STA TBCTRL 0871 LDA #$FF PORTA = OUTPUT 0872 STA TADATA 0873 LDA #$00 PORTB = INPUT 0874 STA TBDATA 0875 LDA #$36 SELECT OUTPUT REGISTER A, CA2 LOW 0876 STA TACTRL 0877 LDA #$3E SELECT OUTPUT REGISTER B, CB2 HIGH 0878 STA TBCTRL 0879 RTS 0880 * 0881 ENDIF TRAOPT 0881 ENDIF TRAOPT 0882 IFD MFDCOPT 0883 * 0884 ** "U" MINI DISK BOOT 0885 * 0886 F9D5 7D E0 18 MINBOOT TST CMDFDC 0887 F9D8 7F E0 14 CLR DRVFDC 0888 F9DB 8E 00 00 LDX #$0000 0889 F9DE 30 01 LOOP LEAX $01,X 0890 F9E0 8C 00 00 CMPX #$0000 0891 F9E3 26 F9 BNE LOOP 0892 F9E5 86 0F LDA #$0F 0893 F9E7 B7 E0 18 STA CMDFDC 0894 F9EA 8D 37 BSR DELAY 0895 F9EC F6 E0 18 LOOP1 LDB CMDFDC 0896 F9EF C5 01 BITB #$01 0897 F9F1 26 F9 BNE LOOP1 0898 F9F3 86 01 LDA #$01 0899 F9F5 B7 E0 1A STA SECFDC 0900 F9F8 8D 29 BSR DELAY 0901 F9FA 86 8C LDA #$8C 0902 F9FC B7 E0 18 STA CMDFDC 0903 F9FF 8D 22 BSR DELAY 0904 FA01 8E C0 00 LDX #$C000 0905 FA04 20 09 BRA LOOP3 0906 FA06 C5 02 LOOP2 BITB #$02 0907 FA08 27 05 BEQ LOOP3 0908 FA0A B6 E0 1B LDA DATFDC 0909 FA0D A7 80 STA ,X+ 0910 FA0F F6 E0 18 LOOP3 LDB CMDFDC 0911 FA12 C5 01 BITB #$01 0912 FA14 26 F0 BNE LOOP2 0913 FA16 C5 2C BITB #$2C 0914 FA18 27 01 BEQ LOOP4 0915 FA1A 39 RTS 0916 * 0917 FA1B 8E C0 00 LOOP4 LDX #$C000 0918 FA1E AF 4A STX $0A,U 0919 FA20 1F 34 TFR U,S 0920 FA22 3B RTI 0921 * 0922 FA23 C6 04 DELAY LDB #$04 0923 FA25 5A LOOP5 DECB 0924 FA26 26 FD BNE LOOP5 0925 FA28 39 RTS 0926 ENDIF MFDCOPT 0927 * 0928 IFD DMAFOPT 0929 * 0930 *** "D" DISK BOOT FOR DMAF2 *** 0931 * 0932 FA29 86 DE DBOOT LDA #$DE 0933 FA2B B7 F0 24 STA DRVREG 0934 FA2E 86 FF LDA #$FF 0935 FA30 B7 F0 14 STA PRIREG $FAF8 0936 FA33 B7 F0 10 STA CCREG 0937 FA36 B7 F0 15 STA AAAREG 0938 FA39 B7 F0 16 STA BBBREG 0939 FA3C 7D F0 10 TST CCREG 0940 FA3F 86 D8 LDA #$D8 0941 FA41 B7 F0 20 STA COMREG 0942 FA44 17 00 96 LBSR DLY 0943 FA47 B6 F0 20 DBOOT0 LDA COMREG 0944 FA4A 2B FB BMI DBOOT0 0945 FA4C 86 09 LDA #$09 0946 FA4E B7 F0 20 STA COMREG 0947 FA51 17 00 89 LBSR DLY 0948 * 0949 FA54 B6 F0 20 DISKWT LDA COMREG FETCH DRIVE STATUS 0950 FA57 85 01 BITA #1 TEST BUSY BIT 0951 FA59 26 F9 BNE DISKWT LOOP UNTIL NOT BUSY 0952 * 0953 FA5B 85 10 BITA #$10 0954 FA5D 26 CA BNE DBOOT 0955 * 0956 FA5F 8E C0 00 LDX #$C000 LOGICAL ADDR. = $C000 0957 FA62 8D 52 BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR. 0958 FA64 8A 10 ORA #$10 0959 FA66 B7 F0 40 STA CCCREG 0960 FA69 1F 10 TFR X,D 0961 FA6B 43 COMA ; 0962 FA6C 53 COMB ; 0963 FA6D FD F0 00 STD ADDREG 0964 FA70 8E FE FF LDX #$FEFF LOAD DMA BYTE COUNT = $100 0965 FA73 BF F0 02 STX CNTREG STORE IN COUNT REGISTER 0966 FA76 86 FF LDA #$FF LOAD THE CHANNEL REGISTER 0967 FA78 B7 F0 10 STA CCREG 0968 FA7B 86 FE LDA #$FE SET CHANNEL 0 0969 FA7D B7 F0 14 STA PRIREG 0970 FA80 86 01 LDA #1 SET SECTOR TO "1" 0971 FA82 B7 F0 22 STA SECREG ISSUE COMMAND 0972 FA85 86 8C LDA #$8C SET SINGLE SECTOR READ 0973 FA87 B7 F0 20 STA COMREG ISSUE COMMAND 0974 FA8A 8D 51 BSR DLY 0975 * 0976 * THE FOLLOWING CODE TESTS THE STATUS OF THE 0977 * CHANNEL CONTROL REGISTER. IF "D7" IS NOT 0978 * ZERO THEN IT WILL LOOP WAITING FOR "D7" 0979 * TO GO TO ZERO. IF AFTER 65,536 TRIES IT 0980 * IS STILL A ONE THE BOOT OPERATION WILL 0981 * BE STARTED OVER FROM THE BEGINING. 0982 * 0983 FA8C 5F CLRB ; 0984 FA8D 34 04 DBOOT1 PSHS B $FB55 0985 FA8F 5F CLRB ; 0986 FA90 7D F0 10 DBOOT2 TST CCREG 0987 FA93 2A 0A BPL DBOOT3 0988 FA95 5A DECB ; 0989 FA96 26 F8 BNE DBOOT2 0990 FA98 35 04 PULS B 0991 FA9A 5A DECB 0992 FA9B 26 F0 BNE DBOOT1 0993 FA9D 20 8A BRA DBOOT 0994 FA9F 35 04 DBOOT3 PULS B 0995 FAA1 B6 F0 20 LDA COMREG 0996 FAA4 85 1C BITA #$1C 0997 FAA6 27 01 BEQ DBOOT4 0998 FAA8 39 RTS ; 0999 * 1000 * 1001 FAA9 C6 DE DBOOT4 LDB #$DE 1002 FAAB F7 F0 24 STB DRVREG 1003 FAAE 8E C0 00 LDX #$C000 1004 FAB1 AF 4A STX 10,U 1005 FAB3 1F 34 TFR U,S $FB7B 1006 FAB5 3B RTI ; 1007 ENDIF DMAFOPT 1008 * 1009 IFD CFOPT 1010 * 1011 * COMPACT FLASH BOOT 1012 * 1013 CFBOOT BSR WAITRDY 1014 LDA #HEADLBA 1015 STA CF_HEAD 1016 BSR WAITRDY 1017 LDA #FEAT8BIT 1018 STA CF_FEATURE 1019 LDA #CMDFEATURE 1020 STA CF_COMAND 1021 BSR WAITRDY 1022 * 1023 * READ SECTORS FROM CF 1024 * 1025 CFREAD LDA #$01 1026 STA CF_SECCNT 1027 CLRA 1028 STA CF_SECNUM 1029 STA CF_CYLLO 1030 STA CF_CYLHI 1031 * 1032 LDA #CMDREAD ; IDE READ MULTIPLE 1033 STA CF_COMAND 1034 BSR WAITRDY 1035 LDX #$C000 1036 * 1037 * READ LOOP 1038 * 1039 RDLOOP BSR WAITDRQ 1040 LDA CF_DATA 1041 STA ,X+ 1042 CMPX #$C200 1043 BNE RDLOOP 1044 * 1045 LDX #$C000 1046 STX $0A,U 1047 TFR U,S 1048 RTI 1049 * 1050 * WAIT UNTIL READY 1051 * 1052 WAITRDY LDA CF_STATUS 1053 BITA #BUSY 1054 BNE WAITRDY 1055 LDA CF_STATUS 1056 BITA #DRDY 1057 BEQ WAITRDY 1058 RTS 1059 * 1060 * WAIT FOR DATA REQUEST 1061 * 1062 WAITDRQ LDA CF_STATUS 1063 BITA #DRQ 1064 BEQ WAITDRQ 1065 RTS 1066 ENDIF CFOPT 1066 ENDIF CFOPT 1067 * 1068 IFD RTCOPT 1069 * 1070 * CLOCK INTER FACE UTILITY 1071 * 1072 * TIME 1073 * If no argument is specified, the current time 1074 * will be displayed. 1075 * 1076 * READ A REGISTER FROM THE COUNTER. 1077 * The X Index rgister points to the register 1078 * to be read. The Status Register is checked 1079 * before and after the register is read before 1080 * returning a value in accumulator A 1081 * 1082 RDCLK TST CLKSTA 1083 BNE RDCLK 1084 RDCLK1 LDA 0,X 1085 TST CLKSTA 1086 BNE RDCLK1 1087 RTS 1088 * 1089 * MAIN PROGRAM: 1090 * 1091 TIMSET LDX #COUNTR POINT TO TIMER 1092 LBSR BYTE READ HOURS 1093 BVS SHOWTM NO ARG, DISP TIME 1094 STA HOUR,X 1095 LBSR OUT1S 1096 LBSR BYTE READ MINUITES 1097 BVS SHOWTM 1098 STA MINUIT,X 1099 LBSR OUT1S 1100 LBSR BYTE SECONDS. 1101 BVS SHOWTM 1102 STA SECOND,X 1103 * 1104 * DISPLAY CURRENT TIME 1105 * 1106 SHOWTM LBSR PCRLF 1107 LDX #COUNTR+HOUR 1108 LDB #3 1109 SHOWLP BSR RDCLK 1110 LBSR OUT2H 1111 LDA #': 1112 LBSR OUTCH 1113 LEAX -1,X 1114 DECB 1115 BNE SHOWLP 1116 RTS 1117 * 1118 * INITIATE CLOCK. 1119 * MASK INTERRUPTS. 1120 * 1121 CLKINZ CLR CINTCR MASK ALL INTERRUPTS 1122 TST CINTSR CLEAR ANY INTERRUPTS 1123 RTS 1124 ENDIF RTCOPT 1124 ENDIF RTCOPT 1125 IFD DATOPT 1126 * 1127 ***** LRA LOAD REAL ADDRESS ***** 1128 * 1129 * THE FOLLOWING CODE LOADS THE 20-BIT 1130 * PHYSICAL ADDRESS OF A MEMORY BYTE 1131 * INTO THE "A" AND "X" REGISTERS. THIS 1132 * ROUTINE IS ENTERED WITH THE LOGICAL 1133 * ADDRESS OF A MEMORY BYTE IN THE "IX" 1134 * REGISTER. EXIT IS MADE WITH THE HIGH- 1135 * ORDER FOUR BITS OF THE 20-BIT PHYSICAL 1136 * ADDRESS IN THE "A" REGISTER, AND THE 1137 * LOW-ORDER 16-BITS OF THE 20-BIT 1138 * PHYSICAL ADDRESS IN THE "IX" REGISTER. 1139 * ALL OTHER REGISTERS ARE PRESERVED. 1140 * THIS ROUTINE IS REQUIRED SINCE THE 1141 * DMAF1 AND DMAF2 DISK CONTROLLERS MUST 1142 * PRESENT PHYSICAL ADDRESSES ON THE 1143 * SYSTEM BUS. 1144 * 1145 FAB6 34 36 LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK 1146 FAB8 A6 62 LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK 1147 FABA 44 LSRA ; 1148 FABB 44 LSRA ADJ FOR INDEXED INTO 1149 FABC 44 LSRA CORRESPONDING LOCATION 1150 FABD 44 LSRA IN LRA TABLE 1151 FABE 10 8E DF D0 LDY #LRARAM LOAD LRA TABLE BASE ADDRESS 1152 FAC2 E6 A6 LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE 1153 FAC4 54 LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED 1154 FAC5 54 LSRB PHYSICAL ADDRESS. 1155 FAC6 54 LSRB EXTENDED MS 4-BITS ARE RETURNED 1156 FAC7 54 LSRB IN THE "A" ACCUMULATOR 1157 FAC8 E7 E4 STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK 1158 FACA E6 A6 LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE 1159 FACC 53 COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG 1160 FACD 58 ASLB ADJ DATA FOR RELOCATION IN X REG 1161 FACE 58 ASLB ; 1162 FACF 58 ASLB $FB97 1163 FAD0 58 ASLB ; 1164 FAD1 A6 62 LDA 2,S GET MS BYTE OF LOGICAL ADDR. 1165 FAD3 84 0F ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS 1166 FAD5 A7 62 STA 2,S SAVE IT IN X REG ON STACK 1167 FAD7 EA 62 ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR. 1168 * 1169 * PLUS LS NIBBLE OF LOGICAL ADDRESS 1170 FAD9 E7 62 STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG 1171 * ON STACK 1172 FADB 35 B6 PULS A,B,X,Y,PC POP REGS. FROM STACK 1173 ENDIF DATOPT 1174 * 1175 * DELAY LOOP 1176 * 1177 FADD 34 04 DLY PSHS B SAVE CONTENTS OF "B" 1178 FADF C6 20 LDB #$20 GET LOOP DELAY VALUE 1179 FAE1 5A SUB1 DECB SUBTRACT ONE FROM VALUE 1180 FAE2 26 FD BNE SUB1 LOOP UNTIL ZERO 1181 FAE4 35 84 PULS B,PC RESTORE CONTENTS OF "B" 1182 * RTS ; 1183 * 1184 ***** "L" LOAD MIKBUG TAPE ***** 1185 * 1186 FAE6 BD FD 57 LOAD JSR ACINIZ 1187 FAE9 86 11 LDA #$11 LOAD 'DC1' CASS. READ ON CODE 1188 FAEB 17 02 58 LBSR OUTCH OUTPUT IT TO TERMINAL PORT 1189 FAEE 7F DF E2 CLR ECHO TURN OFF ECHO FLAG 1190 FAF1 17 02 2A LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO 1191 FAF4 81 53 LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ? 1192 FAF6 26 F9 BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR. 1193 FAF8 17 02 23 LBSR ECHON 1194 FAFB 81 39 CMPA #'9 IS IT A "9" , END OF FILE CHAR ? 1195 FAFD 27 3D BEQ LOAD21 IF SO, EXIT LOAD 1196 FAFF 81 31 CMPA #'1 IS IT A "1" , FILE LOAD CHAR ? 1197 FB01 26 F1 BNE LOAD2 IF NOT, LOOK FOR START CHAR. 1198 FB03 17 01 A8 LBSR BYTE INPUT BYTE COUNT 1199 FB06 34 02 PSHS A PUSH COUNT ON STACK 1200 FB08 29 26 BVS LODERR (V) C-CODE SET, ILLEGAL HEX 1201 FB0A 17 01 91 LBSR IN1ADR INPUT LOAD ADDRESS 1202 FB0D 29 21 BVS LODERR (V) C-CODE SET, ADDR NOT HEX 1203 FB0F 34 10 PSHS X PUSH ADDR ON STACK 1204 FB11 E6 E0 LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE 1205 FB13 EB E0 ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM 1206 FB15 EB E4 ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM 1207 FB17 6A E4 DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS 1208 FB19 6A E4 DEC ,S ADDRESS BYTES. 1209 FB1B 34 04 LOAD10 PSHS B PUSH CHECKSUM ON STACK 1210 FB1D 17 01 8E LBSR BYTE INPUT DATA BYTE (2 HEX CHAR) 1211 FB20 35 04 PULS B POP CHECKSUM FROM STACK 1212 FB22 29 0C BVS LODERR (V) SET, DATA BYTE NOT HEX 1213 FB24 34 02 PSHS A PUSH DATA BYTE ON STACK 1214 FB26 EB E0 ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK 1215 FB28 6A E4 DEC ,S DECREMENT BYTE COUNT 1 1216 FB2A 27 05 BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM 1217 FB2C A7 80 STA ,X+ SAVE DATA BYTE IN MEMORY 1218 FB2E 20 EB BRA LOAD10 GET NEXT DATA BYTE 1219 FB30 5F LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ; 1220 FB31 35 02 LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT) 1221 FB33 C1 FF CMPB #$FF CHECKSUM OK? 1222 FB35 27 BA BEQ LOAD1 IF SO, LOAD NEXT LINE 1223 FB37 86 3F LDA #'? LOAD (?) ERROR INDICATOR 1224 FB39 17 02 0A LBSR OUTCH OUTPUT IT TO TERMINAL 1225 FB3C 73 DF E2 LOAD21 COM ECHO TURN ECHO ON 1226 FB3F 86 13 LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE 1227 FB41 16 02 02 LBRA OUTCH OUTPUT IT 1228 * 1229 ***** "P" PUNCH MIKBUG TAPE ***** 1230 * 1231 FB44 6F E2 PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK 1232 FB46 17 01 4A LBSR IN2ADR GET BEGIN AND END ADDRESS 1233 FB49 34 30 PSHS X,Y SAVE ADDRESSES ON STACK 1234 FB4B 29 4D BVS PUNEXT (V) C-CODE SET, EXIT PUNCH 1235 FB4D AC 62 CMPX 2,S COMPARE BEGIN TO END ADDR 1236 FB4F 25 49 BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH 1237 FB51 30 01 LEAX 1,X INCREMENT END ADDRESS 1238 FB53 AF E4 STX ,S STORE END ADDR ON STACK 1239 FB55 BD FD 57 JSR ACINIZ 1240 FB58 86 12 LDA #$12 LOAD 'DC2' PUNCH ON CODE 1241 FB5A 17 01 E9 LBSR OUTCH OUTPUT IT TO TERMINAL 1242 FB5D EC E4 PUNCH2 LDD ,S LOAD END ADDR IN D-ACC 1243 FB5F A3 62 SUBD 2,S SUBTRACT BEGIN FROM END 1244 FB61 27 06 BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT 1245 FB63 10 83 00 20 CMPD #$20 LESS THAN 32 BYTES? 1246 FB67 23 02 BLS PUNCH4 PUNCH THAT MANY BYTES 1247 FB69 C6 20 PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32. 1248 FB6B E7 64 PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT 1249 FB6D 8E FE 23 LDX #MSG20 POINT TO MSG "S1" 1250 FB70 17 00 2F LBSR PSTRNG PRINT MSG 1251 FB73 CB 03 ADDB #3 ADD 3 BYTES TO BYTE COUNT 1252 FB75 1F 98 TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH 1253 FB77 17 01 75 LBSR OUT2H OUTPUT BYTE COUNT 1254 FB7A AE 62 LDX 2,S LOAD BEGIN ADDRESS 1255 FB7C 17 01 68 LBSR OUT4H PUNCH ADDRESS 1256 FB7F EB 62 ADDB 2,S ADD ADDR MSB TO CHECKSUM 1257 FB81 EB 63 ADDB 3,S ADD ADDR LSB TO CHECKSUM 1258 FB83 EB 84 PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM 1259 FB85 A6 80 LDA ,X+ LOAD DATA BYTE TO PUNCH 1260 FB87 17 01 65 LBSR OUT2H OUTPUT DATA BYTE 1261 FB8A 6A 64 DEC 4,S DECREMENT BYTE COUNT 1262 FB8C 26 F5 BNE PUNCHL NOT DONE, PUNCH NEXT BYTE 1263 FB8E 53 COMB 1's COMPLIMENT CHECKSUM BYTE 1264 FB8F 1F 98 TFR B,A GET IT IN A-ACC TO PUNCH 1265 FB91 17 01 5B LBSR OUT2H OUTPUT CHECKSUM BYTE 1266 FB94 AF 62 STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR 1267 FB96 AC E4 CMPX ,S COMPARE IT TO END ADDR 1268 FB98 26 C3 BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT. 1269 FB9A 86 14 PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE 1270 FB9C 17 01 A7 LBSR OUTCH OUTPUT IT 1271 FB9F 32 65 LEAS 5,S READJUST STACK POINTER 1272 FBA1 39 RTS ; 1273 * 1274 * PRINT STRING PRECEEDED BY A CR & LF. 1275 * 1276 FBA2 8D 02 PSTRNG BSR PCRLF PRINT CR/LF 1277 FBA4 20 71 BRA PDATA PRINT STRING POINTED TO BY IX 1278 * 1279 * PCRLF 1280 * 1281 FBA6 34 10 PCRLF PSHS X SAVE IX 1282 FBA8 8E FD D4 LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS 1283 FBAB 17 00 69 LBSR PDATA PRINT MSG 1284 FBAE 35 90 PULS X,PC RESTORE IX & RETURN 1285 * 1286 * LONG BRANCHES TO COMMON ROUTINES 1287 * 1288 FBB0 16 01 91 JOUT1S LBRA OUT1S 1289 FBB3 16 00 F8 JBYTE LBRA BYTE 1290 FBB6 16 00 E5 JIN1ADR LBRA IN1ADR 1291 * 1292 * ALTER "PC" PROGRAM COUNTER 1293 * 1294 FBB9 17 00 91 ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = " 1295 FBBC 8D F2 ALTPC1 BSR JOUT1S OUTPUT SPACE 1296 FBBE 8D F6 BSR JIN1ADR GET NEW CONTENTS FOR "PC" 1297 FBC0 29 02 BVS ALTPCD EXIT IF INVALID HEX 1298 FBC2 AF 4A STX 10,U POKE IN NEW CONTENTS 1299 FBC4 39 ALTPCD RTS ; 1300 * 1301 * ALTER "U" USER STACK POINTER 1302 * 1303 FBC5 8D 61 ALTRU BSR PRTUS $FCCA PRINT MSG " US = " 1304 FBC7 8D E7 BSR JOUT1S OUTPUT SPACE 1305 FBC9 8D EB BSR JIN1ADR 1306 FBCB 29 02 BVS ALTUD 1307 FBCD AF 48 STX 8,U 1308 FBCF 39 ALTUD RTS ; 1309 * 1310 * ALTER "Y" INDEX REGISTER 1311 * 1312 FBD0 8D 72 ALTRY BSR PRTIY PRINT MSG " IY = " 1313 FBD2 8D DC BSR JOUT1S OUTPUT SPACE 1314 FBD4 8D E0 BSR JIN1ADR 1315 FBD6 29 02 BVS ALTYD 1316 FBD8 AF 46 STX 6,U $F8F0 1317 FBDA 39 ALTYD RTS ; 1318 * 1319 * ALTER "X" INDEX REGISTER 1320 * 1321 FBDB 8D 5E ALTRX BSR PRTIX $FCE0 PRINT MSG " IX = " 1322 FBDD 8D D1 BSR JOUT1S OUTPUT SPACE 1323 FBDF 8D D5 BSR JIN1ADR 1324 FBE1 29 02 BVS ALTXD 1325 FBE3 AF 44 STX 4,U 1326 FBE5 39 ALTXD RTS ; 1327 * 1328 * ALTER "DP" DIRECT PAGE REGISTER 1329 * 1330 FBE6 8D 49 ALTRDP BSR PRTDP $FCD5 PRINT MSG " DP = " 1331 FBE8 8D C6 BSR JOUT1S OUTPUT SPACE 1332 FBEA 8D C7 BSR JBYTE INPUT BYTE (2 HEX CHAR) 1333 FBEC 29 02 BVS ALTDPD 1334 FBEE A7 43 STA 3,U 1335 FBF0 39 ALTDPD RTS ; 1336 * 1337 * ALTER "B" ACCUMULATOR 1338 * 1339 FBF1 8D 6C ALTRB BSR PRTB $FD09 PRINT MSG " B = " 1340 FBF3 8D BB BSR JOUT1S OUTPUT SPACE 1341 FBF5 8D BC BSR JBYTE INPUT BYTE (2 HEX CHAR) 1342 FBF7 29 02 BVS ALTBD 1343 FBF9 A7 42 STA 2,U 1344 FBFB 39 ALTBD RTS $F91C 1345 * 1346 * ALTER "A" ACCUMULATOR 1347 * 1348 FBFC 8D 58 ALTRA BSR PRTA $FCFF RINT MSG " A = " 1349 FBFE 8D B0 BSR JOUT1S OUTPUT SPACE 1350 FC00 8D B1 BSR JBYTE INPUT BYTE (2 HEX CHAR) 1351 FC02 29 02 BVS ALTAD 1352 FC04 A7 41 STA 1,U 1353 FC06 39 ALTAD RTS ; 1354 * 1355 * ALTER "CC" REGISTER 1356 * 1357 FC07 8D 5F ALTRCC BSR PRTCC $FD13 PRINT MSG " CC: " 1358 FC09 8D A5 BSR JOUT1S OUTPUT SPACE 1359 FC0B 8D A6 BSR JBYTE INPUT BYTE (2 HEX CHAR) 1360 FC0D 29 04 BVS ALTCCD 1361 FC0F 8A 80 ORA #$80 SETS "E" FLAG IN PRINT LIST 1362 FC11 A7 C4 STA ,U 1363 FC13 39 ALTCCD RTS ; 1364 * 1365 * PDATA 1366 * 1367 FC14 17 01 2F PRINT LBSR OUTCH 1368 FC17 A6 80 PDATA LDA ,X+ GET 1st CHAR. TO PRINT 1369 FC19 81 04 CMPA #4 IS IT EOT? 1370 FC1B 26 F7 BNE PRINT IF NOT EOT PRINT IT 1371 FC1D 39 RTS ; 1372 * 1373 * PRINT REGISTERS 1374 * 1375 FC1E 8E FD E6 PRTSP LDX #MSG10 POINT TO MSG "SP=" 1376 FC21 8D F4 BSR PDATA PRINT MSG 1377 FC23 1F 31 TFR U,X 1378 FC25 16 00 BF JOUT4H LBRA OUT4H 1379 * 1380 FC28 8E FD F2 PRTUS LDX #MSG12 POINT TO MSG "US=" 1381 FC2B 8D EA BSR PDATA PRINT MSG 1382 FC2D AE 48 LDX 8,U 1383 FC2F 20 F4 BRA JOUT4H 1384 * 1385 FC31 8E FE 04 PRTDP LDX #MSG15 POINT TO MSG "DP=" 1386 FC34 8D E1 BSR PDATA PRINT MSG 1387 FC36 A6 43 LDA 3,U 1388 FC38 16 00 B4 JOUT2H LBRA OUT2H OUTPUT HEX BYTE AS ASCII 1389 * 1390 FC3B 8E FD FE PRTIX LDX #MSG14 POINT TO MSG "IX=" 1391 FC3E 8D D7 BSR PDATA PRINT MSG 1392 FC40 AE 44 LDX 4,U $FCE6 1393 FC42 20 E1 BRA JOUT4H 1394 * 1395 FC44 8E FD F8 PRTIY LDX #MSG13 POINT TO MSG "IY=" 1396 FC47 8D CE BSR PDATA PRINT MSG 1397 FC49 AE 46 LDX 6,U 1398 FC4B 20 D8 BRA JOUT4H 1399 * 1400 FC4D 8E FD EC PRTPC LDX #MSG11 POINT TO MSG "PC=" 1401 FC50 8D C5 BSR PDATA PRINT MSG 1402 FC52 AE 4A LDX 10,U 1403 FC54 20 CF BRA JOUT4H 1404 * 1405 FC56 8E FE 0A PRTA LDX #MSG16 POINT TO MSG "A=" 1406 FC59 8D BC BSR PDATA PRINT MSG 1407 FC5B A6 41 LDA 1,U 1408 FC5D 20 D9 BRA JOUT2H OUTPUT HEX BYTE AS ASCII 1409 * 1410 FC5F 8E FE 0F PRTB LDX #MSG17 POINT TO MSG "B=" 1411 FC62 8D B3 BSR PDATA PRINT MSG 1412 FC64 A6 42 LDA 2,U 1413 FC66 20 D0 BRA JOUT2H OUTPUT HEX BYTE AS ASCII 1414 * 1415 FC68 8E FE 14 PRTCC LDX #MSG18 POINT TO MSG "CC:" 1416 FC6B 8D AA BSR PDATA PRINT MSG 1417 FC6D A6 C4 LDA ,U 1418 FC6F 8E FE 1B LDX #MSG19 POINT TO MSG "EFHINZVC" 1419 FC72 16 00 90 LBRA BIASCI OUTPUT IN BINARY/ASCII FORMAT 1420 * 1421 * "R" DISPLAY REGISTERS 1422 * 1423 FC75 8E FD E2 REGSTR LDX #MSG5 POINT TO MSG " - " 1424 FC78 17 FF 27 LBSR PSTRNG PRINT MSG 1425 FC7B 8D A1 BSR PRTSP $FCBF 1426 FC7D 8D A9 BSR PRTUS $FCCA 1427 FC7F 8D B0 BSR PRTDP $FCD5 1428 FC81 8D B8 BSR PRTIX $FCE0 1429 FC83 8D BF BSR PRTIY $FCEB 1430 FC85 8E FD E2 LDX #MSG5 POINT TO MSG " - " 1431 FC88 17 FF 17 LBSR PSTRNG PRINT MSG 1432 FC8B 8D C0 BSR PRTPC $FCF5 1433 FC8D 8D C7 BSR PRTA $FCFF 1434 FC8F 8D CE BSR PRTB $FD09 1435 FC91 20 D5 BRA PRTCC $FD13 1436 * 1437 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE 1438 * OPERATOR TO INPUT TWO VALID HEX ADDRESSES. 1439 * THE FIRST ADDRESS INPUT IS RETURNED IN "IY". 1440 * THE SECOND IS RETURNED IN "IX". THE "V" BIT 1441 * IN THE C-CODE REG. IS SET IF AN INVALID HEX 1442 * ADDRESS IS INPUT. 1443 * 1444 FC93 8D 09 IN2ADR BSR IN1ADR GET FIRST ADDRESS 1445 FC95 29 4D BVS NOTHEX EXIT IF NOT VALID HEX 1446 FC97 1F 12 TFR X,Y SAVE FIRST ADDR. IN "IY" 1447 FC99 86 2D LDA #'- 1448 FC9B 17 00 A8 LBSR OUTCH PRINT " - " 1449 * 1450 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE 1451 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE 1452 * ADDRESS IS RETURNED IN THE "X" REGISTER. 1453 * 1454 FC9E 8D 0E IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR) 1455 FCA0 29 42 BVS NOTHEX EXIT IF NOT VALID HEX 1456 FCA2 1F 01 TFR D,X 1457 FCA4 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR) 1458 FCA6 29 3C BVS NOTHEX 1459 FCA8 34 10 PSHS X 1460 FCAA A7 61 STA 1,S 1461 FCAC 35 90 PULS X,PC 1462 * 1463 ***** INPUT BYTE (2 HEX CHAR.) ***** 1464 * 1465 FCAE 8D 11 BYTE BSR INHEX GET HEX LEFT 1466 FCB0 29 32 BVS NOTHEX EXIT IF NOT VALID HEX 1467 FCB2 48 ASLA ; 1468 FCB3 48 ASLA ; 1469 FCB4 48 ASLA ; SHIFT INTO LEFT NIBBLE 1470 FCB5 48 ASLA ; 1471 FCB6 1F 89 TFR A,B PUT HEXL IN "B" 1472 FCB8 8D 07 BSR INHEX GET HEX RIGHT 1473 FCBA 29 28 BVS NOTHEX EXIT IF NOT VALID HEX 1474 FCBC 34 04 PSHS B PUSH HEXL ON STACK 1475 FCBE AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK 1476 FCC0 39 RTS RETURN WITH HEX L&R IN "A" 1477 * 1478 * 1479 FCC1 8D 5B INHEX BSR ECHON INPUT ASCII CHAR. 1480 FCC3 81 30 CMPA #'0 IS IT > OR = "0" ? 1481 FCC5 25 1D BCS NOTHEX IF LESS IT AIN'T HEX 1482 FCC7 81 39 CMPA #'9 IS IT < OR = "9" ? 1483 FCC9 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA 1484 FCCB 80 30 SUBA #$30 ASCII ADJ. NUMERIC 1485 FCCD 39 RTS ; 1486 * 1487 * 1488 FCCE 81 41 INHEXA CMPA #'A IS IT > OR = "A" 1489 FCD0 25 12 BCS NOTHEX IF LESS IT AIN'T HEX 1490 FCD2 81 46 CMPA #'F IS IT < OR = "F" ? 1491 FCD4 22 03 BHI INHEXL IF > IT AIN'T HEX 1492 FCD6 80 37 SUBA #$37 ASCII ADJ. ALPHA 1493 FCD8 39 RTS ; 1494 * 1495 FCD9 81 61 INHEXL CMPA #'a IS IT > OR = "a" 1496 FCDB 25 07 BCS NOTHEX IF LESS IT AIN'T HEX 1497 FCDD 81 66 CMPA #'f IS IT < "f" 1498 FCDF 22 03 BHI NOTHEX IF > IT AIN'T HEX 1499 FCE1 80 57 SUBA #$57 ADJUST TO LOWER CASE 1500 FCE3 39 RTS ; 1501 * 1502 * 1503 FCE4 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER 1504 FCE6 39 RTS ; 1505 * 1506 * 1507 FCE7 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK 1508 FCE9 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC. 1509 FCEB 8D 02 BSR OUTHL OUTPUT HEX LEFT 1510 FCED 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC. 1511 FCEF OUTHL EQU * 1512 FCEF 34 02 OUT2H PSHS A SAVE IT BACK ON STACK 1513 FCF1 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII 1514 FCF2 44 LSRA ; 1515 FCF3 44 LSRA ; 1516 FCF4 44 LSRA ; 1517 FCF5 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII 1518 FCF7 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII 1519 FCF9 84 0F ANDA #$0F STRIP LEFT NIBBLE 1520 FCFB 8B 30 XASCII ADDA #$30 ASCII ADJ 1521 FCFD 81 39 CMPA #$39 IS IT < OR = "9" ? 1522 FCFF 2F 02 BLE OUTC IF LESS, OUTPUT IT 1523 FD01 8B 07 ADDA #7 IF > MAKE ASCII LETTER 1524 FD03 20 41 OUTC BRA OUTCH OUTPUT CHAR 1525 * 1526 * BINARY / ASCII --- THIS ROUTINE 1527 * OUTPUTS A BYTE IN ENHANCED 1528 * BINARY FORMAT. THE ENHANCEMENT 1529 * IS DONE BY SUBSTITUTING ASCII 1530 * LETTERS FOR THE ONES IN THE BYTE. 1531 * THE ASCII ENHANCEMENT LETTERS 1532 * ARE OBTAINED FROM THE STRING 1533 * POINTED TO BY THE INDEX REG. "X". 1534 * 1535 FD05 34 02 BIASCI PSHS A SAVE "A" ON STACK 1536 FD07 C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE 1537 FD09 A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING 1538 FD0B 68 E4 ASL ,S TEST BYTE FOR "1" IN B7 1539 FD0D 25 02 BCS PRTBA IF ONE PRINT LETTER 1540 FD0F 86 2D LDA #'- IF ZERO PRINT "-" 1541 FD11 8D 33 PRTBA BSR OUTCH PRINT IT 1542 FD13 8D 2F BSR OUT1S PRINT SPACE 1543 FD15 5A DECB SUB 1 FROM #BITS YET TO PRINT 1544 FD16 26 F1 BNE OUTBA 1545 FD18 35 82 PULS A,PC 1546 * 1547 * EXTENDED USER COMMANDS 1548 * 1549 FD1A 6E 9F F0 00 EXTEND JMP [MONEXT+EXTCMD] 1550 * 1551 * 1552 FD1E 7D DF E2 ECHON TST ECHO IS ECHO REQUIRED ? 1553 FD21 27 06 BEQ INCH ECHO NOT REQ. IF CLEAR 1554 * 1555 * INCHE 1556 * 1557 * ---GETS CHARACTER FROM TERMINAL AND 1558 * ECHOS SAME. THE CHARACTER IS RETURNED 1559 * IN THE "A" ACCUMULATOR WITH THE PARITY 1560 * BIT MASKED OFF. ALL OTHER REGISTERS 1561 * ARE PRESERVED. 1562 * 1563 FD23 8D 04 INCHE BSR INCH GET CHAR FROM TERMINAL 1564 FD25 84 7F ANDA #$7F STRIP PARITY FROM CHAR. 1565 FD27 20 1D BRA OUTCH ECHO CHAR TO TERMINAL 1566 * 1567 * INCH 1568 * 1569 * GET CHARACTER FROM TERMINAL. RETURN 1570 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE 1571 * ALL OTHER REGISTERS. THE INPUT CHARACTER 1572 * IS 8 BITS AND IS NOT ECHOED. 1573 * 1574 * 1575 FD29 34 10 INCH PSHS X SAVE IX 1576 FD2B BE DF E0 GETSTA LDX CPORT POINT TO TERMINAL PORT 1577 FD2E A6 84 LDA ,X FETCH PORT STATUS 1578 FD30 85 01 BITA #1 TEST READY BIT, RDRF ? 1579 IFD PS2OPT 1580 BNE GETST1 1581 LDX #PS2KBD 1582 LDA ,X 1583 BITA #1 1584 ENDIF PS2OPT 1584 ENDIF PS2OPT 1585 FD32 27 F7 BEQ GETSTA IF NOT RDY, THEN TRY AGAIN 1586 FD34 A6 01 GETST1 LDA 1,X FETCH CHAR 1587 FD36 35 90 PULS X,PC RESTORE IX 1588 * 1589 * INCHEK 1590 * 1591 * CHECK FOR A CHARACTER AVAILABLE FROM 1592 * THE TERMINAL. THE SERIAL PORT IS CHECKED 1593 * FOR READ READY. ALL REGISTERS ARE 1594 * PRESERVED, AND THE "Z" BIT WILL BE 1595 * CLEAR IF A CHARACTER CAN BE READ. 1596 * 1597 * 1598 FD38 34 02 INCHEK PSHS A SAVE A ACCUM. 1599 FD3A A6 9F DF E0 LDA [CPORT] FETCH PORT STATUS 1600 FD3E 85 01 BITA #1 TEST READY BIT, RDRF ? 1601 IFD PS2OPT 1602 BNE INCHEK1 1603 LDA PS2KBD 1604 BITA #1 TEST READY BIT< RDRF ? 1605 ENDIF PS2OPT 1605 ENDIF PS2OPT 1606 FD40 35 82 INCHEK1 PULS A,PC RESTORE A ACCUM. 1607 * 1608 FD42 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES 1609 FD44 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE 1610 * 1611 * 1612 * OUTCH 1613 * 1614 * OUTPUT CHARACTER TO TERMINAL. 1615 * THE CHAR. TO BE OUTPUT IS 1616 * PASSED IN THE A REGISTER. 1617 * ALL REGISTERS ARE PRESERVED. 1618 * 1619 OUTCH IFD VDUOPT 1620 BSR VOUTCH 1621 ENDIF VDUOPT 1621 ENDIF VDUOPT 1622 IFD DG640OPT 1623 BSR VOUTCH 1624 ENDIF DG640OPT 1624 ENDIF DG640OPT 1625 FD46 34 12 AOUTCH PSHS A,X SAVE A ACCUM AND IX 1626 FD48 BE DF E0 LDX CPORT GET ADDR. OF TERMINAL 1627 FD4B A6 84 FETSTA LDA ,X FETCH PORT STATUS 1628 FD4D 85 02 BITA #2 TEST TDRE, OK TO XMIT ? 1629 FD4F 27 FA BEQ FETSTA IF NOT LOOP UNTIL RDY 1630 FD51 35 02 PULS A GET CHAR. FOR XMIT 1631 FD53 A7 01 STA 1,X XMIT CHAR. 1632 FD55 35 90 PULS X,PC RESTORE IX 1633 * 1634 * IO INITIALIZATION 1635 * 1636 FD57 IOINIZ EQU * 1637 IFD VDUOPT 1638 BSR VINIZ 1639 ENDIF VDUOPT 1639 ENDIF VDUOPT 1640 IFD DG640OPT 1641 BSR VINIZ 1642 ENDIF DG640OPT 1642 ENDIF DG640OPT 1643 FD57 BE DF E0 ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS 1644 FD5A 86 03 LDA #3 RESET ACIA PORT CODE 1645 FD5C A7 84 STA ,X STORE IN CONTROL REGISTER 1646 FD5E 86 11 LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY 1647 FD60 A7 84 STA ,X STORE IN CONTROL REGISTER 1648 FD62 6D 01 TST 1,X ANYTHING IN DATA REGISTER? 1649 FD64 86 FF LDA #$FF TURN ON ECHO FLAG 1650 FD66 B7 DF E2 STA ECHO 1651 FD69 39 RTS 1652 * 1653 IFD VDUOPT 1654 * 1655 *************************************************** 1656 * VDU8 ADM3A REGISTER-MAPPED EMULATOR * 1657 * * 1658 * 80 x 25 Characters 1659 * 1660 *************************************************** 1661 * 1662 *************************************************** 1663 * INITIALIZE EMULATOR * 1664 *************************************************** 1665 * 1666 VINIZ LDX #VDU 1667 LDD #0 1668 STD COLADX AND ROWADX 1669 STA VDUCOL,X 1670 STB VDUROW,X 1671 STB VDUOFF,X 1672 STD NEWROW AND ESCFLG 1673 LDB #$02 1674 STB VDUATT,X 1675 CLR ESCFLG 1676 LDA #$1B SEND ESCAPE 1677 BSR VOUTCH 1678 LDA #'Y CLEAR TO END OF SCREEN 1679 * 1680 ** VIDEO OUTPUT ROUTINE 1681 * 1682 VOUTCH PSHS A,B,X SAVE REGISTERS 1683 LDX #VDU POINT TO VDU REGISTERS 1684 * 1685 ** CHECK FOR ESCAPE SEQUENCE 1686 * 1687 TST ESCFLG ESCAPE ACTIVE? 1688 BEQ SOROU1 BRANCH IF NOT 1689 BSR ESCAPE ELSE DO ESCAPE 1690 BRA RETURN AND RETURN 1691 * 1692 ** CHECK FOR CONTROL CHARACTERS 1693 * 1694 SOROU1 CMPA #$20 CONTROL CODES? 1695 BHS SOROU2 1696 BSR CONTRL BRANCH IF SO 1697 BRA RETURN 1698 * 1699 ** OUTPUT TEXT CHARACTER 1700 * 1701 SOROU2 STAA VDUCHR,X DISPLAY CHARACTER 1702 LBSR NEWCOL UPDATE COLUMN 1703 * 1704 ** DISPLAY CURSOR AND RETURN 1705 * 1706 RETURN PULS A,B,X,PC RESTORE REGISTERS AND RETURN 1707 * 1708 *************************************************** 1709 * CONTROL CODE HANDLERS * 1710 *************************************************** 1711 * 1712 CONTRL CMPA #$08 CTRL H - BACKSPACE ? 1713 LBEQ BACKSP 1714 CMPA #$1B ESCAPE SEQUENCE? 1715 LBEQ SETESC 1716 CMPA #$1A CTRL Z - Clear Screen 1717 LBEQ CLRSCR 1718 CMPA #$16 CTRL ^ - Home 1719 LBEQ HOME 1720 CMPA #$D CTRL M - RETURN? 1721 LBEQ CRETN 1722 CMPA #$0C CTRL L - CHAR RIGHT 1723 LBEQ CHRIGHT 1724 CMPA #$0B CTRL K - MOVE UP ONE LINE 1725 LBEQ LINEUP 1726 CMPA #$0A CTRL J - LINE FEED 1727 BNE RETESC NONE OF THESE, RETURN 1728 * 1729 ***************************************** LINE FEED 1730 * 1731 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW 1732 INCB BUMP ROW 1733 CMPB #NUMLIN SCROLL TIME? 1734 LBNE NEWCUR POSITION CURSOR IF NOT 1735 LBRA SCROLL ELSE SCROLL IT 1736 * 1737 ***************************************** LINE FEED 1738 * 1739 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW 1740 TSTB AT TOP OF SCREEN ? 1741 LBEQ RETESC Yes, Ignore 1742 DECB No, Decrement ROW 1743 LBRA NEWCUR POSITION CURSOR 1744 * 1745 *********************************** BACK SPACE 1746 * 1747 BACKSP LDA COLADX 1748 BEQ RETESC RETURN 1749 DECA 1750 LBRA POSCOL POSITION CURSOR 1751 * 1752 *********************************** CURSOR RIGHT 1753 * 1754 CHRIGHT LDA COLADX 1755 INCA 1756 CMPA #LINLEN 1757 LBEQ RETESC 1758 LBRA POSCOL 1759 * 1760 *********************************** CURSOR RIGHT 1761 * 1762 HOME LDD #0 HOME - POSITION TOP OF SCREEN 1763 LBRA NEWCUR 1764 * 1765 *************************************************** 1766 * ESCAPE HANDLERS * 1767 *************************************************** 1768 * 1769 ESCAPE LDAB ESCFLG GET FLAG 1770 CMPB #'= SETTING CURSOR? 1771 BEQ ESCCUR BRANCH IF SO 1772 CMPA #'Y CLEAR TO END OF SCREEN? 1773 LBEQ ESCCLS 1774 CMPA #'T CLEAR TO END OF LINE? 1775 BEQ ESCCLL 1776 CMPA #'= STARTING CURSOR SET? 1777 BNE CLRESC BRANCH IF NOT 1778 * 1779 ***************************** START ESCAPE SEQUENCE 1780 * 1781 SETESC STAA ESCFLG ELSE START CURSORING 1782 RTS AND RETURN 1783 * 1784 CLRESC CLR ESCFLG NO OTHERS SUPPORTED 1785 RETESC RTS SO RETURN 1786 * 1787 ********************************* SET SCREEN CURSOR 1788 * 1789 ESCCUR TST NEWROW ROW SET? 1790 BNE ESCCU1 BRANCH IF SO 1791 STAA NEWROW ELSE SET NEW ROW 1792 RTS AND RETURN 1793 * 1794 ESCCU1 CLR ESCFLG 1795 SUBA #$20 ADJUST COLUMN ADDRESS 1796 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM 1797 BHI RETESC NOT OK, DO NOTHING 1798 * 1799 ESCCU2 LDAB NEWROW 1800 CLR NEWROW 1801 SUBB #$20 ADJUST TO ROW ADDRESS 1802 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW 1803 BHI RETESC ELSE RETURN DOING NOTHING 1804 BRA NEWCUR GO SET NEW CURSOR IF SO 1805 * 1806 ****************** CLEAR FROM CURSOR TO END OF LINE 1807 CLRSCR LDD #0 CLEAR FROM TOP OF SCREEN 1808 BSR NEWCUR 1809 ESCCLL LDA COLADX 1810 LDB #$20 AND CLEAR CHAR 1811 ESCCL1 STB VDUCHR,X DISPLAY TEXT 1812 INCA 1813 STA VDUCOL,X 1814 CMPA #LINLEN UNTIL END OF LINE 1815 BNE ESCCL1 1816 CLR ESCFLG 1817 RTS 1818 * 1819 *********************************** CARRIAGE RETURN 1820 * 1821 CRETN CLRA SET COLUMN ZERO 1822 POSCOL LDB ROWADX GET CURRENT ROW 1823 * 1824 *********** GENERATE NEW CURSOR POSITION AND RETURN 1825 * 1826 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN 1827 STA VDUCOL,X SET NEW COLUMN 1828 STB VDUROW,X SET NEW ROW 1829 RTS AND RETURN 1830 * 1831 ********************* UPDATE CURRENT COLUMN AND ROW 1832 * 1833 NEWCOL LDD COLADX GET ROW AND COLUMN 1834 INCA BUMP COLUMN 1835 CMPA #LINLEN ROLL? 1836 BNE NEWCUR BRANCH IF NOT 1837 CLRA ELSE RESET TO ZERO 1838 INCB AND BUMP ROW 1839 CMPB #NUMLIN 1840 BNE NEWCUR 1841 DECB BOTTOM ROW 1842 BSR NEWCUR 1843 * 1844 ********************************* SCROLL THE SCREEN 1845 * 1846 SCROLL LDB VDUOFF,X 1847 INCB 1848 CMPB #NUMLIN 1849 BLO SCROL1 1850 CLRB 1851 SCROL1 STB VDUOFF,X 1852 * 1853 **************** CLEAR FROM CURSOR TO END OF SCREEN 1854 * 1855 ESCCLS LDB COLADX GET CURSOR 1856 LDA #$20 GET A SPACE 1857 ESCCLS1 STB COLADX 1858 STB VDUCOL,X 1859 STA VDUCHR,X 1860 INCB 1861 CMPB #LINLEN 1862 BNE ESCCLS1 1863 * 1864 LDB ROWADX 1865 INCB 1866 CMPB #NUMLIN 1867 BEQ ESCCLS2 1868 STB ROWADX 1869 STB VDUROW,X 1870 CLRB 1871 BRA ESCCLS1 1872 * 1873 ESCCLS2 CLRB 1874 STB COLADX 1875 STB VDUCOL,X 1876 STB ESCFLG 1877 RTS 1878 ENDIF VDUOPT 1878 ENDIF VDUOPT 1879 * 1880 IFD DG640OPT 1881 *************************************************** 1882 * TELEVIDEO-TYPE MEMORY-MAPPED EMULATOR * 1883 * * 1884 * FOR HARD-WIRED MEMORY-MAPPED DISPLAYS USING THE * 1885 * HIGH ORDER BIT OF EACH BYTE FOR REVERSE VIDEO * 1886 * CURSORING (SUCH AS THE THOMAS INSTRUMENTATION * 1887 * 16x64 BOARD). * 1888 *************************************************** 1889 1890 *************************************************** 1891 * INITIALIZE EMULATOR * 1892 *************************************************** 1893 1894 VINIZ LDX #0 1895 STX COLADX AND ROWADX 1896 STX NEWROW AND ESCFLG 1897 LDX #SCREEN POINT TO SCREEN 1898 STX CURSOR SET PROGRAM CURSOR 1899 LDA #$1B SEND ESCAPE 1900 BSR VOUTCH 1901 LDA #'Y CLEAR TO END OF SCREEN 1902 * 1903 ** VIDEO OUTPUT ROUTINE 1904 * 1905 VOUTCH PSHS A,B,X SAVE REGISTERS 1906 * 1907 ** CLEAR CURSOR 1908 LDX CURSOR 1909 LDB 0,X 1910 ANDB #$7F 1911 STB 0,X 1912 * 1913 ** CHECK FOR ESCAPE SEQUENCE 1914 TST ESCFLG ESCAPE ACTIVE? 1915 BEQ SOROU1 BRANCH IF NOT 1916 BSR ESCAPE ELSE DO ESCAPE 1917 BRA RETURN AND RETURN 1918 * 1919 ** CHECK FOR CONTROL CHARACTERS 1920 SOROU1 CMPA #$20 CONTROL CODES? 1921 BHS SOROU2 1922 BSR CONTRL BRANCH IF SO 1923 BRA RETURN 1924 * 1925 ** OUTPUT TEXT CHARACTER 1926 SOROU2 LDX CURSOR ELSE GET CURSOR 1927 STAA 0,X DISPLAY CHARACTER 1928 LBSR NEWCOL UPDATE COLUMN 1929 * 1930 ** DISPLAY CURSOR AND RETURN 1931 RETURN LDX CURSOR AND DISPLAY IT 1932 LDB ,X 1933 ORAB #$80 WITH REVID 1934 STB ,X 1935 PULS A,B,X,PC RESTORE REGISTERS AND RETURN 1936 1937 *************************************************** 1938 * CONTROL CODE HANDLERS * 1939 *************************************************** 1940 1941 CONTRL CMPA #$08 CTRL H - BACKSPACE ? 1942 LBEQ BACKSP 1943 CMPA #$1B ESCAPE SEQUENCE? 1944 LBEQ SETESC 1945 CMPA #$D CTRL M - RETURN? 1946 LBEQ CRETN 1947 CMPA #$0A CTRL J - LINE FEED 1948 BNE RETESC NONE OF THESE, RETURN 1949 1950 ***************************************** LINE FEED 1951 1952 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW 1953 INCB BUMP ROW 1954 CMPB #NUMLIN SCROLL TIME? 1955 LBNE NEWCUR POSITION CURSOR IF NOT 1956 LBRA SCROLL ELSE SCROLL IT 1957 1958 ***************************************** LINE FEED 1959 1960 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW 1961 TSTB AT TOP OF SCREEN ? 1962 BEQ RETESC Yes, Ignore 1963 DECB No, Decrement ROW 1964 LBRA NEWCUR POSITION CURSOR 1965 1966 1967 *********************************** BACK SPACE 1968 1969 BACKSP LDA COLADX 1970 BEQ RETESC RETURN 1971 DECA 1972 LBRA POSCOL POSITION CURSOR 1973 1974 *********************************** CURSOR RIGHT 1975 1976 CHRIGHT LDA COLADX 1977 INCA 1978 CMPA #LINLEN 1979 BEQ RETESC 1980 LBRA POSCOL 1981 1982 *************************************************** 1983 * ESCAPE HANDLERS * 1984 *************************************************** 1985 1986 ESCAPE LDAB ESCFLG GET FLAG 1987 CMPB #'= SETTING CURSOR? 1988 BEQ ESCCUR BRANCH IF SO 1989 CMPA #'Y CLEAR TO END OF SCREEN? 1990 LBEQ ESCCLS 1991 CMPA #'T CLEAR TO END OF LINE? 1992 BEQ ESCCLL 1993 CMPA #'E INSERT LINE? 1994 BEQ ESCINL 1995 CMPA #'R DELETE LINE? 1996 BEQ ESCDLL 1997 CMPA #'= STARTING CURSOR SET? 1998 BNE CLRESC BRANCH IF NOT 1999 2000 ***************************** START ESCAPE SEQUENCE 2001 2002 SETESC STAA ESCFLG ELSE START CURSORING 2003 RTS AND RETURN 2004 2005 CLRESC CLR ESCFLG NO OTHERS SUPPORTED 2006 RETESC RTS SO RETURN 2007 2008 ********************************* SET SCREEN CURSOR 2009 2010 ESCCUR TST NEWROW ROW SET? 2011 BNE ESCCU1 BRANCH IF SO 2012 STAA NEWROW ELSE SET NEW ROW 2013 RTS AND RETURN 2014 2015 ESCCU1 CLR ESCFLG 2016 SUBA #$20 ADJUST COLUMN ADDRESS 2017 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM 2018 BHI RETESC NOT OK, DO NOTHING 2019 2020 ESCCU2 LDAB NEWROW 2021 CLR NEWROW 2022 SUBB #$20 ADJUST TO ROW ADDRESS 2023 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW 2024 BHI RETESC ELSE RETURN DOING NOTHING 2025 BRA NEWCUR GO SET NEW CURSOR IF SO 2026 * 2027 *************************** DELETE LINE FROM SCREEN 2028 2029 ESCDLL BSR CRETN GO COL. ZERO 2030 LDB ROWADX 2031 CMPB #NUMLIN-1 2032 BEQ SCROL3 2033 BRA SCROL1 AND DELETE THIS LINE 2034 2035 *************************** INSERT LINE INTO SCREEN 2036 2037 ESCINL BSR CRETN GO TO COL. ZERO 2038 LDAB ROWADX 2039 CMPB #NUMLIN-1 2040 BEQ ESCCLL 2041 * 2042 ** SCROLL SCREEN DOWN FROM CURSOR 2043 * 2044 LDX #SCREEN+SCNLEN-LINLEN 2045 ESCIN0 LDAA 0,-X 2046 STAA LINLEN,X 2047 LDA SCNLEN,X 2048 STA SCNLEN+LINLEN,X 2049 CPX CURSOR 2050 BNE ESCIN0 2051 2052 ****************** CLEAR FROM CURSOR TO END OF LINE 2053 2054 ESCCLL LDA COLADX GET CURRENT COLUMN 2055 LDX CURSOR GET CURSOR 2056 LDB #$20 AND CLEAR CHAR 2057 ESCLL1 STB SCNLEN,X CLEAR ATTRIBUTE 2058 STB ,X+ CLEAR TEXT 2059 INCA 2060 CMPA #LINLEN UNTIL END OF LINE 2061 BNE ESCLL1 2062 CLR ESCFLG 2063 RTS 2064 2065 *********************************** CARRIAGE RETURN 2066 2067 CRETN CLRA SET COLUMN ZERO 2068 POSCOL LDB ROWADX GET CURRENT ROW 2069 2070 *********** GENERATE NEW CURSOR POSITION AND RETURN 2071 2072 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN 2073 LDA #LINLEN ELSE ADD A LINE 2074 MUL LINLEN * ROWADX 2075 ADDB COLADX 2076 ADCA #0 2077 ADDD #SCREEN ADD SCREEN BASE. 2078 STD CURSOR SAVE NEW CURSOR 2079 TFR D,X GET CURSOR IN X 2080 RTS AND RETURN 2081 2082 ********************* UPDATE CURRENT COLUMN AND ROW 2083 2084 NEWCOL LDD COLADX GET ROW AND COLUMN 2085 INCA BUMP COLUMN 2086 CMPA #LINLEN ROLL? 2087 BNE NEWCUR BRANCH IF NOT 2088 CLRA ELSE RESET TO ZERO 2089 INCB AND BUMP ROW 2090 CMPB #NUMLIN 2091 BNE NEWCUR 2092 DECB BOTTOM ROW 2093 BSR NEWCUR 2094 2095 ********************************* SCROLL THE SCREEN 2096 2097 SCROLL LDX #SCREEN POINT TO SCREEN 2098 SCROL1 LDA SCNLEN+LINLEN,X 2099 STA SCNLEN,X 2100 LDAA LINLEN,X MOVE TWO BYTES 2101 STAA 0,X+ UP ONE LINE 2102 CMPX #SCREEN+SCNLEN-LINLEN 2103 BNE SCROL1 LOOP UNTIL DONE 2104 BRA SCROL3 2105 2106 **************** CLEAR FROM CURSOR TO END OF SCREEN 2107 2108 ESCCLS LDX CURSOR GET CURSOR 2109 SCROL3 LDAA #$20 GET A SPACE 2110 SCROL2 STA SCNLEN,X CLEAR ATTRIBUTES 2111 STA ,X+ AND TEXT 2112 CMPX #SCREEN+SCNLEN 2113 BNE SCROL2 UNTIL DONE 2114 CLR ESCFLG 2115 RTS 2116 ENDIF DG640OPT 2116 ENDIF DG640OPT 2117 * 2118 IFD PRTOPT 2119 ************************************* 2120 * 2121 ** PRINTER DRIVER ROUTINES 2122 * 2123 ************************************* 2124 * 2125 ** PINIZ - INITIATE PRINTER PORT 2126 * 2127 PINIZ PSHS B 2128 LDD #DIRMSK*256+$04 ACCA=DIRMSK ACCB=$04 2129 STD PADATA SET DDR AND SELECT DATA 2130 * 2131 ** RESET PRINTER 2132 LDB #PRESET 2133 STAB PADATA 2134 RESTLP INCB DELAY FOR RESET 2135 BNE RESTLP 2136 STAA PADATA ACCA=DIRMSK 2137 * 2138 ** INITALIZE PORT B (DATA PORT) 2139 LDAA #$2A 2140 STAA PBCTRL 2141 LDD #$FF2E ACCA=$FF ACCB =%00101110 2142 STD PBDATA PBDREG PBCTRL 2143 * 2144 ** SELECT 66 LINES/PAGE 2145 LDAA #$1B 2146 BSR POUTCH 2147 LDAA #'C 2148 BSR POUTCH 2149 LDAA #66 2150 PULS B 2151 ************************************* 2152 * 2153 ** OUTPUT A CHARACTER TO THE PRINTER 2154 * 2155 ************************************* 2156 POUTCH PSHS B 2157 LDAB PBDATA CLEAR INTERRUPT BIT 2158 * 2159 ** WAIT TILL NOT BUSY 2160 BUSYLP LDAB PADATA 2161 BITB #PERROR 2162 BEQ PEXIT 2163 TSTB 2164 BMI BUSYLP 2165 * 2166 ** NOW OUTPUT CHARACTER 2167 STAA PBDATA 2168 PEXIT PULS B,PC 2169 ************************************* 2170 * 2171 ** PCHK TEST IFD PRINTER READY 2172 * 2173 ************************************* 2174 PCHK TST PBCTRL TEST STATE OF CRB7 2175 RTS SET ON ACKNOWLEDGE 2176 ENDIF PRTOPT 2176 ENDIF PRTOPT 2177 ************************************* 2178 * 2179 * MONITOR KEYBOARD COMMAND JUMP TABLE 2180 * 2181 ************************************* 2182 * 2183 FD6A JMPTAB EQU * 2184 FD6A 01 FCB 1 " ^A " 2185 FD6B FB FC FDB ALTRA 2186 FD6D 02 FCB 2 " ^B " 2187 FD6E FB F1 FDB ALTRB 2188 FD70 03 FCB 3 " ^C " 2189 FD71 FC 07 FDB ALTRCC 2190 FD73 04 FCB 4 " ^D " 2191 FD74 FB E6 FDB ALTRDP 2192 FD76 10 FCB $10 " ^P " 2193 FD77 FB B9 FDB ALTRPC 2194 FD79 15 FCB $15 " ^U " 2195 FD7A FB C5 FDB ALTRU 2196 FD7C 18 FCB $18 " ^X " 2197 FD7D FB DB FDB ALTRX 2198 FD7F 19 FCB $19 " ^Y " 2199 FD80 FB D0 FDB ALTRY 2200 * 2201 FD82 42 FCC 'B' 2202 FD83 F9 5C FDB BRKPNT 2203 FD85 45 FCC 'E' 2204 FD86 F8 FD FDB MEMDUMP 2205 FD88 47 FCC 'G' 2206 FD89 F8 A5 FDB GO 2207 FD8B 4C FCC 'L' 2208 FD8C FA E6 FDB LOAD 2209 FD8E 50 FCC 'P' 2210 FD8F FB 44 FDB PUNCH 2211 FD91 4D FCC 'M' 2212 FD92 F8 A8 FDB MEMCHG 2213 FD94 52 FCC 'R' 2214 FD95 FC 75 FDB REGSTR 2215 FD97 53 FCC 'S' 2216 FD98 F8 F1 FDB DISSTK 2217 FD9A 58 FCC 'X' 2218 FD9B F9 88 FDB XBKPNT 2219 IFD MFDCOPT 2220 FD9D 44 FCC 'D' *** SWTPC USES 'U' FOR MINIBOOT 2221 FD9E F9 D5 FDB MINBOOT 2222 ENDIF MFDCOPT 2223 IFD CFOPT 2224 FCC 'D' *** FPGA USES 'D' FOR CFBOOT 2225 FDB CFBOOT 2226 ENDIF CFOPT 2226 ENDIF CFOPT 2227 IFD DMAFOPT 2228 FDA0 55 FCC 'U' *** SWTPC USES 'D' FOR DMAF2 BOOT 2229 FDA1 FA 29 FDB DBOOT 2230 ELSE 2231 FCC 'U' *** IF NOT DMAF2, 'U' IS FOR USER 2232 FDB EXTEND 2233 ENDIF DMAFOPT 2233 ENDIF DMAFOPT 2234 IFD RTCOPT 2235 FCC 'T' 2236 FDB TIMSET 2237 ENDIF RTCOPT 2237 ENDIF RTCOPT 2238 IFD TRAOPT 2239 FCC "T" 2240 FDB TRACE 2241 ENDIF TRAOPT 2241 ENDIF TRAOPT 2242 * 2243 FDA3 TABEND EQU * 2244 * 2245 * ** 6809 VECTOR ADDRESSES ** 2246 * 2247 * FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES 2248 * FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY 2249 * ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE 2250 * RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO 2251 * HIS OWN ROUTINES IF HE SO DESIRES. 2252 * 2253 * 2254 FDA3 F9 94 RAMVEC FDB SWIE USER-V 2255 FDA5 F8 A7 FDB RTI SWI3-V 2256 FDA7 F8 A7 FDB RTI SWI2-V 2257 FDA9 F8 A7 FDB RTI FIRQ-V 2258 FDAB F8 A7 FDB RTI IRQ-V 2259 FDAD F9 94 FDB SWIE SWI-V 2260 FDAF FF FF FDB $FFFF SVC-VO 2261 FDB1 FF FF FDB $FFFF SVC-VL 2262 * 2263 * PRINTABLE MESSAGE STRINGS 2264 * 2265 FDB3 0D 0A 00 00 00 MSG1 FCB $D,$A,$0,$0,$0 * 0, CR/LF, 0 2266 FDB8 53 59 53 30 39 42 FCC 'SYS09BUG 1.3 FOR ' 55 47 20 31 2E 33 20 46 4F 52 20 2267 IFD S3EOPT 2268 FCC 'S3E ' 2269 ENDIF S3EOPT 2269 ENDIF S3EOPT 2270 IFD FPGAOPT 2271 FCC 'FPGA ' 2272 ENDIF FPGAOPT 2272 ENDIF FPGAOPT 2273 IFD ADSOPT 2274 FCC 'ADS6809 ' 2275 ENDIF ADSOPT 2275 ENDIF ADSOPT 2276 IFD SWTPOPT` 2277 FDC9 53 57 54 50 43 20 FCC 'SWTPC ' 2278 ENDIF SWTPOPT 2279 FDCF 20 2D 20 FCC ' - ' 2280 FDD2 04 FCB 4 2281 FDD3 4B 0D 0A 00 00 00 MSG2 FCB 'K,$D,$A,$00,$00,$00,$04 K, * CR/LF + 3 NULS 04 2282 FDDA 3E MSG3 FCC '>' 2283 FDDB 04 FCB 4 2284 FDDC 57 48 41 54 3F MSG4 FCC 'WHAT?' 2285 FDE1 04 FCB 4 2286 FDE2 20 2D 20 MSG5 FCC ' - ' 2287 FDE5 04 FCB 4' 2288 FDE6 20 20 53 50 3D MSG10 FCC ' SP=' 2289 FDEB 04 FCB 4 2290 FDEC 20 20 50 43 3D MSG11 FCC ' PC=' 2291 FDF1 04 FCB 4 2292 FDF2 20 20 55 53 3D MSG12 FCC ' US=' 2293 FDF7 04 FCB 4 2294 FDF8 20 20 49 59 3D MSG13 FCC ' IY=' 2295 FDFD 04 FCB 4 2296 FDFE 20 20 49 58 3D MSG14 FCC ' IX=' 2297 FE03 04 FCB 4 2298 FE04 20 20 44 50 3D MSG15 FCC ' DP=' 2299 FE09 04 FCB 4 2300 FE0A 20 20 41 3D MSG16 FCC ' A=' 2301 FE0E 04 FCB 4 2302 FE0F 20 20 42 3D MSG17 FCC ' B=' 2303 FE13 04 FCB 4 2304 FE14 20 20 43 43 3A 20 MSG18 FCC ' CC: ' 2305 FE1A 04 FCB 4 2306 FE1B 45 46 48 49 4E 5A MSG19 FCC 'EFHINZVC' 56 43 2307 FE23 53 31 MSG20 FCC 'S1' 2308 FE25 04 FCB 4 2309 IFD DATOPT 2310 * 2311 * POWER UP/ RESET/ NMI ENTRY POINT 2312 * 2313 FF00 ORG $FF00 2314 * 2315 * 2316 FF00 8E FF F0 START LDX #IC11 POINT TO DAT RAM IC11 2317 FF03 86 0F LDA #$F GET COMPLIMENT OF ZERO 2318 * 2319 * 2320 * INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F 2321 * OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS 2322 * IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE 2323 * OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA 2324 * STORED IN IT. 2325 * 2326 * 2327 FF05 A7 80 DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION 2328 FF07 4A DECA GET COMP. VALUE FOR NEXT LOCATION 2329 FF08 26 FB BNE DATLP ALL 16 LOCATIONS INITIALIZED ? 2330 * 2331 * NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER 2332 * ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL 2333 * PHYSICAL ADDRESSES. 2334 * 2335 FF0A 86 F0 LDA #$F0 2336 FF0C A7 84 STA ,X STORE $F0 AT $FFFF 2337 FF0E 8E D0 A0 LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF 2338 FF11 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y" 2339 FF15 EE 84 TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION 2340 FF17 10 AF 84 STY ,X STORE TEST PATTERN AT $D0A0 2341 FF1A 10 AC 84 CMPY ,X IS THERE RAM AT THIS LOCATION ? 2342 FF1D 27 0B BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP 2343 FF1F 30 89 F0 00 LEAX -$1000,X ELSE POINT 4K LOWER 2344 FF23 8C F0 A0 CMPX #$F0A0 DECREMENTED PAST ZER0 YET ? 2345 FF26 26 ED BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM 2346 FF28 20 D6 BRA START ELSE START ALL OVER AGAIN 2347 * 2348 * 2349 * THE FOLLOWING CODE STORES THE COMPLEMENT OF 2350 * THE MS CHARACTER OF THE FOUR CHARACTER HEX 2351 * ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED 2352 * BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT 2353 * IS STORED IN RAM IN THE LOCATION THAT IS 2354 * ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---, 2355 * THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND 2356 * WHEN TESTING LOCATION $70A0, MEANING THERE 2357 * IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE 2358 * $8000-$DFFF, THEN THE COMPLEMENT OF THE 2359 * "7" IN THE $70A0 WILL BE STORED IN 2360 * THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS 2361 * AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND 2362 * BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE 2363 * 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE 2364 * RAM THAT IS PHYSICALLY ADDRESSED AT $7--- 2365 * WILL RESPOND AND APPEAR TO THE 6809 THAT IT 2366 * IS AT $D--- SINCE THAT IS THE ADDRESS THE 2367 * 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK 2368 * OF RAM RESPONDS. 2369 * 2370 * 2371 FF2A EF 84 CNVADR STU ,X RESTORE DATA AT TEST LOCATION 2372 FF2C 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D 2373 FF2E 43 COMA COMPLEMENT MSB OF THAT ADDRESS 2374 FF2F 44 LSRA PUT MS 4 BITS OF ADDRESS IN 2375 FF30 44 LSRA LOCATION D0-D3 TO ALLOW STORING 2376 FF31 44 LSRA IT IN THE DYNAMIC ADDRESS 2377 FF32 44 LSRA TRANSLATION RAM. 2378 FF33 B7 FF FD STA $FFFD STORE XLATION FACTOR IN DAT "D" 2379 * 2380 FF36 10 CE DF C0 LDS #STACK INITIALIZE STACK POINTER 2381 * 2382 * 2383 * THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES 2384 * OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK 2385 * OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS 2386 * IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION 2387 * TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF 2388 * THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO 2389 * RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---.... 2390 * 2391 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 2392 * 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- -- 2393 * 2394 * ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE 2395 * CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING.... 2396 * 2397 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 2398 * 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F0 2399 * 2400 * 2401 * HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF 2402 * HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL 2403 * ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK 2404 * PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT 2405 * IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C000 2406 * WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D000 2407 * RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE 2408 * MEMORY ADDRESSED AS FOLLOWS.... 2409 * 2410 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 2411 * 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- -- 2412 * 2413 * 2414 FF3A 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE 2415 FF3E A7 2D STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD 2416 FF40 6F 2E CLR 14,Y CLEAR $DFDE 2417 FF42 86 F0 LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ? 2418 FF44 A7 2F STA 15,Y STORE AT $DFDF 2419 FF46 86 0C LDA #$0C PRESET NUMBER OF BYTES TO CLEAR 2420 FF48 6F A6 CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD0 2421 FF4A 4A DECA SUB. 1 FROM BYTES LEFT TO CLEAR 2422 FF4B 2A FB BPL CLRLRT CONTINUE IF NOT DONE CLEARING 2423 FF4D 30 89 F0 00 FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM 2424 FF51 8C F0 A0 CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO 2425 FF54 27 22 BEQ FINTAB SKIP IF FINISHED 2426 FF56 EE 84 LDU ,X SAVE DATA AT CURRENT TEST LOCATION 2427 FF58 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG. 2428 FF5C 10 AF 84 STY ,X STORE TEST PATT. INTO RAM TEST LOC. 2429 FF5F 10 AC 84 CMPY ,X VERIFY RAM AT TEST LOCATION 2430 FF62 26 E9 BNE FNDRAM IF NO RAM GO LOOK 4K LOWER 2431 FF64 EF 84 STU ,X ELSE RESTORE DATA TO TEST LOCATION 2432 FF66 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE 2433 FF6A 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D 2434 FF6C 44 LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D3 2435 FF6D 44 LSRA TO ALLOW STORING IT IN THE DAT RAM. 2436 FF6E 44 LSRA 2437 FF6F 44 LSRA 2438 FF70 1F 89 TFR A,B SAVE OFFSET INTO LRARAM TABLE 2439 FF72 88 0F EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK 2440 FF74 A7 A5 STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE 2441 FF76 20 D5 BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK 2442 FF78 86 F1 FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ? 2443 FF7A 10 8E DF D0 LDY #LRARAM POINT TO LRARAM TABLE 2444 FF7E A7 2E STA 14,Y STORE $F1 AT $DFCE 2445 * 2446 * THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF 2447 * RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES 2448 * THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT 2449 * LOGICALLY RESPONDS TO THE ADDRESS $C---. 2450 * 2451 * 2452 FF80 86 0C LDA #$0C PRESET NUMBER HEX "C" 2453 FF82 E6 A6 FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE 2454 FF84 26 05 BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR. 2455 FF86 4A DECA ELSE POINT 4K LOWER 2456 FF87 2A F9 BPL FINDC GO TRY AGAIN 2457 FF89 20 14 BRA XFERTF 2458 FF8B 6F A6 FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND 2459 FF8D E7 2C STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C--- 2460 * 2461 * THE FOLLOWING CODE ADJUSTS THE TRANSLATION 2462 * FACTORS SUCH THAT ALL REMAINING RAM WILL 2463 * RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL 2464 * ADDRESSES FROM $0000 AND UP.... 2465 * 2466 FF8F 4F CLRA START AT ZERO 2467 FF90 1F 21 TFR Y,X START POINTER "X" START OF "LRARAM" TABLE. 2468 FF92 E6 A6 COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE 2469 FF94 27 04 BEQ PNTNXT IF IT'S ZER0 SKIP 2470 FF96 6F A6 CLR A,Y ELSE ERASE FROM TABLE 2471 FF98 E7 80 STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP 2472 FF9A 4C PNTNXT INCA GET OFFSET TO NEXT ENTRY 2473 FF9B 81 0C CMPA #$0C LAST ENTRY YET ? 2474 FF9D 2D F3 BLT COMPRS 2475 * 2476 * THE FOLLOWING CODE TRANSFER THE TRANSLATION 2477 * FACTORS FROM THE LRARAM TABLE TO IC11 ON 2478 * THE MP-09 CPU CARD. 2479 * 2480 FF9F 8E FF F0 XFERTF LDX #IC11 POINT TO DAT RAM IC11 2481 FFA2 C6 10 LDB #$10 GET NO. OF BYTES TO MOVE 2482 FFA4 A6 A0 FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT 2483 FFA6 A7 80 STA ,X+ POKE XLATION FACTOR IN IC11 2484 FFA8 5A DECB SUB 1 FROM BYTES TO MOVE 2485 FFA9 26 F9 BNE FETCH CONTINUE UNTIL 16 MOVED 2486 * 2487 ELSE 2488 LRA RTS 2489 START LDS #STACK INITIALIZE STACK POINTER 2490 CLRB 2491 ENDIF DATOPT 2491 ENDIF DATOPT 2492 * 2493 FFAB 53 COMB SET "B" NON-ZERO 2494 FFAC F7 DF E2 STB ECHO TURN ON ECHO FLAG 2495 FFAF 16 F8 62 LBRA MONITOR INITIALIZATION IS COMPLETE 2496 * 2497 ** INTERRUPT JUMP VECTORS 2498 * 2499 FFB2 6E 9F DF C0 V1 JMP [STACK] 2500 FFB6 6E 9F DF C4 V2 JMP [SWI2] 2501 FFBA 6E 9F DF C6 V3 JMP [FIRQ] 2502 FFBE 6E 9F DF C8 V4 JMP [IRQ] 2503 FFC2 6E 9F DF CA V5 JMP [SWI] 2504 * 2505 * SWI3 ENTRY POINT 2506 * 2507 FFC6 1F 43 SWI3E TFR S,U 2508 FFC8 AE 4A LDX 10,U *$FFC8 2509 FFCA E6 80 LDB ,X+ 2510 FFCC AF 4A STX 10,U 2511 FFCE 4F CLRA 2512 FFCF 58 ASLB 2513 FFD0 49 ROLA 2514 FFD1 BE DF CC LDX SVCVO 2515 FFD4 8C FF FF CMPX #$FFFF 2516 FFD7 27 0F BEQ SWI3Z 2517 FFD9 30 8B LEAX D,X 2518 FFDB BC DF CE CMPX SVCVL 2519 FFDE 22 08 BHI SWI3Z 2520 FFE0 34 10 PSHS X 2521 FFE2 EC C4 LDD ,U 2522 FFE4 AE 44 LDX 4,U 2523 FFE6 6E F1 JMP [,S++] 2524 FFE8 37 1F SWI3Z PULU A,B,X,CC,DP 2525 FFEA EE 42 LDU 2,U 2526 FFEC 6E 9F DF C2 JMP [SWI3] 2527 * 2528 * 6809 VECTORS 2529 * 2530 FFF0 ORG $FFF0 2531 FFF0 FF B2 FDB V1 USER-V 2532 FFF2 FF C6 FDB SWI3E SWI3-V 2533 FFF4 FF B6 FDB V2 SWI2-V 2534 FFF6 FF BA FDB V3 FIRQ-V 2535 FFF8 FF BE FDB V4 IRQ-V 2536 FFFA FF C2 FDB V5 SWI-V 2537 FFFC FF B2 FDB V1 NMI-V 2538 FFFE FF 00 FDB START RESTART-V 2539 END START Program + Init Data = 1830 bytes Error count = 0 @ 1.2 log @Added files for a basic Spartan 3e starter system @ text @@ 1.1 log @New directory structure @ text @d45 48 a92 48 0041 * *** COMMANDS *** 0042 * 0043 * CONTROL A = ALTER THE "A" ACCUMULATOR 0044 * CONTROL B = ALTER THE "B" ACCUMULATOR 0045 * CONTROL C = ALTER THE CONDITION CODE REGISTER 0046 * CONTROL D = ALTER THE DIRECT PAGE REGISTER 0047 * CONTROL P = ALTER THE PROGRAM COUNTER 0048 * CONTROL U = ALTER USER STACK POINTER 0049 * CONTROL X = ALTER "X" INDEX REGISTER 0050 * CONTROL Y = ALTER "Y" INDEX REGISTER 0051 * B hhhh = SET BREAKPOINT AT LOCATION $hhhh 0052 * D = 5.25" MINIFLOPPY BOOT 0053 * E ssss-eeee = EXAMINE MEMORY 0054 * FROM STARTING ADDRESS ssss 0055 * TO ENDING ADDRESS eeee. 0056 * G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI 0057 * L = LOAD TAPE 0058 * M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh 0059 * P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR. 0060 * R = DISPLAY REGISTER CONTENTS 0061 * S = DISPLAY STACK FROM ssss TO $DFC0 0062 * U = 8" DMAF2 FLOPPY BOOT 0063 * U = USER EXTENSION COMMANDS AT $F000 0064 * X = REMOVE ALL BREAKPOINTS 0065 * 0066 * 0067 * 0068 *************************************************** 0069 * OPTION SWITCHES 0070 *************************************************** 0071 * 0072 * 0073 ** THE CONTROL PORT CAN ONLY BE ONE OF THESE 0074 ** NOTE THAT THE ACIA WILL ALWAYS BE PRESET 0075 ** FOR LOADING AND SAVING S1 RECORDS 0076 * 0077 *FPGAOPT EQU $FF FPGA VIDEO & PS2 KEYBOARD 0078 *ADSOPT EQU $FF ADS6809 & DG640 VIDEO DISPAY 0079 00FF SWTPOPT EQU $FF SWTP ACIA SERIAL CONTROL PORT 0080 * 0081 *************************************************** 0082 * MEMORY MAP EQUATES * 0083 *************************************************** 0084 E000 MONIO EQU $E000 I/O SPACE 0085 DFC0 MONRAM EQU $DFC0 STACK SPACE 0086 F800 MONROM EQU $F800 START OF ROM 0087 F000 MONEXT EQU $F000 START OF EXTENDED COMMANDS 0088 0000 EXTCMD EQU $00 EXTENDED OFFSET d94 43 a136 42 0090 IFD FPGAOPT 0091 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION 0092 ENDIF FPGAOPT 0092 ENDIF FPGAOPT 0093 * 0094 IFD ADSOPT 0095 *RTCOPT EQU $FF REAL TIME CLOCK 0096 PRTOPT EQU $FF PRINTER DRIVERS 0097 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT 0098 ENDIF ADSOPT 0098 ENDIF ADSOPT 0099 * 0100 IFD SWTPOPT 0101 00FF DMAFOPT EQU $FF DMAF2 8" FLOPPY DISK BOOT 0102 00FF MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT 0103 00FF DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION 0104 ENDIF 0105 * 0106 *************************************************** 0107 * SYS09BUG VARIABLE SPACE 0108 *************************************************** 0109 * 0110 DFC0 ORG MONRAM 0111 DFC0 STACK RMB 2 TOP OF INTERNAL STACK / USER VECTOR 0112 DFC2 SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #3 0113 DFC4 SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #2 0114 DFC6 FIRQ RMB 2 FAST INTERRUPT VECTOR 0115 DFC8 IRQ RMB 2 INTERRUPT VECTOR 0116 DFCA SWI RMB 2 SOFTWARE INTERRUPT VECTOR 0117 DFCC SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN 0118 DFCE SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT 0119 IFD DATOPT 0120 DFD0 LRARAM RMB 16 LRA ADDRESSES 0121 ENDIF DATOPT 0122 DFE0 CPORT RMB 2 RE-VECTORABLE CONTROL PORT 0123 DFE2 ECHO RMB 1 ECHO FLAG 0124 DFE3 BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR 0125 * 0126 IFD SWTPOPT 0127 * 0128 *************************************************** 0129 * SERIAL PORT * d138 34 a171 33 0131 * 0132 ** ACIA SITS ON PORT 0 0133 * 0134 E000 ACIAS EQU MONIO+$00 CONTROL PORT 0135 * 0136 ENDIF SWTPOPT 0137 IFD MFDCOPT 0138 * 0139 *************************************************** 0140 * MINIFLOPPY DRIVE * 0141 *************************************************** 0142 * 0143 ** FLOPPY DISK CONTROLLER SITS ON PORT 1 0144 * 0145 E014 DRVFDC EQU MONIO+$14 0146 E018 CMDFDC EQU MONIO+$18 0147 E01A SECFDC EQU MONIO+$1A 0148 E01B DATFDC EQU MONIO+$1B 0149 ENDIF MFDCOPT 0150 IFD FPGAOPT 0151 * 0152 *************************************************** 0153 * SERIAL PORT * 0154 *************************************************** 0155 * 0156 ** ACIA SITS ON PORT 0 0157 * 0158 ACIAS EQU MONIO+$00 CONTROL PORT 0159 * 0160 * 0161 *************************************************** 0162 * VDU8 PS/2 KEYBOARD PORT * 0163 *************************************************** d173 19 a191 19 0165 ** KEYBOARD SITS ON PORT 2 0166 * 0167 PS2KBD EQU MONIO+$20 PS/2 KEYBOARD PORT 0168 * 0169 *************************************************** 0170 * VDU8 DISPLAY DRIVER EQUATES * 0171 *************************************************** 0172 * 0173 ** VDU8 DISPLAY SITS ON PORT 3 0174 * 0175 VDU EQU MONIO+$30 0176 VDUCHR EQU 0 CHARACTER REGISTER 0177 VDUATT EQU 1 ATTRIBUTE REGISTER 0178 VDUCOL EQU 2 CURSOR COLUMN 0179 VDUROW EQU 3 CURSOR ROW 0180 VDUOFF EQU 4 ROW OFFSET 0181 * 0182 LINLEN EQU 80 LENGTH OF A LINE 0183 NUMLIN EQU 25 NUMBER OF LINES d193 63 a255 62 0185 ************************************************** 0186 * VDU8 DISPLAY DRIVER VARIABLES * 0187 ************************************************** 0188 * 0189 **** ALWAYS KEEP COLADX AND ROWADX TOGETHER ****** 0190 COLADX RMB 1 CURSOR COLUMN 0191 ROWADX RMB 1 CURSOR ROW 0192 ************************************************** 0193 * 0194 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE 0195 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE 0196 * 0197 *************************************************** 0198 * COMPACT FLASH EQUATES * 0199 *************************************************** 0200 * 0201 CF_BASE EQU MONIO+$40 0202 CF_DATA EQU CF_BASE+0 0203 CF_ERROR EQU CF_BASE+1 ; read error 0204 CF_FEATURE EQU CF_BASE+1 ; write feature 0205 CF_SECCNT EQU CF_BASE+2 0206 CF_SECNUM EQU CF_BASE+3 0207 CF_CYLLO EQU CF_BASE+4 0208 CF_CYLHI EQU CF_BASE+5 0209 CF_HEAD EQU CF_BASE+6 0210 CF_STATUS EQU CF_BASE+7 ; read status 0211 CF_COMAND EQU CF_BASE+7 ; write command 0212 * 0213 * Command Equates 0214 * 0215 CMDREAD EQU $20 ; Read Single sector 0216 CMDWRITE EQU $30 ; Write Single sector 0217 CMDFEATURE EQU $EF 0218 FEAT8BIT EQU $01 ; enable 8 bit transfers 0219 HEADLBA EQU $E0 0220 * 0221 * Status bit equates 0222 * 0223 BUSY EQU $80 0224 DRDY EQU $40 0225 DRQ EQU $08 0226 ERR EQU $01 0227 * 0228 ENDIF FPGAOPT 0228 ENDIF FPGAOPT 0229 * 0230 IFD RTCOPT 0231 * 0232 ************************************************** 0233 * MM58167A REAL TIME CLOCK MEMORY MAP: 0234 ************************************************** 0235 * 0236 ** REAL TIME CLOCK SITS ON PORT 4 AND PORT 5 0237 * 0238 CLOCK EQU MONIO+$40 CLOCK BASE ADDRESS AND REGISTERS 0239 * 0240 * COUNTER AND COMPARITOR REGISTERS: 0241 * 0242 * Both the Clock Counter and Clock Comparitor 0243 * consist of 8 registers for holding the time. 0244 * The register offsets from the Counter and 0245 * Comparitor registers are listed above. d257 6 a262 6 0247 COUNTR EQU CLOCK+0 0248 CMPRAM EQU CLOCK+8 COMPARITOR REGISTERS 0249 * 0250 * CLOCK REGISTER OFFSETS: 0251 * These register offsets are used for the CLOCK 0252 * and comparitor ram CMPRAM. d264 71 a334 71 0254 S10000 EQU 0 TEN THOUNSANDTHS OF SECONDS 0255 S100 EQU 1 HUNDRETHS AND TENTHS OF SECONDS 0256 SECOND EQU 2 0257 MINUIT EQU 3 0258 HOUR EQU 4 0259 WKDAY EQU 5 0260 MTHDAY EQU 6 0261 MONTH EQU 7 0262 * 0263 * INTERRUPT OUTPUT REGISTERS: 0264 * 0265 * An interrupt output may be generated at the 0266 * following rates by setting the appropriate bit 0267 * in the Interrupt Control Register (CINTCR). 0268 * The Interrupt Status Register (CINTSR) must be 0269 * read to clear the interrupt and will return 0270 * the source of the interrupt. 0271 * 0272 * 1/Month Bit 7 0273 * 1/Week Bit 6 0274 * 1/Day Bit 5 0275 * 1/Hour Bit 4 0276 * 1/Minuite Bit 3 0277 * 1/Second Bit 2 0278 * 10/Second Bit 1 0279 * Comparitor Bit 0 0280 * 0281 CINTSR EQU CLOCK+16 INTERRUPT STATUS REGISTER 0282 CINTCR EQU CLOCK+17 INTERRUPT CONTROL REGISTER 0283 * 0284 * COUNTER AND RAM RESETS; GO COMMAND. 0285 * 0286 * The counter and comparitor may be reset 0287 * by writing $FF into CTRRES and CMPRES 0288 * respectivly. 0289 * A write to the Go command register (GOCMND) 0290 * will reset the 1/1000ths, 1/100ths and 1/10ths 0291 * of a second counter. 0292 * 0293 CTRRES EQU CLOCK+18 COUNTER RESET 0294 CMPRES EQU CLOCK+19 COMPARITOR RAM RESET 0295 GOCMND EQU CLOCK+21 GO COMMAND 0296 * 0297 * CLOCK STATUS REGISTER. 0298 * 0299 * The counter takes 61 usec. to rollover for 0300 * every 1KHz clock pulse. If the Status bit is 0301 * set after reading the counter, the counter 0302 * should be re-read to ensure the time is correct. 0303 * 0304 CLKSTA EQU CLOCK+20 STATUS BIT 0305 SBYINT EQU CLOCK+22 STANDBY INTERRUPT 0306 TSTMOD EQU CLOCK+31 TEST MODE REGISTER 0307 ENDIF RTCOPT 0307 ENDIF RTCOPT 0308 * 0309 IFD ADSOPT 0310 * 0311 *************************************************** 0312 * SERIAL PORT FOR DG640 * 0313 *************************************************** 0314 * 0315 ** SET UP FOR ACKERMAN DIGITAL ADS6809 0316 ** THE ADS6809 S100 BOAD HAS AN ON BOARD ACIA 0317 * 0318 ACIAS EQU MONIO+$400 CONTROL PORT 0319 * 0320 * 0321 *************************************************** 0322 * PRINTER INTERFACE * 0323 *************************************************** d336 4 a339 4 0325 PADATA EQU MONIO+$404 0326 PACTRL EQU MONIO+$405 0327 PBDATA EQU MONIO+$406 0328 PBCTRL EQU MONIO+$407 d341 13 a353 12 0330 ** CB1 ACK. I/P 0331 ** CB2 STB. O/P 0332 ** PB0 - PB7 DATA 1 - 8 O/P 0333 ** PORT A BIT ASSIGNMENT 0334 * 0335 PBUSY EQU $80 I/P 0336 PEMPTY EQU $40 I/P 0337 SELECT EQU $20 I/P 0338 PERROR EQU $10 I/P 0339 PRESET EQU %00000100 O/P PA3 = 0 0340 AUTOFD EQU %00001000 O/P PA2 = 0 0341 DIRMSK EQU %00001100 d355 154 a508 151 0343 *************************************************** 0344 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES * 0345 *************************************************** 0346 * 0347 ** VIDEO DISPLAY DEFINITIONS 0348 * 0349 SCREEN EQU MONIO+$0800 START OF SCREEN MEMORY 0350 LINLEN EQU 64 LENGTH OF A LINE 0351 NUMLIN EQU 16 NUMBER OF LINES 0352 SCNLEN EQU $400 LENGTH OF SCREEN 0353 * 0354 ***** ALWAYS KEEP THESE TWO BYTES TOGETHER ***** 0355 COLADX RMB 1 CURSOR COLUMN 0356 ROWADX RMB 1 CURSOR ROW 0357 ************************************************* 0358 CURSOR RMB 2 ABSOLUTE SCREEN ADDRESS 0359 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE 0360 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE 0361 ENDIF ADSOPT 0361 ENDIF ADSOPT 0362 * 0363 IFD DMAFOPT 0364 * 0365 *************************************************** 0366 * DMAF2 8" DRIVE * 0367 *************************************************** 0368 * 0369 F000 ADDREG EQU $F000 ADDRESS REGISTER 0370 F002 CNTREG EQU $F002 COUNT REGISTER 0371 F010 CCREG EQU $F010 CHANNEL CONTROL REGISTER 0372 F014 PRIREG EQU $F014 DMA PRIORITY REGISTER 0373 F015 AAAREG EQU $F015 ??? 0374 F016 BBBREG EQU $F016 ??? 0375 F020 COMREG EQU $F020 1791 COMMAND REGISTER 0376 F022 SECREG EQU $F022 SECTOR REGISTER 0377 F024 DRVREG EQU $F024 DRIVE SELECT LATCH 0378 F040 CCCREG EQU $F040 ??? 0379 ENDIF DMAFOPT 0380 IFD DATOPT 0381 ************************************************** 0382 * DYNAMIC ADDRESS TRANSLATION REGISTERS * 0383 ************************************************** 0384 * 0385 FFF0 IC11 EQU $FFF0 DAT RAM CHIP 0386 55AA TSTPAT EQU $55AA TEST PATTERN 0387 ENDIF DATOPT 0388 * 0389 *************************************************** 0390 * START OF ROM * 0391 *************************************************** 0392 * 0393 F800 ORG MONROM 0394 F800 F8 14 FDB MONITOR 0395 F802 F8 61 FDB NEXTCMD 0396 F804 FD 29 FDB INCH 0397 F806 FD 23 FDB INCHE 0398 F808 FD 38 FDB INCHEK 0399 F80A FD 46 FDB OUTCH 0400 F80C FC 17 FDB PDATA 0401 F80E FB A6 FDB PCRLF 0402 F810 FB A2 FDB PSTRNG 0403 F812 FA B6 FDB LRA 0404 * 0405 IFD ADSOPT 0406 FDB PCHK CHECK FOR PRINTER INPUT 0407 FDB PINIZ INITIATE PRINTER 0408 FDB POUTCH OUTPUT CH. TO PRINTER 0409 FDB VINIZ 0410 FDB VOUTCH 0411 FDB ACINIZ 0412 FDB AOUTCH 0413 ENDIF ADSOPT 0413 ENDIF ADSOPT 0414 * 0415 * MONITOR 0416 * 0417 * VECTOR ADDRESS STRING IS..... 0418 * $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF 0419 * 0420 F814 8E FD A3 MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING 0421 F817 10 8E DF C0 LDY #STACK POINT TO RAM VECTOR LOCATION 0422 F81B C6 10 LDB #$10 BYTES TO MOVE = 16 0423 F81D A6 80 LOOPA LDA ,X+ GET VECTOR BYTE 0424 F81F A7 A0 STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF 0425 F821 5A DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE 0426 F822 26 F9 BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED 0427 * 0428 * CONTENTS FROM TO FUNCTION 0429 * $F8A1 $FE40 $DFC0 USER-V 0430 * $F8A1 $FE42 $DFC2 SWI3-V 0431 * $F8A1 $FE44 $DFC4 SWI2-V 0432 * $F8A1 $FE46 $DFC6 FIRQ-V 0433 * $F8A1 $FE48 $DFC8 IRQ-V 0434 * $FAB0 $FE4A $DFCA SWI-V 0435 * $FFFF $FE4C $DFCC SVC-VO 0436 * $FFFF $FE4E $DFCE SVC-VL 0437 * 0438 F824 8E E0 00 LDX #ACIAS 0439 F827 BF DF E0 STX CPORT STORE ADDR. IN RAM 0440 F82A 17 01 5B LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS 0441 F82D C6 0C LDB #12 CLEAR 12 BYTES ON STACK 0442 F82F 6F E2 CLRSTK CLR ,-S 0443 F831 5A DECB 0444 F832 26 FB BNE CLRSTK 0445 F834 30 8C DD LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY 0446 F837 AF 6A STX 10,S ON STACK 0447 F839 86 D0 LDA #$D0 PRESET CONDITION CODES ON STACK 0448 F83B A7 E4 STA ,S 0449 F83D 1F 43 TFR S,U 0450 F83F 17 05 15 LBSR IOINIZ INITIALIZE CONTROL PORT 0451 F842 8E FD B3 LDX #MSG1 POINT TO MONITOR MESSAGE 0452 F845 17 03 CF LBSR PDATA PRINT MSG 0453 * 0454 IFD DATOPT 0455 F848 8E DF D0 LDX #LRARAM POINT TO LRA RAM STORAGE AREA 0456 F84B 4F CLRA START TOTAL AT ZERO 0457 F84C C6 0D LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY 0458 F84E 6D 85 FNDREL TST B,X TEST FOR RAM AT NEXT LOC. 0459 F850 27 03 BEQ RELPAS IF NO RAM GO TO NEXT LOC. 0460 F852 8B 04 ADDA #4 ELSE ADD 4K TO TOTAL 0461 F854 19 DAA ADJ. TOTAL FOR DECIMAL 0462 F855 5A RELPAS DECB SUB. 1 FROM LOCS. TO TEST 0463 F856 2A F6 BPL FNDREL PRINT TOTAL OF RAM 0464 F858 17 04 94 LBSR OUT2H OUTPUT HEX BYTE AS ASCII 0465 F85B 8E FD D3 LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS 0466 F85E 17 03 B6 LBSR PDATA PRINT MSG 0467 ENDIF DATOPT 0468 * 0469 ***** NEXTCMD ***** 0470 * 0471 F861 8E FD DA NEXTCMD LDX #MSG3 POINT TO MSG ">" 0472 F864 17 03 3B LBSR PSTRNG PRINT MSG 0473 F867 17 04 BF LBSR INCH GET ONE CHAR. FROM TERMINAL 0474 F86A 84 7F ANDA #$7F STRIP PARITY FROM CHAR. 0475 F86C 81 0D CMPA #$0D IS IT CARRIAGE RETURN ? 0476 F86E 27 F1 BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR. 0477 F870 1F 89 TFR A,B PUT CHAR. IN "B" ACCUM. 0478 F872 81 20 CMPA #$20 IS IT CONTROL OR DATA CHAR ? 0479 F874 2C 09 BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT 0480 F876 86 5E LDA #'^ ELSE CNTRL CHAR CMD SO... 0481 F878 17 04 CB LBSR OUTCH PRINT "^" 0482 F87B 1F 98 TFR B,A RECALL CNTRL CMD CHAR 0483 F87D 8B 40 ADDA #$40 CONVERT IT TO ASCII LETTER 0484 F87F 17 04 C4 PRTCMD LBSR OUTCH PRNT CMD CHAR 0485 F882 17 04 BF LBSR OUT1S PRNT SPACE 0486 F885 C1 60 CMPB #$60 0487 F887 2F 02 BLE NXTCH0 0488 F889 C0 20 SUBB #$20 0489 * 0490 ***** DO TABLE LOOKUP ***** 0491 * FOR COMMAND FUNCTIONS d510 58 a567 57 0493 F88B 8E FD 6A NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE 0494 F88E E1 80 NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ? 0495 F890 27 0F BEQ JMPCMD BRANCH IF MATCH FOUND 0496 F892 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE 0497 F894 8C FD A3 CMPX #TABEND REACHED END OF TABLE YET ? 0498 F897 26 F5 BNE NXTCHR IF NOT END, CHECK NEXT ENTRY 0499 F899 8E FD DC LDX #MSG4 POINT TO MSG "WHAT?" 0500 F89C 17 03 78 LBSR PDATA PRINT MSG 0501 F89F 20 C0 BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD 0502 F8A1 AD 94 JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE 0503 F8A3 20 BC BRA NEXTCMD PROMPT FOR NEW COMMAND 0504 * 0505 * "G" GO OR CONTINUE 0506 * 0507 F8A5 1F 34 GO TFR U,S 0508 F8A7 3B RTI RTI 0509 * 0510 ***** "M" MEMORY EXAMINE AND CHANGE ***** 0511 * 0512 F8A8 17 03 F3 MEMCHG LBSR IN1ADR INPUT ADDRESS 0513 F8AB 29 2D BVS CHRTN IF NOT HEX, RETURN 0514 F8AD 1F 12 TFR X,Y SAVE ADDR IN "Y" 0515 F8AF 8E FD E2 MEMC2 LDX #MSG5 POINT TO MSG " - " 0516 F8B2 17 02 ED LBSR PSTRNG PRINT MSG 0517 F8B5 1F 21 TFR Y,X FETCH ADDRESS 0518 F8B7 17 04 2D LBSR OUT4H PRINT ADDR IN HEX 0519 F8BA 17 04 87 LBSR OUT1S OUTPUT SPACE 0520 F8BD A6 A4 LDA ,Y GET CONTENTS OF CURRENT ADDR. 0521 F8BF 17 04 2D LBSR OUT2H OUTPUT CONTENTS IN ASCII 0522 F8C2 17 04 7F LBSR OUT1S OUTPUT SPACE 0523 F8C5 17 03 E6 LBSR BYTE LOOP WAITING FOR OPERATOR INPUT 0524 F8C8 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC. 0525 F8CA 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)? 0526 F8CC 27 E1 BEQ MEMC2 PROMPT OPERATOR AGAIN 0527 F8CE 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)? 0528 F8D0 27 DD BEQ MEMC2 PROMPT OPERATOR AGAIN 0529 F8D2 81 5E CMPA #'^ IS IT AN UP ARROW? 0530 F8D4 27 17 BEQ BACK DISPLAY PREVIOUS BYTE 0531 F8D6 81 0D CMPA #$D IS IT A CR? 0532 F8D8 26 0F BNE FORWRD DISPLAY NEXT BYTE 0533 F8DA 39 CHRTN RTS EXIT ROUTINE 0534 * 0535 * 0536 F8DB A7 A4 CHANGE STA ,Y CHANGE BYTE IN MEMORY 0537 F8DD A1 A4 CMPA ,Y DID MEMORY BYTE CHANGE? 0538 F8DF 27 08 BEQ FORWRD $F972 0539 F8E1 17 04 60 LBSR OUT1S OUTPUT SPACE 0540 F8E4 86 3F LDA #'? LOAD QUESTION MARK 0541 F8E6 17 04 5D LBSR OUTCH PRINT IT 0542 F8E9 31 21 FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION 0543 F8EB 20 C2 BRA MEMC2 PRINT LOCATION & CONTENTS 0544 F8ED 31 3F BACK LEAY -1,Y POINT TO LAST MEM LOCATION 0545 F8EF 20 BE BRA MEMC2 PRINT LOCATION & CONTENTS 0546 * 0547 * "S" DISPLAY STACK 0548 * HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM 0549 ** CURRENT STACK POINTER TO INTERNAL STACK LIMIT. d569 226 a794 225 0551 F8F1 17 03 2A DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER 0552 F8F4 1F 32 TFR U,Y 0553 F8F6 8E DF C0 LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT 0554 F8F9 30 1F LEAX -1,X POINT TO CURRENT STACK 0555 F8FB 20 05 BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS 0556 * 0557 * "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII 0558 * AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG. 0559 * UPPER ADDRESS IN X-REG. 0560 * IF HEX ADDRESSES ARE INVALID (V)=1. 0561 * 0562 F8FD 17 03 93 MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES 0563 F900 29 06 BVS EDPRTN NEW COMMAND IF ILLEGAL HEX 0564 F902 34 20 MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS 0565 F904 AC E1 CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS? 0566 F906 24 01 BCC AJDUMP IF NOT, DUMP HEX AND ASCII 0567 F908 39 EDPRTN RTS ; 0568 * 0569 * ADJUST LOWER AND UPPER ADDRESS LIMITS 0570 * TO EVEN 16 BYTE BOUNDRIES. 0571 * 0572 * IF LOWER ADDR = $4532 0573 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530. 0574 * 0575 * IF UPPER ADDR = $4567 0576 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570. 0577 * 0578 * ENTER WITH LOWER ADDRESS IN X-REG. 0579 * -UPPER ADDRESS ON TOP OF STACK. 0580 * 0581 F909 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG 0582 F90B C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS 0583 F90E C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY 0584 F910 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT 0585 F912 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG 0586 F914 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY 0587 F916 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT 0588 F918 AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT 0589 F91A 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP 0590 F91C 17 04 19 LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD 0591 F91F 27 03 BEQ EDUMP 0592 F921 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING 0593 F923 39 RTS ; 0594 * 0595 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS 0596 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS. 0597 * 0598 F924 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK 0599 F926 8E FD E2 LDX #MSG5 POINT TO MSG " - " 0600 F929 17 02 76 LBSR PSTRNG PRINT MSG 0601 F92C AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK 0602 F92E 17 03 B6 LBSR OUT4H PRINT THE ADDRESS 0603 F931 17 04 0E LBSR OUT2S 2 SPACES 0604 F934 C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP 0605 F936 A6 80 ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT 0606 F938 17 03 B4 LBSR OUT2H OUTPUT HEX BYTE AS ASCII 0607 F93B 17 04 06 LBSR OUT1S OUTPUT SPACE 0608 F93E 5A DECB $F9D1 DECREMENT BYTE COUNT 0609 F93F 26 F5 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED 0610 * 0611 * PRINT 16 ASCII CHARACTERS 0612 * IF NOT PRINTABLE OR NOT VALID 0613 * ASCII PRINT A PERIOD (.) 0614 F941 17 03 FE LBSR OUT2S 2 SPACES 0615 F944 AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK 0616 F946 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 16 0617 F948 A6 80 EDPASC LDA ,X+ GET CHARACTER FROM MEMORY 0618 F94A 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE? 0619 F94C 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD 0620 F94E 81 7E CMPA #$7E IS IT VALID ASCII? 0621 F950 23 02 BLS PRASC IF SO PRINT IT 0622 F952 86 2E PERIOD LDA #'. LOAD A PERIOD (.) 0623 F954 17 03 EF PRASC LBSR OUTCH PRINT ASCII CHARACTER 0624 F957 5A DECB DECREMENT COUNT 0625 F958 26 EE BNE EDPASC 0626 F95A 20 BC BRA NXTLIN 0627 * 0628 ***** "B" SET BREAKPOINT ***** 0629 * 0630 F95C 17 03 3F BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS 0631 F95F 29 1E BVS EXITBP EXIT IF INVALID HEX ADDR. 0632 F961 8C DF C0 CMPX #STACK ADDRESS ILLEGAL IF >=$DFC0 0633 F964 24 1A BCC BPERR IF ERROR PRINT (?), EXIT 0634 F966 34 10 PSHS X $FA82 PUSH BP ADDRESS ON STACK 0635 F968 8E FF FF LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE 0636 F96B 8D 55 BSR BPTEST TEST BP TABLE FOR FREE SPACE 0637 F96D 35 10 PULS X POP BP ADDRESS FROM STACK 0638 F96F 27 0F BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE 0639 F971 A6 84 LDA ,X GET DATA AT BREAKPOINT ADDRESS 0640 F973 81 3F CMPA #$3F IS IT A SWI? 0641 F975 27 09 BEQ BPERR IF SWI ALREADY, INDICATE ERROR 0642 F977 A7 A0 STA ,Y+ SAVE DATA BYTE IN BP TABLE 0643 F979 AF A4 STX ,Y SAVE BP ADDRESS IN BP TABLE 0644 F97B 86 3F LDA #$3F LOAD A SWI ($3F) 0645 F97D A7 84 STA ,X SAVE SWI AT BREAKPOINT ADDRESS 0646 F97F 39 EXITBP RTS ; 0647 * 0648 * INDICATE ERROR SETTING BREAKPOINT 0649 * 0650 F980 17 03 C1 BPERR LBSR OUT1S OUTPUT SPACE 0651 F983 86 3F LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR 0652 F985 16 03 BE LBRA OUTCH PRINT "?" 0653 * 0654 *** "X" CLEAR OUTSTANDING BREAKPOINTS *** 0655 * 0656 F988 10 8E DF E3 XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE 0657 F98C C6 08 LDB #8 LOAD BREAKPOINT COUNTER 0658 F98E 8D 18 XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE 0659 F990 5A DECB $FAAC DECREMENT BP COUNTER 0660 F991 26 FB BNE XBPLP END OF BREAKPOINT TABLE? 0661 F993 39 RTS 0662 * 0663 ***** SWI ENTRY POINT ***** 0664 * 0665 F994 1F 43 SWIE TFR S,U TRANSFER STACK TO USER POINTER 0666 F996 AE 4A LDX 10,U LOAD PC FROM STACK INTO X-REG 0667 F998 30 1F LEAX -1,X ADJUST ADDR DOWN 1 BYTE. 0668 F99A 8D 26 BSR BPTEST FIND BREAKPOINT IN BP TABLE 0669 F99C 27 04 BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR 0670 F99E AF 4A STX 10,U SAVE BREAKPOINT ADDR IN STACK 0671 F9A0 8D 06 BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA 0672 F9A2 17 02 D0 REGPR LBSR REGSTR GO PRINT REGISTERS 0673 F9A5 16 FE B9 LBRA NEXTCMD GET NEXT COMMAND 0674 F9A8 AE 21 RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE 0675 F9AA 8C DF C0 CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY 0676 F9AD 24 0A BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S 0677 F9AF A6 84 LDA ,X GET DATA FROM BP ADDRESS 0678 F9B1 81 3F CMPA #$3F IS IT SWI? 0679 F9B3 26 04 BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S 0680 F9B5 A6 A4 LDA ,Y GET ORIGINAL DATA FROM BP TABLE 0681 F9B7 A7 84 STA ,X $FAD3 RESTORE DATA AT BP ADDRESS 0682 F9B9 86 FF FFSTBL LDA #$FF LOAD $FF IN A-ACC 0683 F9BB A7 A0 STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S 0684 F9BD A7 A0 STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S 0685 F9BF A7 A0 STA ,Y+ 0686 F9C1 39 RTS 0687 * 0688 ** SEARCH BREAKPOINT TABLE FOR MATCH ** 0689 * 0690 F9C2 10 8E DF E3 BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE 0691 F9C6 C6 08 LDB #8 LOAD BREAKPOINT COUNTER 0692 F9C8 A6 A0 FNDBP LDA ,Y+ LOAD DATA BYTE 0693 F9CA AC A1 CMPX ,Y++ COMPARE ADDRESS, IS IT SAME? 0694 F9CC 27 04 BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY 0695 F9CE 5A DECB IF NOT, DECREMENT BREAKPOINT COUNTER 0696 F9CF 26 F7 BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH 0697 F9D1 39 RTS ; 0698 * 0699 * 0700 F9D2 31 3D BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY 0701 F9D4 39 RTS 0702 * 0703 IFD MFDCOPT 0704 * 0705 ** "U" MINI DISK BOOT 0706 * 0707 F9D5 7D E0 18 MINBOOT TST CMDFDC 0708 F9D8 7F E0 14 CLR DRVFDC 0709 F9DB 8E 00 00 LDX #$0000 0710 F9DE 30 01 LOOP LEAX $01,X 0711 F9E0 8C 00 00 CMPX #$0000 0712 F9E3 26 F9 BNE LOOP 0713 F9E5 86 0F LDA #$0F 0714 F9E7 B7 E0 18 STA CMDFDC 0715 F9EA 8D 37 BSR DELAY 0716 F9EC F6 E0 18 LOOP1 LDB CMDFDC 0717 F9EF C5 01 BITB #$01 0718 F9F1 26 F9 BNE LOOP1 0719 F9F3 86 01 LDA #$01 0720 F9F5 B7 E0 1A STA SECFDC 0721 F9F8 8D 29 BSR DELAY 0722 F9FA 86 8C LDA #$8C 0723 F9FC B7 E0 18 STA CMDFDC 0724 F9FF 8D 22 BSR DELAY 0725 FA01 8E C0 00 LDX #$C000 0726 FA04 20 09 BRA LOOP3 0727 FA06 C5 02 LOOP2 BITB #$02 0728 FA08 27 05 BEQ LOOP3 0729 FA0A B6 E0 1B LDA DATFDC 0730 FA0D A7 80 STA ,X+ 0731 FA0F F6 E0 18 LOOP3 LDB CMDFDC 0732 FA12 C5 01 BITB #$01 0733 FA14 26 F0 BNE LOOP2 0734 FA16 C5 2C BITB #$2C 0735 FA18 27 01 BEQ LOOP4 0736 FA1A 39 RTS 0737 * 0738 FA1B 8E C0 00 LOOP4 LDX #$C000 0739 FA1E AF 4A STX $0A,U 0740 FA20 1F 34 TFR U,S 0741 FA22 3B RTI 0742 * 0743 FA23 C6 04 DELAY LDB #$04 0744 FA25 5A LOOP5 DECB 0745 FA26 26 FD BNE LOOP5 0746 FA28 39 RTS 0747 ENDIF MFDCOPT 0748 * 0749 IFD DMAFOPT 0750 * 0751 *** "D" DISK BOOT FOR DMAF2 *** 0752 * 0753 FA29 86 DE DBOOT LDA #$DE 0754 FA2B B7 F0 24 STA DRVREG 0755 FA2E 86 FF LDA #$FF 0756 FA30 B7 F0 14 STA PRIREG $FAF8 0757 FA33 B7 F0 10 STA CCREG 0758 FA36 B7 F0 15 STA AAAREG 0759 FA39 B7 F0 16 STA BBBREG 0760 FA3C 7D F0 10 TST CCREG 0761 FA3F 86 D8 LDA #$D8 0762 FA41 B7 F0 20 STA COMREG 0763 FA44 17 00 96 LBSR DLY 0764 FA47 B6 F0 20 DBOOT0 LDA COMREG 0765 FA4A 2B FB BMI DBOOT0 0766 FA4C 86 09 LDA #$09 0767 FA4E B7 F0 20 STA COMREG 0768 FA51 17 00 89 LBSR DLY 0769 * 0770 FA54 B6 F0 20 DISKWT LDA COMREG FETCH DRIVE STATUS 0771 FA57 85 01 BITA #1 TEST BUSY BIT 0772 FA59 26 F9 BNE DISKWT LOOP UNTIL NOT BUSY 0773 * 0774 FA5B 85 10 BITA #$10 0775 FA5D 26 CA BNE DBOOT d796 52 a847 52 0777 FA5F 8E C0 00 LDX #$C000 LOGICAL ADDR. = $C000 0778 FA62 8D 52 BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR. 0779 FA64 8A 10 ORA #$10 0780 FA66 B7 F0 40 STA CCCREG 0781 FA69 1F 10 TFR X,D 0782 FA6B 43 COMA ; 0783 FA6C 53 COMB ; 0784 FA6D FD F0 00 STD ADDREG 0785 FA70 8E FE FF LDX #$FEFF LOAD DMA BYTE COUNT = $100 0786 FA73 BF F0 02 STX CNTREG STORE IN COUNT REGISTER 0787 FA76 86 FF LDA #$FF LOAD THE CHANNEL REGISTER 0788 FA78 B7 F0 10 STA CCREG 0789 FA7B 86 FE LDA #$FE SET CHANNEL 0 0790 FA7D B7 F0 14 STA PRIREG 0791 FA80 86 01 LDA #1 SET SECTOR TO "1" 0792 FA82 B7 F0 22 STA SECREG ISSUE COMMAND 0793 FA85 86 8C LDA #$8C SET SINGLE SECTOR READ 0794 FA87 B7 F0 20 STA COMREG ISSUE COMMAND 0795 FA8A 8D 51 BSR DLY 0796 * 0797 * THE FOLLOWING CODE TESTS THE STATUS OF THE 0798 * CHANNEL CONTROL REGISTER. IF "D7" IS NOT 0799 * ZERO THEN IT WILL LOOP WAITING FOR "D7" 0800 * TO GO TO ZERO. IF AFTER 65,536 TRIES IT 0801 * IS STILL A ONE THE BOOT OPERATION WILL 0802 * BE STARTED OVER FROM THE BEGINING. 0803 * 0804 FA8C 5F CLRB ; 0805 FA8D 34 04 DBOOT1 PSHS B $FB55 0806 FA8F 5F CLRB ; 0807 FA90 7D F0 10 DBOOT2 TST CCREG 0808 FA93 2A 0A BPL DBOOT3 0809 FA95 5A DECB ; 0810 FA96 26 F8 BNE DBOOT2 0811 FA98 35 04 PULS B 0812 FA9A 5A DECB 0813 FA9B 26 F0 BNE DBOOT1 0814 FA9D 20 8A BRA DBOOT 0815 FA9F 35 04 DBOOT3 PULS B 0816 FAA1 B6 F0 20 LDA COMREG 0817 FAA4 85 1C BITA #$1C 0818 FAA6 27 01 BEQ DBOOT4 0819 FAA8 39 RTS ; 0820 * 0821 * 0822 FAA9 C6 DE DBOOT4 LDB #$DE 0823 FAAB F7 F0 24 STB DRVREG 0824 FAAE 8E C0 00 LDX #$C000 0825 FAB1 AF 4A STX 10,U 0826 FAB3 1F 34 TFR U,S $FB7B 0827 FAB5 3B RTI ; 0828 ENDIF DMAFOPT d849 49 a897 49 0830 IFD FPGAOPT 0831 * 0832 * COMPACT FLASH BOOT 0833 * 0834 CFBOOT BSR WAITRDY 0835 LDA #HEADLBA 0836 STA CF_HEAD 0837 BSR WAITRDY 0838 LDA #FEAT8BIT 0839 STA CF_FEATURE 0840 LDA #CMDFEATURE 0841 STA CF_COMAND 0842 BSR WAITRDY 0843 * 0844 * READ SECTORS FROM CF 0845 * 0846 CFREAD LDA #$01 0847 STA CF_SECCNT 0848 CLRA 0849 STA CF_SECNUM 0850 STA CF_CYLLO 0851 STA CF_CYLHI 0852 * 0853 LDA #CMDREAD ; IDE READ MULTIPLE 0854 STA CF_COMAND 0855 BSR WAITRDY 0856 LDX #$C000 0857 * 0858 * READ LOOP 0859 * 0860 RDLOOP BSR WAITDRQ 0861 LDA CF_DATA 0862 STA ,X+ 0863 CMPX #$C200 0864 BNE RDLOOP 0865 * 0866 LDX #$C000 0867 STX $0A,U 0868 TFR U,S 0869 RTI 0870 * 0871 * WAIT UNTIL READY 0872 * 0873 WAITRDY LDA CF_STATUS 0874 BITA #BUSY 0875 BNE WAITRDY 0876 LDA CF_STATUS 0877 BITA #DRDY 0878 BEQ WAITRDY d900 290 a1189 289 0881 * WAIT FOR DATA REQUEST 0882 * 0883 WAITDRQ LDA CF_STATUS 0884 BITA #DRQ 0885 BEQ WAITDRQ 0886 RTS 0887 ENDIF FPGAOPT 0887 ENDIF FPGAOPT 0888 * 0889 IFD RTCOPT 0890 * 0891 * CLOCK INTER FACE UTILITY 0892 * 0893 * TIME 0894 * If no argument is specified, the current time 0895 * will be displayed. 0896 * 0897 * READ A REGISTER FROM THE COUNTER. 0898 * The X Index rgister points to the register 0899 * to be read. The Status Register is checked 0900 * before and after the register is read before 0901 * returning a value in accumulator A 0902 * 0903 RDCLK TST CLKSTA 0904 BNE RDCLK 0905 RDCLK1 LDA 0,X 0906 TST CLKSTA 0907 BNE RDCLK1 0908 RTS 0909 * 0910 * MAIN PROGRAM: 0911 * 0912 TIMSET LDX #COUNTR POINT TO TIMER 0913 LBSR BYTE READ HOURS 0914 BVS SHOWTM NO ARG, DISP TIME 0915 STA HOUR,X 0916 LBSR OUT1S 0917 LBSR BYTE READ MINUITES 0918 BVS SHOWTM 0919 STA MINUIT,X 0920 LBSR OUT1S 0921 LBSR BYTE SECONDS. 0922 BVS SHOWTM 0923 STA SECOND,X 0924 * 0925 * DISPLAY CURRENT TIME 0926 * 0927 SHOWTM LBSR PCRLF 0928 LDX #COUNTR+HOUR 0929 LDB #3 0930 SHOWLP BSR RDCLK 0931 LBSR OUT2H 0932 LDA #': 0933 LBSR OUTCH 0934 LEAX -1,X 0935 DECB 0936 BNE SHOWLP 0937 RTS 0938 * 0939 * INITIATE CLOCK. 0940 * MASK INTERRUPTS. 0941 * 0942 CLKINZ CLR CINTCR MASK ALL INTERRUPTS 0943 TST CINTSR CLEAR ANY INTERRUPTS 0944 RTS 0945 ENDIF RTCOPT 0945 ENDIF RTCOPT 0946 IFD DATOPT 0947 * 0948 ***** LRA LOAD REAL ADDRESS ***** 0949 * 0950 * THE FOLLOWING CODE LOADS THE 20-BIT 0951 * PHYSICAL ADDRESS OF A MEMORY BYTE 0952 * INTO THE "A" AND "X" REGISTERS. THIS 0953 * ROUTINE IS ENTERED WITH THE LOGICAL 0954 * ADDRESS OF A MEMORY BYTE IN THE "IX" 0955 * REGISTER. EXIT IS MADE WITH THE HIGH- 0956 * ORDER FOUR BITS OF THE 20-BIT PHYSICAL 0957 * ADDRESS IN THE "A" REGISTER, AND THE 0958 * LOW-ORDER 16-BITS OF THE 20-BIT 0959 * PHYSICAL ADDRESS IN THE "IX" REGISTER. 0960 * ALL OTHER REGISTERS ARE PRESERVED. 0961 * THIS ROUTINE IS REQUIRED SINCE THE 0962 * DMAF1 AND DMAF2 DISK CONTROLLERS MUST 0963 * PRESENT PHYSICAL ADDRESSES ON THE 0964 * SYSTEM BUS. 0965 * 0966 FAB6 34 36 LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK 0967 FAB8 A6 62 LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK 0968 FABA 44 LSRA ; 0969 FABB 44 LSRA ADJ FOR INDEXED INTO 0970 FABC 44 LSRA CORRESPONDING LOCATION 0971 FABD 44 LSRA IN LRA TABLE 0972 FABE 10 8E DF D0 LDY #LRARAM LOAD LRA TABLE BASE ADDRESS 0973 FAC2 E6 A6 LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE 0974 FAC4 54 LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED 0975 FAC5 54 LSRB PHYSICAL ADDRESS. 0976 FAC6 54 LSRB EXTENDED MS 4-BITS ARE RETURNED 0977 FAC7 54 LSRB IN THE "A" ACCUMULATOR 0978 FAC8 E7 E4 STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK 0979 FACA E6 A6 LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE 0980 FACC 53 COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG 0981 FACD 58 ASLB ADJ DATA FOR RELOCATION IN X REG 0982 FACE 58 ASLB ; 0983 FACF 58 ASLB $FB97 0984 FAD0 58 ASLB ; 0985 FAD1 A6 62 LDA 2,S GET MS BYTE OF LOGICAL ADDR. 0986 FAD3 84 0F ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS 0987 FAD5 A7 62 STA 2,S SAVE IT IN X REG ON STACK 0988 FAD7 EA 62 ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR. 0989 * 0990 * PLUS LS NIBBLE OF LOGICAL ADDRESS 0991 FAD9 E7 62 STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG 0992 * ON STACK 0993 FADB 35 B6 PULS A,B,X,Y,PC POP REGS. FROM STACK 0994 ENDIF DATOPT 0995 * 0996 * DELAY LOOP 0997 * 0998 FADD 34 04 DLY PSHS B SAVE CONTENTS OF "B" 0999 FADF C6 20 LDB #$20 GET LOOP DELAY VALUE 1000 FAE1 5A SUB1 DECB SUBTRACT ONE FROM VALUE 1001 FAE2 26 FD BNE SUB1 LOOP UNTIL ZERO 1002 FAE4 35 84 PULS B,PC RESTORE CONTENTS OF "B" 1003 * RTS ; 1004 * 1005 ***** "L" LOAD MIKBUG TAPE ***** 1006 * 1007 FAE6 BD FD 57 LOAD JSR ACINIZ 1008 FAE9 86 11 LDA #$11 LOAD 'DC1' CASS. READ ON CODE 1009 FAEB 17 02 58 LBSR OUTCH OUTPUT IT TO TERMINAL PORT 1010 FAEE 7F DF E2 CLR ECHO TURN OFF ECHO FLAG 1011 FAF1 17 02 2A LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO 1012 FAF4 81 53 LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ? 1013 FAF6 26 F9 BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR. 1014 FAF8 17 02 23 LBSR ECHON 1015 FAFB 81 39 CMPA #'9 IS IT A "9" , END OF FILE CHAR ? 1016 FAFD 27 3D BEQ LOAD21 IF SO, EXIT LOAD 1017 FAFF 81 31 CMPA #'1 IS IT A "1" , FILE LOAD CHAR ? 1018 FB01 26 F1 BNE LOAD2 IF NOT, LOOK FOR START CHAR. 1019 FB03 17 01 A8 LBSR BYTE INPUT BYTE COUNT 1020 FB06 34 02 PSHS A PUSH COUNT ON STACK 1021 FB08 29 26 BVS LODERR (V) C-CODE SET, ILLEGAL HEX 1022 FB0A 17 01 91 LBSR IN1ADR INPUT LOAD ADDRESS 1023 FB0D 29 21 BVS LODERR (V) C-CODE SET, ADDR NOT HEX 1024 FB0F 34 10 PSHS X PUSH ADDR ON STACK 1025 FB11 E6 E0 LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE 1026 FB13 EB E0 ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM 1027 FB15 EB E4 ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM 1028 FB17 6A E4 DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS 1029 FB19 6A E4 DEC ,S ADDRESS BYTES. 1030 FB1B 34 04 LOAD10 PSHS B PUSH CHECKSUM ON STACK 1031 FB1D 17 01 8E LBSR BYTE INPUT DATA BYTE (2 HEX CHAR) 1032 FB20 35 04 PULS B POP CHECKSUM FROM STACK 1033 FB22 29 0C BVS LODERR (V) SET, DATA BYTE NOT HEX 1034 FB24 34 02 PSHS A PUSH DATA BYTE ON STACK 1035 FB26 EB E0 ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK 1036 FB28 6A E4 DEC ,S DECREMENT BYTE COUNT 1 1037 FB2A 27 05 BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM 1038 FB2C A7 80 STA ,X+ SAVE DATA BYTE IN MEMORY 1039 FB2E 20 EB BRA LOAD10 GET NEXT DATA BYTE 1040 FB30 5F LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ; 1041 FB31 35 02 LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT) 1042 FB33 C1 FF CMPB #$FF CHECKSUM OK? 1043 FB35 27 BA BEQ LOAD1 IF SO, LOAD NEXT LINE 1044 FB37 86 3F LDA #'? LOAD (?) ERROR INDICATOR 1045 FB39 17 02 0A LBSR OUTCH OUTPUT IT TO TERMINAL 1046 FB3C 73 DF E2 LOAD21 COM ECHO TURN ECHO ON 1047 FB3F 86 13 LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE 1048 FB41 16 02 02 LBRA OUTCH OUTPUT IT 1049 * 1050 ***** "P" PUNCH MIKBUG TAPE ***** 1051 * 1052 FB44 6F E2 PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK 1053 FB46 17 01 4A LBSR IN2ADR GET BEGIN AND END ADDRESS 1054 FB49 34 30 PSHS X,Y SAVE ADDRESSES ON STACK 1055 FB4B 29 4D BVS PUNEXT (V) C-CODE SET, EXIT PUNCH 1056 FB4D AC 62 CMPX 2,S COMPARE BEGIN TO END ADDR 1057 FB4F 25 49 BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH 1058 FB51 30 01 LEAX 1,X INCREMENT END ADDRESS 1059 FB53 AF E4 STX ,S STORE END ADDR ON STACK 1060 FB55 BD FD 57 JSR ACINIZ 1061 FB58 86 12 LDA #$12 LOAD 'DC2' PUNCH ON CODE 1062 FB5A 17 01 E9 LBSR OUTCH OUTPUT IT TO TERMINAL 1063 FB5D EC E4 PUNCH2 LDD ,S LOAD END ADDR IN D-ACC 1064 FB5F A3 62 SUBD 2,S SUBTRACT BEGIN FROM END 1065 FB61 27 06 BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT 1066 FB63 10 83 00 20 CMPD #$20 LESS THAN 32 BYTES? 1067 FB67 23 02 BLS PUNCH4 PUNCH THAT MANY BYTES 1068 FB69 C6 20 PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32. 1069 FB6B E7 64 PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT 1070 FB6D 8E FE 23 LDX #MSG20 POINT TO MSG "S1" 1071 FB70 17 00 2F LBSR PSTRNG PRINT MSG 1072 FB73 CB 03 ADDB #3 ADD 3 BYTES TO BYTE COUNT 1073 FB75 1F 98 TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH 1074 FB77 17 01 75 LBSR OUT2H OUTPUT BYTE COUNT 1075 FB7A AE 62 LDX 2,S LOAD BEGIN ADDRESS 1076 FB7C 17 01 68 LBSR OUT4H PUNCH ADDRESS 1077 FB7F EB 62 ADDB 2,S ADD ADDR MSB TO CHECKSUM 1078 FB81 EB 63 ADDB 3,S ADD ADDR LSB TO CHECKSUM 1079 FB83 EB 84 PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM 1080 FB85 A6 80 LDA ,X+ LOAD DATA BYTE TO PUNCH 1081 FB87 17 01 65 LBSR OUT2H OUTPUT DATA BYTE 1082 FB8A 6A 64 DEC 4,S DECREMENT BYTE COUNT 1083 FB8C 26 F5 BNE PUNCHL NOT DONE, PUNCH NEXT BYTE 1084 FB8E 53 COMB 1's COMPLIMENT CHECKSUM BYTE 1085 FB8F 1F 98 TFR B,A GET IT IN A-ACC TO PUNCH 1086 FB91 17 01 5B LBSR OUT2H OUTPUT CHECKSUM BYTE 1087 FB94 AF 62 STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR 1088 FB96 AC E4 CMPX ,S COMPARE IT TO END ADDR 1089 FB98 26 C3 BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT. 1090 FB9A 86 14 PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE 1091 FB9C 17 01 A7 LBSR OUTCH OUTPUT IT 1092 FB9F 32 65 LEAS 5,S READJUST STACK POINTER 1093 FBA1 39 RTS ; 1094 * 1095 * PRINT STRING PRECEEDED BY A CR & LF. 1096 * 1097 FBA2 8D 02 PSTRNG BSR PCRLF PRINT CR/LF 1098 FBA4 20 71 BRA PDATA PRINT STRING POINTED TO BY IX 1099 * 1100 * PCRLF 1101 * 1102 FBA6 34 10 PCRLF PSHS X SAVE IX 1103 FBA8 8E FD D4 LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS 1104 FBAB 17 00 69 LBSR PDATA PRINT MSG 1105 FBAE 35 90 PULS X,PC RESTORE IX & RETURN 1106 * 1107 * LONG BRANCHES TO COMMON ROUTINES 1108 * 1109 FBB0 16 01 91 JOUT1S LBRA OUT1S 1110 FBB3 16 00 F8 JBYTE LBRA BYTE 1111 FBB6 16 00 E5 JIN1ADR LBRA IN1ADR 1112 * 1113 * ALTER "PC" PROGRAM COUNTER 1114 * 1115 FBB9 17 00 91 ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = " 1116 FBBC 8D F2 BSR JOUT1S OUTPUT SPACE 1117 FBBE 8D F6 BSR JIN1ADR GET NEW CONTENTS FOR "PC" 1118 FBC0 29 02 BVS ALTPCD EXIT IF INVALID HEX 1119 FBC2 AF 4A STX 10,U POKE IN NEW CONTENTS 1120 FBC4 39 ALTPCD RTS ; 1121 * 1122 * ALTER "U" USER STACK POINTER 1123 * 1124 FBC5 8D 61 ALTRU BSR PRTUS $FCCA PRINT MSG " US = " 1125 FBC7 8D E7 BSR JOUT1S OUTPUT SPACE 1126 FBC9 8D EB BSR JIN1ADR 1127 FBCB 29 02 BVS ALTUD 1128 FBCD AF 48 STX 8,U 1129 FBCF 39 ALTUD RTS ; 1130 * 1131 * ALTER "Y" INDEX REGISTER 1132 * 1133 FBD0 8D 72 ALTRY BSR PRTIY PRINT MSG " IY = " 1134 FBD2 8D DC BSR JOUT1S OUTPUT SPACE 1135 FBD4 8D E0 BSR JIN1ADR 1136 FBD6 29 02 BVS ALTYD 1137 FBD8 AF 46 STX 6,U $F8F0 1138 FBDA 39 ALTYD RTS ; 1139 * 1140 * ALTER "X" INDEX REGISTER 1141 * 1142 FBDB 8D 5E ALTRX BSR PRTIX $FCE0 PRINT MSG " IX = " 1143 FBDD 8D D1 BSR JOUT1S OUTPUT SPACE 1144 FBDF 8D D5 BSR JIN1ADR 1145 FBE1 29 02 BVS ALTXD 1146 FBE3 AF 44 STX 4,U 1147 FBE5 39 ALTXD RTS ; 1148 * 1149 * ALTER "DP" DIRECT PAGE REGISTER 1150 * 1151 FBE6 8D 49 ALTRDP BSR PRTDP $FCD5 PRINT MSG " DP = " 1152 FBE8 8D C6 BSR JOUT1S OUTPUT SPACE 1153 FBEA 8D C7 BSR JBYTE INPUT BYTE (2 HEX CHAR) 1154 FBEC 29 02 BVS ALTDPD 1155 FBEE A7 43 STA 3,U 1156 FBF0 39 ALTDPD RTS ; 1157 * 1158 * ALTER "B" ACCUMULATOR 1159 * 1160 FBF1 8D 6C ALTRB BSR PRTB $FD09 PRINT MSG " B = " 1161 FBF3 8D BB BSR JOUT1S OUTPUT SPACE 1162 FBF5 8D BC BSR JBYTE INPUT BYTE (2 HEX CHAR) 1163 FBF7 29 02 BVS ALTBD 1164 FBF9 A7 42 STA 2,U 1165 FBFB 39 ALTBD RTS $F91C 1166 * 1167 * ALTER "A" ACCUMULATOR d1191 16 a1206 16 1169 FBFC 8D 58 ALTRA BSR PRTA $FCFF RINT MSG " A = " 1170 FBFE 8D B0 BSR JOUT1S OUTPUT SPACE 1171 FC00 8D B1 BSR JBYTE INPUT BYTE (2 HEX CHAR) 1172 FC02 29 02 BVS ALTAD 1173 FC04 A7 41 STA 1,U 1174 FC06 39 ALTAD RTS ; 1175 * 1176 * ALTER "CC" REGISTER 1177 * 1178 FC07 8D 5F ALTRCC BSR PRTCC $FD13 PRINT MSG " CC: " 1179 FC09 8D A5 BSR JOUT1S OUTPUT SPACE 1180 FC0B 8D A6 BSR JBYTE INPUT BYTE (2 HEX CHAR) 1181 FC0D 29 04 BVS ALTCCD 1182 FC0F 8A 80 ORA #$80 SETS "E" FLAG IN PRINT LIST 1183 FC11 A7 C4 STA ,U 1184 FC13 39 ALTCCD RTS ; d1208 141 a1348 141 1186 * PDATA 1187 * 1188 FC14 17 01 2F PRINT LBSR OUTCH 1189 FC17 A6 80 PDATA LDA ,X+ GET 1st CHAR. TO PRINT 1190 FC19 81 04 CMPA #4 IS IT EOT? 1191 FC1B 26 F7 BNE PRINT IF NOT EOT PRINT IT 1192 FC1D 39 RTS ; 1193 * 1194 * PRINT REGISTERS 1195 * 1196 FC1E 8E FD E6 PRTSP LDX #MSG10 POINT TO MSG "SP=" 1197 FC21 8D F4 BSR PDATA PRINT MSG 1198 FC23 1F 31 TFR U,X 1199 FC25 16 00 BF JOUT4H LBRA OUT4H 1200 * 1201 FC28 8E FD F2 PRTUS LDX #MSG12 POINT TO MSG "US=" 1202 FC2B 8D EA BSR PDATA PRINT MSG 1203 FC2D AE 48 LDX 8,U 1204 FC2F 20 F4 BRA JOUT4H 1205 * 1206 FC31 8E FE 04 PRTDP LDX #MSG15 POINT TO MSG "DP=" 1207 FC34 8D E1 BSR PDATA PRINT MSG 1208 FC36 A6 43 LDA 3,U 1209 FC38 16 00 B4 JOUT2H LBRA OUT2H OUTPUT HEX BYTE AS ASCII 1210 * 1211 FC3B 8E FD FE PRTIX LDX #MSG14 POINT TO MSG "IX=" 1212 FC3E 8D D7 BSR PDATA PRINT MSG 1213 FC40 AE 44 LDX 4,U $FCE6 1214 FC42 20 E1 BRA JOUT4H 1215 * 1216 FC44 8E FD F8 PRTIY LDX #MSG13 POINT TO MSG "IY=" 1217 FC47 8D CE BSR PDATA PRINT MSG 1218 FC49 AE 46 LDX 6,U 1219 FC4B 20 D8 BRA JOUT4H 1220 * 1221 FC4D 8E FD EC PRTPC LDX #MSG11 POINT TO MSG "PC=" 1222 FC50 8D C5 BSR PDATA PRINT MSG 1223 FC52 AE 4A LDX 10,U 1224 FC54 20 CF BRA JOUT4H 1225 * 1226 FC56 8E FE 0A PRTA LDX #MSG16 POINT TO MSG "A=" 1227 FC59 8D BC BSR PDATA PRINT MSG 1228 FC5B A6 41 LDA 1,U 1229 FC5D 20 D9 BRA JOUT2H OUTPUT HEX BYTE AS ASCII 1230 * 1231 FC5F 8E FE 0F PRTB LDX #MSG17 POINT TO MSG "B=" 1232 FC62 8D B3 BSR PDATA PRINT MSG 1233 FC64 A6 42 LDA 2,U 1234 FC66 20 D0 BRA JOUT2H OUTPUT HEX BYTE AS ASCII 1235 * 1236 FC68 8E FE 14 PRTCC LDX #MSG18 POINT TO MSG "CC:" 1237 FC6B 8D AA BSR PDATA PRINT MSG 1238 FC6D A6 C4 LDA ,U 1239 FC6F 8E FE 1B LDX #MSG19 POINT TO MSG "EFHINZVC" 1240 FC72 16 00 90 LBRA BIASCI OUTPUT IN BINARY/ASCII FORMAT 1241 * 1242 * "R" DISPLAY REGISTERS 1243 * 1244 FC75 8E FD E2 REGSTR LDX #MSG5 POINT TO MSG " - " 1245 FC78 17 FF 27 LBSR PSTRNG PRINT MSG 1246 FC7B 8D A1 BSR PRTSP $FCBF 1247 FC7D 8D A9 BSR PRTUS $FCCA 1248 FC7F 8D B0 BSR PRTDP $FCD5 1249 FC81 8D B8 BSR PRTIX $FCE0 1250 FC83 8D BF BSR PRTIY $FCEB 1251 FC85 8E FD E2 LDX #MSG5 POINT TO MSG " - " 1252 FC88 17 FF 17 LBSR PSTRNG PRINT MSG 1253 FC8B 8D C0 BSR PRTPC $FCF5 1254 FC8D 8D C7 BSR PRTA $FCFF 1255 FC8F 8D CE BSR PRTB $FD09 1256 FC91 20 D5 BRA PRTCC $FD13 1257 * 1258 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE 1259 * OPERATOR TO INPUT TWO VALID HEX ADDRESSES. 1260 * THE FIRST ADDRESS INPUT IS RETURNED IN "IY". 1261 * THE SECOND IS RETURNED IN "IX". THE "V" BIT 1262 * IN THE C-CODE REG. IS SET IF AN INVALID HEX 1263 * ADDRESS IS INPUT. 1264 * 1265 FC93 8D 09 IN2ADR BSR IN1ADR GET FIRST ADDRESS 1266 FC95 29 4D BVS NOTHEX EXIT IF NOT VALID HEX 1267 FC97 1F 12 TFR X,Y SAVE FIRST ADDR. IN "IY" 1268 FC99 86 2D LDA #'- 1269 FC9B 17 00 A8 LBSR OUTCH PRINT " - " 1270 * 1271 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE 1272 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE 1273 * ADDRESS IS RETURNED IN THE "X" REGISTER. 1274 * 1275 FC9E 8D 0E IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR) 1276 FCA0 29 42 BVS NOTHEX EXIT IF NOT VALID HEX 1277 FCA2 1F 01 TFR D,X 1278 FCA4 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR) 1279 FCA6 29 3C BVS NOTHEX 1280 FCA8 34 10 PSHS X 1281 FCAA A7 61 STA 1,S 1282 FCAC 35 90 PULS X,PC 1283 * 1284 ***** INPUT BYTE (2 HEX CHAR.) ***** 1285 * 1286 FCAE 8D 11 BYTE BSR INHEX GET HEX LEFT 1287 FCB0 29 32 BVS NOTHEX EXIT IF NOT VALID HEX 1288 FCB2 48 ASLA ; 1289 FCB3 48 ASLA ; 1290 FCB4 48 ASLA ; SHIFT INTO LEFT NIBBLE 1291 FCB5 48 ASLA ; 1292 FCB6 1F 89 TFR A,B PUT HEXL IN "B" 1293 FCB8 8D 07 BSR INHEX GET HEX RIGHT 1294 FCBA 29 28 BVS NOTHEX EXIT IF NOT VALID HEX 1295 FCBC 34 04 PSHS B PUSH HEXL ON STACK 1296 FCBE AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK 1297 FCC0 39 RTS RETURN WITH HEX L&R IN "A" 1298 * 1299 * 1300 FCC1 8D 5B INHEX BSR ECHON INPUT ASCII CHAR. 1301 FCC3 81 30 CMPA #'0 IS IT > OR = "0" ? 1302 FCC5 25 1D BCS NOTHEX IF LESS IT AIN'T HEX 1303 FCC7 81 39 CMPA #'9 IS IT < OR = "9" ? 1304 FCC9 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA 1305 FCCB 80 30 SUBA #$30 ASCII ADJ. NUMERIC 1306 FCCD 39 RTS ; 1307 * 1308 * 1309 FCCE 81 41 INHEXA CMPA #'A IS IT > OR = "A" 1310 FCD0 25 12 BCS NOTHEX IF LESS IT AIN'T HEX 1311 FCD2 81 46 CMPA #'F IS IT < OR = "F" ? 1312 FCD4 22 03 BHI INHEXL IF > IT AIN'T HEX 1313 FCD6 80 37 SUBA #$37 ASCII ADJ. ALPHA 1314 FCD8 39 RTS ; 1315 * 1316 FCD9 81 61 INHEXL CMPA #'a IS IT > OR = "a" 1317 FCDB 25 07 BCS NOTHEX IF LESS IT AIN'T HEX 1318 FCDD 81 66 CMPA #'f IS IT < "f" 1319 FCDF 22 03 BHI NOTHEX IF > IT AIN'T HEX 1320 FCE1 80 57 SUBA #$57 ADJUST TO LOWER CASE 1321 FCE3 39 RTS ; 1322 * 1323 * 1324 FCE4 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER 1325 FCE6 39 RTS ; 1326 * d1350 362 a1711 362 1328 FCE7 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK 1329 FCE9 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC. 1330 FCEB 8D 02 BSR OUTHL OUTPUT HEX LEFT 1331 FCED 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC. 1332 FCEF OUTHL EQU * 1333 FCEF 34 02 OUT2H PSHS A SAVE IT BACK ON STACK 1334 FCF1 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII 1335 FCF2 44 LSRA ; 1336 FCF3 44 LSRA ; 1337 FCF4 44 LSRA ; 1338 FCF5 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII 1339 FCF7 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII 1340 FCF9 84 0F ANDA #$0F STRIP LEFT NIBBLE 1341 FCFB 8B 30 XASCII ADDA #$30 ASCII ADJ 1342 FCFD 81 39 CMPA #$39 IS IT < OR = "9" ? 1343 FCFF 2F 02 BLE OUTC IF LESS, OUTPUT IT 1344 FD01 8B 07 ADDA #7 IF > MAKE ASCII LETTER 1345 FD03 20 41 OUTC BRA OUTCH OUTPUT CHAR 1346 * 1347 * BINARY / ASCII --- THIS ROUTINE 1348 * OUTPUTS A BYTE IN ENHANCED 1349 * BINARY FORMAT. THE ENHANCEMENT 1350 * IS DONE BY SUBSTITUTING ASCII 1351 * LETTERS FOR THE ONES IN THE BYTE. 1352 * THE ASCII ENHANCEMENT LETTERS 1353 * ARE OBTAINED FROM THE STRING 1354 * POINTED TO BY THE INDEX REG. "X". 1355 * 1356 FD05 34 02 BIASCI PSHS A SAVE "A" ON STACK 1357 FD07 C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE 1358 FD09 A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING 1359 FD0B 68 E4 ASL ,S TEST BYTE FOR "1" IN B7 1360 FD0D 25 02 BCS PRTBA IF ONE PRINT LETTER 1361 FD0F 86 2D LDA #'- IF ZERO PRINT "-" 1362 FD11 8D 33 PRTBA BSR OUTCH PRINT IT 1363 FD13 8D 2F BSR OUT1S PRINT SPACE 1364 FD15 5A DECB SUB 1 FROM #BITS YET TO PRINT 1365 FD16 26 F1 BNE OUTBA 1366 FD18 35 82 PULS A,PC 1367 * 1368 * EXTENDED USER COMMANDS 1369 * 1370 FD1A 6E 9F F0 00 EXTEND JMP [MONEXT+EXTCMD] 1371 * 1372 * 1373 FD1E 7D DF E2 ECHON TST ECHO IS ECHO REQUIRED ? 1374 FD21 27 06 BEQ INCH ECHO NOT REQ. IF CLEAR 1375 * 1376 * INCHE 1377 * 1378 * ---GETS CHARACTER FROM TERMINAL AND 1379 * ECHOS SAME. THE CHARACTER IS RETURNED 1380 * IN THE "A" ACCUMULATOR WITH THE PARITY 1381 * BIT MASKED OFF. ALL OTHER REGISTERS 1382 * ARE PRESERVED. 1383 * 1384 FD23 8D 04 INCHE BSR INCH GET CHAR FROM TERMINAL 1385 FD25 84 7F ANDA #$7F STRIP PARITY FROM CHAR. 1386 FD27 20 1D BRA OUTCH ECHO CHAR TO TERMINAL 1387 * 1388 * INCH 1389 * 1390 * GET CHARACTER FROM TERMINAL. RETURN 1391 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE 1392 * ALL OTHER REGISTERS. THE INPUT CHARACTER 1393 * IS 8 BITS AND IS NOT ECHOED. 1394 * 1395 * 1396 FD29 34 10 INCH PSHS X SAVE IX 1397 FD2B BE DF E0 GETSTA LDX CPORT POINT TO TERMINAL PORT 1398 FD2E A6 84 LDA ,X FETCH PORT STATUS 1399 FD30 85 01 BITA #1 TEST READY BIT, RDRF ? 1400 IFD FPGAOPT 1401 BNE GETST1 1402 LDX #ACIAS 1403 LDA ,X 1404 BITA #1 1405 ENDIF FPGAOPT 1405 ENDIF FPGAOPT 1406 FD32 27 F7 BEQ GETSTA IF NOT RDY, THEN TRY AGAIN 1407 FD34 A6 01 GETST1 LDA 1,X FETCH CHAR 1408 FD36 35 90 PULS X,PC RESTORE IX 1409 * 1410 * INCHEK 1411 * 1412 * CHECK FOR A CHARACTER AVAILABLE FROM 1413 * THE TERMINAL. THE SERIAL PORT IS CHECKED 1414 * FOR READ READY. ALL REGISTERS ARE 1415 * PRESERVED, AND THE "Z" BIT WILL BE 1416 * CLEAR IF A CHARACTER CAN BE READ. 1417 * 1418 * 1419 FD38 34 02 INCHEK PSHS A SAVE A ACCUM. 1420 FD3A A6 9F DF E0 LDA [CPORT] FETCH PORT STATUS 1421 FD3E 85 01 BITA #1 TEST READY BIT, RDRF ? 1422 IFD FPGAOPT 1423 BNE INCHEK1 1424 LDA ACIAS 1425 BITA #1 TEST READY BIT< RDRF ? 1426 ENDIF FPGAOPT 1426 ENDIF FPGAOPT 1427 FD40 35 82 INCHEK1 PULS A,PC RESTORE A ACCUM. 1428 * 1429 FD42 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES 1430 FD44 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE 1431 * 1432 * 1433 * OUTCH 1434 * 1435 * OUTPUT CHARACTER TO TERMINAL. 1436 * THE CHAR. TO BE OUTPUT IS 1437 * PASSED IN THE A REGISTER. 1438 * ALL REGISTERS ARE PRESERVED. 1439 * 1440 OUTCH IFD FPGAOPT 1441 BSR VOUTCH 1442 ENDIF FPGAOPT 1442 ENDIF FPGAOPT 1443 IFD ADSOPT 1444 BSR VOUTCH 1445 ENDIF ADSOPT 1445 ENDIF ADSOPT 1446 FD46 34 12 AOUTCH PSHS A,X SAVE A ACCUM AND IX 1447 FD48 BE DF E0 LDX CPORT GET ADDR. OF TERMINAL 1448 FD4B A6 84 FETSTA LDA ,X FETCH PORT STATUS 1449 FD4D 85 02 BITA #2 TEST TDRE, OK TO XMIT ? 1450 FD4F 27 FA BEQ FETSTA IF NOT LOOP UNTIL RDY 1451 FD51 35 02 PULS A GET CHAR. FOR XMIT 1452 FD53 A7 01 STA 1,X XMIT CHAR. 1453 FD55 35 90 PULS X,PC RESTORE IX 1454 * 1455 * IO INITIALIZATION 1456 * 1457 FD57 IOINIZ EQU * 1458 IFD FPGAOPT 1459 BSR VINIZ 1460 ENDIF FPGAOPT 1460 ENDIF FPGAOPT 1461 IFD ADSOPT 1462 BSR VINIZ 1463 ENDIF ADSOPT 1463 ENDIF ADSOPT 1464 FD57 BE DF E0 ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS 1465 FD5A 86 03 LDA #3 RESET ACIA PORT CODE 1466 FD5C A7 84 STA ,X STORE IN CONTROL REGISTER 1467 FD5E 86 11 LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY 1468 FD60 A7 84 STA ,X STORE IN CONTROL REGISTER 1469 FD62 6D 01 TST 1,X ANYTHING IN DATA REGISTER? 1470 FD64 86 FF LDA #$FF TURN ON ECHO FLAG 1471 FD66 B7 DF E2 STA ECHO 1472 FD69 39 RTS 1473 * 1474 IFD FPGAOPT 1475 * 1476 *************************************************** 1477 * VDU8 ADM3A REGISTER-MAPPED EMULATOR * 1478 * * 1479 * 80 x 25 Characters 1480 * 1481 *************************************************** 1482 * 1483 *************************************************** 1484 * INITIALIZE EMULATOR * 1485 *************************************************** 1486 * 1487 VINIZ LDX #VDU 1488 LDD #0 1489 STD COLADX AND ROWADX 1490 STA VDUCOL,X 1491 STB VDUROW,X 1492 STB VDUOFF,X 1493 STD NEWROW AND ESCFLG 1494 LDB #$02 1495 STB VDUATT,X 1496 CLR ESCFLG 1497 LDA #$1B SEND ESCAPE 1498 BSR VOUTCH 1499 LDA #'Y CLEAR TO END OF SCREEN 1500 * 1501 ** VIDEO OUTPUT ROUTINE 1502 * 1503 VOUTCH PSHS A,B,X SAVE REGISTERS 1504 LDX #VDU POINT TO VDU REGISTERS 1505 * 1506 ** CHECK FOR ESCAPE SEQUENCE 1507 * 1508 TST ESCFLG ESCAPE ACTIVE? 1509 BEQ SOROU1 BRANCH IF NOT 1510 BSR ESCAPE ELSE DO ESCAPE 1511 BRA RETURN AND RETURN 1512 * 1513 ** CHECK FOR CONTROL CHARACTERS 1514 * 1515 SOROU1 CMPA #$20 CONTROL CODES? 1516 BHS SOROU2 1517 BSR CONTRL BRANCH IF SO 1518 BRA RETURN 1519 * 1520 ** OUTPUT TEXT CHARACTER 1521 * 1522 SOROU2 STAA VDUCHR,X DISPLAY CHARACTER 1523 LBSR NEWCOL UPDATE COLUMN 1524 * 1525 ** DISPLAY CURSOR AND RETURN 1526 * 1527 RETURN PULS A,B,X,PC RESTORE REGISTERS AND RETURN 1528 * 1529 *************************************************** 1530 * CONTROL CODE HANDLERS * 1531 *************************************************** 1532 * 1533 CONTRL CMPA #$08 CTRL H - BACKSPACE ? 1534 LBEQ BACKSP 1535 CMPA #$1B ESCAPE SEQUENCE? 1536 LBEQ SETESC 1537 CMPA #$1A CTRL Z - Clear Screen 1538 LBEQ CLRSCR 1539 CMPA #$16 CTRL ^ - Home 1540 LBEQ HOME 1541 CMPA #$D CTRL M - RETURN? 1542 LBEQ CRETN 1543 CMPA #$0C CTRL L - CHAR RIGHT 1544 LBEQ CHRIGHT 1545 CMPA #$0B CTRL K - MOVE UP ONE LINE 1546 LBEQ LINEUP 1547 CMPA #$0A CTRL J - LINE FEED 1548 BNE RETESC NONE OF THESE, RETURN 1549 * 1550 ***************************************** LINE FEED 1551 * 1552 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW 1553 INCB BUMP ROW 1554 CMPB #NUMLIN SCROLL TIME? 1555 LBNE NEWCUR POSITION CURSOR IF NOT 1556 LBRA SCROLL ELSE SCROLL IT 1557 * 1558 ***************************************** LINE FEED 1559 * 1560 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW 1561 TSTB AT TOP OF SCREEN ? 1562 LBEQ RETESC Yes, Ignore 1563 DECB No, Decrement ROW 1564 LBRA NEWCUR POSITION CURSOR 1565 * 1566 *********************************** BACK SPACE 1567 * 1568 BACKSP LDA COLADX 1569 BEQ RETESC RETURN 1570 DECA 1571 LBRA POSCOL POSITION CURSOR 1572 * 1573 *********************************** CURSOR RIGHT 1574 * 1575 CHRIGHT LDA COLADX 1576 INCA 1577 CMPA #LINLEN 1578 LBEQ RETESC 1579 LBRA POSCOL 1580 * 1581 *********************************** CURSOR RIGHT 1582 * 1583 HOME LDD #0 HOME - POSITION TOP OF SCREEN 1584 LBRA NEWCUR 1585 * 1586 *************************************************** 1587 * ESCAPE HANDLERS * 1588 *************************************************** 1589 * 1590 ESCAPE LDAB ESCFLG GET FLAG 1591 CMPB #'= SETTING CURSOR? 1592 BEQ ESCCUR BRANCH IF SO 1593 CMPA #'Y CLEAR TO END OF SCREEN? 1594 LBEQ ESCCLS 1595 CMPA #'T CLEAR TO END OF LINE? 1596 BEQ ESCCLL 1597 CMPA #'= STARTING CURSOR SET? 1598 BNE CLRESC BRANCH IF NOT 1599 * 1600 ***************************** START ESCAPE SEQUENCE 1601 * 1602 SETESC STAA ESCFLG ELSE START CURSORING 1603 RTS AND RETURN 1604 * 1605 CLRESC CLR ESCFLG NO OTHERS SUPPORTED 1606 RETESC RTS SO RETURN 1607 * 1608 ********************************* SET SCREEN CURSOR 1609 * 1610 ESCCUR TST NEWROW ROW SET? 1611 BNE ESCCU1 BRANCH IF SO 1612 STAA NEWROW ELSE SET NEW ROW 1613 RTS AND RETURN 1614 * 1615 ESCCU1 CLR ESCFLG 1616 SUBA #$20 ADJUST COLUMN ADDRESS 1617 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM 1618 BHI RETESC NOT OK, DO NOTHING 1619 * 1620 ESCCU2 LDAB NEWROW 1621 CLR NEWROW 1622 SUBB #$20 ADJUST TO ROW ADDRESS 1623 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW 1624 BHI RETESC ELSE RETURN DOING NOTHING 1625 BRA NEWCUR GO SET NEW CURSOR IF SO 1626 * 1627 ****************** CLEAR FROM CURSOR TO END OF LINE 1628 CLRSCR LDD #0 CLEAR FROM TOP OF SCREEN 1629 BSR NEWCUR 1630 ESCCLL LDA COLADX 1631 LDB #$20 AND CLEAR CHAR 1632 ESCCL1 STB VDUCHR,X DISPLAY TEXT 1633 INCA 1634 STA VDUCOL,X 1635 CMPA #LINLEN UNTIL END OF LINE 1636 BNE ESCCL1 1637 CLR ESCFLG 1638 RTS 1639 * 1640 *********************************** CARRIAGE RETURN 1641 * 1642 CRETN CLRA SET COLUMN ZERO 1643 POSCOL LDB ROWADX GET CURRENT ROW 1644 * 1645 *********** GENERATE NEW CURSOR POSITION AND RETURN 1646 * 1647 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN 1648 STA VDUCOL,X SET NEW COLUMN 1649 STB VDUROW,X SET NEW ROW 1650 RTS AND RETURN 1651 * 1652 ********************* UPDATE CURRENT COLUMN AND ROW 1653 * 1654 NEWCOL LDD COLADX GET ROW AND COLUMN 1655 INCA BUMP COLUMN 1656 CMPA #LINLEN ROLL? 1657 BNE NEWCUR BRANCH IF NOT 1658 CLRA ELSE RESET TO ZERO 1659 INCB AND BUMP ROW 1660 CMPB #NUMLIN 1661 BNE NEWCUR 1662 DECB BOTTOM ROW 1663 BSR NEWCUR 1664 * 1665 ********************************* SCROLL THE SCREEN 1666 * 1667 SCROLL LDB VDUOFF,X 1668 INCB 1669 CMPB #NUMLIN 1670 BLO SCROL1 1671 CLRB 1672 SCROL1 STB VDUOFF,X 1673 * 1674 **************** CLEAR FROM CURSOR TO END OF SCREEN 1675 * 1676 ESCCLS LDB COLADX GET CURSOR 1677 LDA #$20 GET A SPACE 1678 ESCCLS1 STB COLADX 1679 STB VDUCOL,X 1680 STA VDUCHR,X 1681 INCB 1682 CMPB #LINLEN 1683 BNE ESCCLS1 d1713 8 a1720 8 1685 LDB ROWADX 1686 INCB 1687 CMPB #NUMLIN 1688 BEQ ESCCLS2 1689 STB ROWADX 1690 STB VDUROW,X 1691 CLRB 1692 BRA ESCCLS1 d1722 581 a2302 397 1694 ESCCLS2 CLRB 1695 STB COLADX 1696 STB VDUCOL,X 1697 STB ESCFLG 1698 RTS 1699 ENDIF FPGAOPT 1699 ENDIF FPGAOPT 1700 * 1701 IFD ADSOPT 1702 *************************************************** 1703 * TELEVIDEO-TYPE MEMORY-MAPPED EMULATOR * 1704 * * 1705 * FOR HARD-WIRED MEMORY-MAPPED DISPLAYS USING THE * 1706 * HIGH ORDER BIT OF EACH BYTE FOR REVERSE VIDEO * 1707 * CURSORING (SUCH AS THE THOMAS INSTRUMENTATION * 1708 * 16x64 BOARD). * 1709 *************************************************** 1710 1711 *************************************************** 1712 * INITIALIZE EMULATOR * 1713 *************************************************** 1714 1715 VINIZ LDX #0 1716 STX COLADX AND ROWADX 1717 STX NEWROW AND ESCFLG 1718 LDX #SCREEN POINT TO SCREEN 1719 STX CURSOR SET PROGRAM CURSOR 1720 LDA #$1B SEND ESCAPE 1721 BSR VOUTCH 1722 LDA #'Y CLEAR TO END OF SCREEN 1723 * 1724 ** VIDEO OUTPUT ROUTINE 1725 * 1726 VOUTCH PSHS A,B,X SAVE REGISTERS 1727 * 1728 ** CLEAR CURSOR 1729 LDX CURSOR 1730 LDB 0,X 1731 ANDB #$7F 1732 STB 0,X 1733 * 1734 ** CHECK FOR ESCAPE SEQUENCE 1735 TST ESCFLG ESCAPE ACTIVE? 1736 BEQ SOROU1 BRANCH IF NOT 1737 BSR ESCAPE ELSE DO ESCAPE 1738 BRA RETURN AND RETURN 1739 * 1740 ** CHECK FOR CONTROL CHARACTERS 1741 SOROU1 CMPA #$20 CONTROL CODES? 1742 BHS SOROU2 1743 BSR CONTRL BRANCH IF SO 1744 BRA RETURN 1745 * 1746 ** OUTPUT TEXT CHARACTER 1747 SOROU2 LDX CURSOR ELSE GET CURSOR 1748 STAA 0,X DISPLAY CHARACTER 1749 LBSR NEWCOL UPDATE COLUMN 1750 * 1751 ** DISPLAY CURSOR AND RETURN 1752 RETURN LDX CURSOR AND DISPLAY IT 1753 LDB ,X 1754 ORAB #$80 WITH REVID 1755 STB ,X 1756 PULS A,B,X,PC RESTORE REGISTERS AND RETURN 1757 1758 *************************************************** 1759 * CONTROL CODE HANDLERS * 1760 *************************************************** 1761 1762 CONTRL CMPA #$08 CTRL H - BACKSPACE ? 1763 LBEQ BACKSP 1764 CMPA #$1B ESCAPE SEQUENCE? 1765 LBEQ SETESC 1766 CMPA #$D CTRL M - RETURN? 1767 LBEQ CRETN 1768 CMPA #$0A CTRL J - LINE FEED 1769 BNE RETESC NONE OF THESE, RETURN 1770 1771 ***************************************** LINE FEED 1772 1773 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW 1774 INCB BUMP ROW 1775 CMPB #NUMLIN SCROLL TIME? 1776 LBNE NEWCUR POSITION CURSOR IF NOT 1777 LBRA SCROLL ELSE SCROLL IT 1778 1779 ***************************************** LINE FEED 1780 1781 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW 1782 TSTB AT TOP OF SCREEN ? 1783 BEQ RETESC Yes, Ignore 1784 DECB No, Decrement ROW 1785 LBRA NEWCUR POSITION CURSOR 1786 1787 1788 *********************************** BACK SPACE 1789 1790 BACKSP LDA COLADX 1791 BEQ RETESC RETURN 1792 DECA 1793 LBRA POSCOL POSITION CURSOR 1794 1795 *********************************** CURSOR RIGHT 1796 1797 CHRIGHT LDA COLADX 1798 INCA 1799 CMPA #LINLEN 1800 BEQ RETESC 1801 LBRA POSCOL 1802 1803 *************************************************** 1804 * ESCAPE HANDLERS * 1805 *************************************************** 1806 1807 ESCAPE LDAB ESCFLG GET FLAG 1808 CMPB #'= SETTING CURSOR? 1809 BEQ ESCCUR BRANCH IF SO 1810 CMPA #'Y CLEAR TO END OF SCREEN? 1811 LBEQ ESCCLS 1812 CMPA #'T CLEAR TO END OF LINE? 1813 BEQ ESCCLL 1814 CMPA #'E INSERT LINE? 1815 BEQ ESCINL 1816 CMPA #'R DELETE LINE? 1817 BEQ ESCDLL 1818 CMPA #'= STARTING CURSOR SET? 1819 BNE CLRESC BRANCH IF NOT 1820 1821 ***************************** START ESCAPE SEQUENCE 1822 1823 SETESC STAA ESCFLG ELSE START CURSORING 1824 RTS AND RETURN 1825 1826 CLRESC CLR ESCFLG NO OTHERS SUPPORTED 1827 RETESC RTS SO RETURN 1828 1829 ********************************* SET SCREEN CURSOR 1830 1831 ESCCUR TST NEWROW ROW SET? 1832 BNE ESCCU1 BRANCH IF SO 1833 STAA NEWROW ELSE SET NEW ROW 1834 RTS AND RETURN 1835 1836 ESCCU1 CLR ESCFLG 1837 SUBA #$20 ADJUST COLUMN ADDRESS 1838 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM 1839 BHI RETESC NOT OK, DO NOTHING 1840 1841 ESCCU2 LDAB NEWROW 1842 CLR NEWROW 1843 SUBB #$20 ADJUST TO ROW ADDRESS 1844 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW 1845 BHI RETESC ELSE RETURN DOING NOTHING 1846 BRA NEWCUR GO SET NEW CURSOR IF SO 1847 * 1848 *************************** DELETE LINE FROM SCREEN 1849 1850 ESCDLL BSR CRETN GO COL. ZERO 1851 LDB ROWADX 1852 CMPB #NUMLIN-1 1853 BEQ SCROL3 1854 BRA SCROL1 AND DELETE THIS LINE 1855 1856 *************************** INSERT LINE INTO SCREEN 1857 1858 ESCINL BSR CRETN GO TO COL. ZERO 1859 LDAB ROWADX 1860 CMPB #NUMLIN-1 1861 BEQ ESCCLL 1862 * 1863 ** SCROLL SCREEN DOWN FROM CURSOR 1864 * 1865 LDX #SCREEN+SCNLEN-LINLEN 1866 ESCIN0 LDAA 0,-X 1867 STAA LINLEN,X 1868 LDA SCNLEN,X 1869 STA SCNLEN+LINLEN,X 1870 CPX CURSOR 1871 BNE ESCIN0 1872 1873 ****************** CLEAR FROM CURSOR TO END OF LINE 1874 1875 ESCCLL LDA COLADX GET CURRENT COLUMN 1876 LDX CURSOR GET CURSOR 1877 LDB #$20 AND CLEAR CHAR 1878 ESCLL1 STB SCNLEN,X CLEAR ATTRIBUTE 1879 STB ,X+ CLEAR TEXT 1880 INCA 1881 CMPA #LINLEN UNTIL END OF LINE 1882 BNE ESCLL1 1883 CLR ESCFLG 1884 RTS 1885 1886 *********************************** CARRIAGE RETURN 1887 1888 CRETN CLRA SET COLUMN ZERO 1889 POSCOL LDB ROWADX GET CURRENT ROW 1890 1891 *********** GENERATE NEW CURSOR POSITION AND RETURN 1892 1893 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN 1894 LDA #LINLEN ELSE ADD A LINE 1895 MUL LINLEN * ROWADX 1896 ADDB COLADX 1897 ADCA #0 1898 ADDD #SCREEN ADD SCREEN BASE. 1899 STD CURSOR SAVE NEW CURSOR 1900 TFR D,X GET CURSOR IN X 1901 RTS AND RETURN 1902 1903 ********************* UPDATE CURRENT COLUMN AND ROW 1904 1905 NEWCOL LDD COLADX GET ROW AND COLUMN 1906 INCA BUMP COLUMN 1907 CMPA #LINLEN ROLL? 1908 BNE NEWCUR BRANCH IF NOT 1909 CLRA ELSE RESET TO ZERO 1910 INCB AND BUMP ROW 1911 CMPB #NUMLIN 1912 BNE NEWCUR 1913 DECB BOTTOM ROW 1914 BSR NEWCUR 1915 1916 ********************************* SCROLL THE SCREEN 1917 1918 SCROLL LDX #SCREEN POINT TO SCREEN 1919 SCROL1 LDA SCNLEN+LINLEN,X 1920 STA SCNLEN,X 1921 LDAA LINLEN,X MOVE TWO BYTES 1922 STAA 0,X+ UP ONE LINE 1923 CMPX #SCREEN+SCNLEN-LINLEN 1924 BNE SCROL1 LOOP UNTIL DONE 1925 BRA SCROL3 1926 1927 **************** CLEAR FROM CURSOR TO END OF SCREEN 1928 1929 ESCCLS LDX CURSOR GET CURSOR 1930 SCROL3 LDAA #$20 GET A SPACE 1931 SCROL2 STA SCNLEN,X CLEAR ATTRIBUTES 1932 STA ,X+ AND TEXT 1933 CMPX #SCREEN+SCNLEN 1934 BNE SCROL2 UNTIL DONE 1935 CLR ESCFLG 1936 RTS 1937 ENDIF ADSOPT 1937 ENDIF ADSOPT 1938 * 1939 IFD PRTOPT 1940 ************************************* 1941 * 1942 ** PRINTER DRIVER ROUTINES 1943 * 1944 ************************************* 1945 * 1946 ** PINIZ - INITIATE PRINTER PORT 1947 * 1948 PINIZ PSHS B 1949 LDD #DIRMSK*256+$04 ACCA=DIRMSK ACCB=$04 1950 STD PADATA SET DDR AND SELECT DATA 1951 * 1952 ** RESET PRINTER 1953 LDB #PRESET 1954 STAB PADATA 1955 RESTLP INCB DELAY FOR RESET 1956 BNE RESTLP 1957 STAA PADATA ACCA=DIRMSK 1958 * 1959 ** INITALIZE PORT B (DATA PORT) 1960 LDAA #$2A 1961 STAA PBCTRL 1962 LDD #$FF2E ACCA=$FF ACCB =%00101110 1963 STD PBDATA PBDREG PBCTRL 1964 * 1965 ** SELECT 66 LINES/PAGE 1966 LDAA #$1B 1967 BSR POUTCH 1968 LDAA #'C 1969 BSR POUTCH 1970 LDAA #66 1971 PULS B 1972 ************************************* 1973 * 1974 ** OUTPUT A CHARACTER TO THE PRINTER 1975 * 1976 ************************************* 1977 POUTCH PSHS B 1978 LDAB PBDATA CLEAR INTERRUPT BIT 1979 * 1980 ** WAIT TILL NOT BUSY 1981 BUSYLP LDAB PADATA 1982 BITB #PERROR 1983 BEQ PEXIT 1984 TSTB 1985 BMI BUSYLP 1986 * 1987 ** NOW OUTPUT CHARACTER 1988 STAA PBDATA 1989 PEXIT PULS B,PC 1990 ************************************* 1991 * 1992 ** PCHK TEST IFD PRINTER READY 1993 * 1994 ************************************* 1995 PCHK TST PBCTRL TEST STATE OF CRB7 1996 RTS SET ON ACKNOWLEDGE 1997 ENDIF PRTOPT 1997 ENDIF PRTOPT 1998 ************************************* 1999 * 2000 * MONITOR KEYBOARD COMMAND JUMP TABLE 2001 * 2002 ************************************* 2003 * 2004 FD6A JMPTAB EQU * 2005 FD6A 01 FCB 1 " ^A " 2006 FD6B FB FC FDB ALTRA 2007 FD6D 02 FCB 2 " ^B " 2008 FD6E FB F1 FDB ALTRB 2009 FD70 03 FCB 3 " ^C " 2010 FD71 FC 07 FDB ALTRCC 2011 FD73 04 FCB 4 " ^D " 2012 FD74 FB E6 FDB ALTRDP 2013 FD76 10 FCB $10 " ^P " 2014 FD77 FB B9 FDB ALTRPC 2015 FD79 15 FCB $15 " ^U " 2016 FD7A FB C5 FDB ALTRU 2017 FD7C 18 FCB $18 " ^X " 2018 FD7D FB DB FDB ALTRX 2019 FD7F 19 FCB $19 " ^Y " 2020 FD80 FB D0 FDB ALTRY 2021 * 2022 FD82 42 FCC 'B' 2023 FD83 F9 5C FDB BRKPNT 2024 FD85 45 FCC 'E' 2025 FD86 F8 FD FDB MEMDUMP 2026 FD88 47 FCC 'G' 2027 FD89 F8 A5 FDB GO 2028 FD8B 4C FCC 'L' 2029 FD8C FA E6 FDB LOAD 2030 FD8E 50 FCC 'P' 2031 FD8F FB 44 FDB PUNCH 2032 FD91 4D FCC 'M' 2033 FD92 F8 A8 FDB MEMCHG 2034 FD94 52 FCC 'R' 2035 FD95 FC 75 FDB REGSTR 2036 FD97 53 FCC 'S' 2037 FD98 F8 F1 FDB DISSTK 2038 FD9A 58 FCC 'X' 2039 FD9B F9 88 FDB XBKPNT 2040 IFD MFDCOPT 2041 FD9D 44 FCC 'D' *** SWTPC USES 'U' FOR MINIBOOT 2042 FD9E F9 D5 FDB MINBOOT 2043 ENDIF MFDCOPT 2044 IFD FPGAOPT 2045 FCC 'D' *** FPGA USES 'D' FOR CFBOOT 2046 FDB CFBOOT 2047 ENDIF FPGAOPT 2047 ENDIF FPGAOPT 2048 IFD DMAFOPT 2049 FDA0 55 FCC 'U' *** SWTPC USES 'D' FOR DMAF2 BOOT 2050 FDA1 FA 29 FDB DBOOT 2051 ELSE 2052 FCC 'U' *** IF NOT DMAF2, 'U' IS FOR USER 2053 FDB EXTEND 2054 ENDIF DMAFOPT 2054 ENDIF DMAFOPT 2055 IFD RTCOPT 2056 FCC 'T' 2057 FDB TIMSET 2058 ENDIF RTCOPT 2058 ENDIF RTCOPT 2059 * 2060 FDA3 TABEND EQU * 2061 * 2062 * ** 6809 VECTOR ADDRESSES ** 2063 * 2064 * FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES 2065 * FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY 2066 * ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE 2067 * RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO 2068 * HIS OWN ROUTINES IF HE SO DESIRES. 2069 * 2070 * 2071 FDA3 F9 94 RAMVEC FDB SWIE USER-V 2072 FDA5 F8 A7 FDB RTI SWI3-V 2073 FDA7 F8 A7 FDB RTI SWI2-V 2074 FDA9 F8 A7 FDB RTI FIRQ-V 2075 FDAB F8 A7 FDB RTI IRQ-V 2076 FDAD F9 94 FDB SWIE SWI-V 2077 FDAF FF FF FDB $FFFF SVC-VO 2078 FDB1 FF FF FDB $FFFF SVC-VL 2079 * 2080 * PRINTABLE MESSAGE STRINGS 2081 * 2082 FDB3 0D 0A 00 00 00 MSG1 FCB $D,$A,$0,$0,$0 * 0, CR/LF, 0 2083 FDB8 53 59 53 30 39 42 FCC 'SYS09BUG 1.2 FOR ' 55 47 20 31 2E 32 d2304 18 a2321 14 2084 IFD FPGAOPT` 2085 FCC 'FPGA ' 2086 ENDIF FPGAOPT 2086 ENDIF FPGAOPT 2087 IFD ADSOPT 2088 FCC 'ADS6809 ' 2089 ENDIF ADSOPT 2089 ENDIF ADSOPT 2090 IFD SWTPOPT` 2091 FDC9 53 57 54 50 43 20 FCC 'SWTPC ' 2092 ENDIF SWTPOPT 2093 FDCF 20 2D 20 FCC ' - ' 2094 FDD2 04 FCB 4 2095 FDD3 4B 0D 0A 00 00 00 MSG2 FCB 'K,$D,$A,$00,$00,$00,$04 K, * CR/LF + 3 NULS d2323 25 a2347 25 2096 FDDA 3E MSG3 FCC '>' 2097 FDDB 04 FCB 4 2098 FDDC 57 48 41 54 3F MSG4 FCC 'WHAT?' 2099 FDE1 04 FCB 4 2100 FDE2 20 2D 20 MSG5 FCC ' - ' 2101 FDE5 04 FCB 4' 2102 FDE6 20 20 53 50 3D MSG10 FCC ' SP=' 2103 FDEB 04 FCB 4 2104 FDEC 20 20 50 43 3D MSG11 FCC ' PC=' 2105 FDF1 04 FCB 4 2106 FDF2 20 20 55 53 3D MSG12 FCC ' US=' 2107 FDF7 04 FCB 4 2108 FDF8 20 20 49 59 3D MSG13 FCC ' IY=' 2109 FDFD 04 FCB 4 2110 FDFE 20 20 49 58 3D MSG14 FCC ' IX=' 2111 FE03 04 FCB 4 2112 FE04 20 20 44 50 3D MSG15 FCC ' DP=' 2113 FE09 04 FCB 4 2114 FE0A 20 20 41 3D MSG16 FCC ' A=' 2115 FE0E 04 FCB 4 2116 FE0F 20 20 42 3D MSG17 FCC ' B=' 2117 FE13 04 FCB 4 2118 FE14 20 20 43 43 3A 20 MSG18 FCC ' CC: ' 2119 FE1A 04 FCB 4 2120 FE1B 45 46 48 49 4E 5A MSG19 FCC 'EFHINZVC' d2349 3 a2351 190 2121 FE23 53 31 MSG20 FCC 'S1' 2122 FE25 04 FCB 4 2123 IFD DATOPT 2124 * 2125 * POWER UP/ RESET/ NMI ENTRY POINT 2126 * 2127 FF00 ORG $FF00 2128 * 2129 * 2130 FF00 8E FF F0 START LDX #IC11 POINT TO DAT RAM IC11 2131 FF03 86 0F LDA #$F GET COMPLIMENT OF ZERO 2132 * 2133 * 2134 * INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F 2135 * OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS 2136 * IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE 2137 * OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA 2138 * STORED IN IT. 2139 * 2140 * 2141 FF05 A7 80 DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION 2142 FF07 4A DECA GET COMP. VALUE FOR NEXT LOCATION 2143 FF08 26 FB BNE DATLP ALL 16 LOCATIONS INITIALIZED ? 2144 * 2145 * NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER 2146 * ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL 2147 * PHYSICAL ADDRESSES. 2148 * 2149 FF0A 86 F0 LDA #$F0 2150 FF0C A7 84 STA ,X STORE $F0 AT $FFFF 2151 FF0E 8E D0 A0 LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF 2152 FF11 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y" 2153 FF15 EE 84 TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION 2154 FF17 10 AF 84 STY ,X STORE TEST PATTERN AT $D0A0 2155 FF1A 10 AC 84 CMPY ,X IS THERE RAM AT THIS LOCATION ? 2156 FF1D 27 0B BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP 2157 FF1F 30 89 F0 00 LEAX -$1000,X ELSE POINT 4K LOWER 2158 FF23 8C F0 A0 CMPX #$F0A0 DECREMENTED PAST ZER0 YET ? 2159 FF26 26 ED BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM 2160 FF28 20 D6 BRA START ELSE START ALL OVER AGAIN 2161 * 2162 * 2163 * THE FOLLOWING CODE STORES THE COMPLEMENT OF 2164 * THE MS CHARACTER OF THE FOUR CHARACTER HEX 2165 * ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED 2166 * BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT 2167 * IS STORED IN RAM IN THE LOCATION THAT IS 2168 * ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---, 2169 * THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND 2170 * WHEN TESTING LOCATION $70A0, MEANING THERE 2171 * IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE 2172 * $8000-$DFFF, THEN THE COMPLEMENT OF THE 2173 * "7" IN THE $70A0 WILL BE STORED IN 2174 * THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS 2175 * AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND 2176 * BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE 2177 * 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE 2178 * RAM THAT IS PHYSICALLY ADDRESSED AT $7--- 2179 * WILL RESPOND AND APPEAR TO THE 6809 THAT IT 2180 * IS AT $D--- SINCE THAT IS THE ADDRESS THE 2181 * 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK 2182 * OF RAM RESPONDS. 2183 * 2184 * 2185 FF2A EF 84 CNVADR STU ,X RESTORE DATA AT TEST LOCATION 2186 FF2C 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D 2187 FF2E 43 COMA COMPLEMENT MSB OF THAT ADDRESS 2188 FF2F 44 LSRA PUT MS 4 BITS OF ADDRESS IN 2189 FF30 44 LSRA LOCATION D0-D3 TO ALLOW STORING 2190 FF31 44 LSRA IT IN THE DYNAMIC ADDRESS 2191 FF32 44 LSRA TRANSLATION RAM. 2192 FF33 B7 FF FD STA $FFFD STORE XLATION FACTOR IN DAT "D" 2193 * 2194 FF36 10 CE DF C0 LDS #STACK INITIALIZE STACK POINTER 2195 * 2196 * 2197 * THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES 2198 * OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK 2199 * OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS 2200 * IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION 2201 * TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF 2202 * THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO 2203 * RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---.... 2204 * 2205 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 2206 * 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- -- 2207 * 2208 * ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE 2209 * CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING.... 2210 * 2211 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 2212 * 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F0 2213 * 2214 * 2215 * HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF 2216 * HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL 2217 * ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK 2218 * PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT 2219 * IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C000 2220 * WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D000 2221 * RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE 2222 * MEMORY ADDRESSED AS FOLLOWS.... 2223 * 2224 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 2225 * 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- -- 2226 * 2227 * 2228 FF3A 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE 2229 FF3E A7 2D STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD 2230 FF40 6F 2E CLR 14,Y CLEAR $DFDE 2231 FF42 86 F0 LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ? 2232 FF44 A7 2F STA 15,Y STORE AT $DFDF 2233 FF46 86 0C LDA #$0C PRESET NUMBER OF BYTES TO CLEAR 2234 FF48 6F A6 CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD0 2235 FF4A 4A DECA SUB. 1 FROM BYTES LEFT TO CLEAR 2236 FF4B 2A FB BPL CLRLRT CONTINUE IF NOT DONE CLEARING 2237 FF4D 30 89 F0 00 FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM 2238 FF51 8C F0 A0 CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO 2239 FF54 27 22 BEQ FINTAB SKIP IF FINISHED 2240 FF56 EE 84 LDU ,X SAVE DATA AT CURRENT TEST LOCATION 2241 FF58 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG. 2242 FF5C 10 AF 84 STY ,X STORE TEST PATT. INTO RAM TEST LOC. 2243 FF5F 10 AC 84 CMPY ,X VERIFY RAM AT TEST LOCATION 2244 FF62 26 E9 BNE FNDRAM IF NO RAM GO LOOK 4K LOWER 2245 FF64 EF 84 STU ,X ELSE RESTORE DATA TO TEST LOCATION 2246 FF66 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE 2247 FF6A 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D 2248 FF6C 44 LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D3 2249 FF6D 44 LSRA TO ALLOW STORING IT IN THE DAT RAM. 2250 FF6E 44 LSRA 2251 FF6F 44 LSRA 2252 FF70 1F 89 TFR A,B SAVE OFFSET INTO LRARAM TABLE 2253 FF72 88 0F EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK 2254 FF74 A7 A5 STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE 2255 FF76 20 D5 BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK 2256 FF78 86 F1 FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ? 2257 FF7A 10 8E DF D0 LDY #LRARAM POINT TO LRARAM TABLE 2258 FF7E A7 2E STA 14,Y STORE $F1 AT $DFCE 2259 * 2260 * THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF 2261 * RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES 2262 * THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT 2263 * LOGICALLY RESPONDS TO THE ADDRESS $C---. 2264 * 2265 * 2266 FF80 86 0C LDA #$0C PRESET NUMBER HEX "C" 2267 FF82 E6 A6 FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE 2268 FF84 26 05 BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR. 2269 FF86 4A DECA ELSE POINT 4K LOWER 2270 FF87 2A F9 BPL FINDC GO TRY AGAIN 2271 FF89 20 14 BRA XFERTF 2272 FF8B 6F A6 FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND 2273 FF8D E7 2C STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C--- 2274 * 2275 * THE FOLLOWING CODE ADJUSTS THE TRANSLATION 2276 * FACTORS SUCH THAT ALL REMAINING RAM WILL 2277 * RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL 2278 * ADDRESSES FROM $0000 AND UP.... 2279 * 2280 FF8F 4F CLRA START AT ZERO 2281 FF90 1F 21 TFR Y,X START POINTER "X" START OF "LRARAM" TABLE. 2282 FF92 E6 A6 COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE 2283 FF94 27 04 BEQ PNTNXT IF IT'S ZER0 SKIP 2284 FF96 6F A6 CLR A,Y ELSE ERASE FROM TABLE 2285 FF98 E7 80 STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP 2286 FF9A 4C PNTNXT INCA GET OFFSET TO NEXT ENTRY 2287 FF9B 81 0C CMPA #$0C LAST ENTRY YET ? 2288 FF9D 2D F3 BLT COMPRS 2289 * 2290 * THE FOLLOWING CODE TRANSFER THE TRANSLATION 2291 * FACTORS FROM THE LRARAM TABLE TO IC11 ON 2292 * THE MP-09 CPU CARD. 2293 * 2294 FF9F 8E FF F0 XFERTF LDX #IC11 POINT TO DAT RAM IC11 2295 FFA2 C6 10 LDB #$10 GET NO. OF BYTES TO MOVE 2296 FFA4 A6 A0 FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT 2297 FFA6 A7 80 STA ,X+ POKE XLATION FACTOR IN IC11 2298 FFA8 5A DECB SUB 1 FROM BYTES TO MOVE 2299 FFA9 26 F9 BNE FETCH CONTINUE UNTIL 16 MOVED 2300 * 2301 ELSE 2302 LRA RTS 2303 START LDS #STACK INITIALIZE STACK POINTER 2304 CLRB 2305 ENDIF DATOPT 2305 ENDIF DATOPT 2306 * 2307 FFAB 53 COMB SET "B" NON-ZERO 2308 FFAC F7 DF E2 STB ECHO TURN ON ECHO FLAG 2309 FFAF 16 F8 62 LBRA MONITOR INITIALIZATION IS COMPLETE d2353 7 a2359 7 2311 ** INTERRUPT JUMP VECTORS 2312 * 2313 FFB2 6E 9F DF C0 V1 JMP [STACK] 2314 FFB6 6E 9F DF C4 V2 JMP [SWI2] 2315 FFBA 6E 9F DF C6 V3 JMP [FIRQ] 2316 FFBE 6E 9F DF C8 V4 JMP [IRQ] 2317 FFC2 6E 9F DF CA V5 JMP [SWI] d2361 222 a2582 35 2319 * SWI3 ENTRY POINT 2320 * 2321 FFC6 1F 43 SWI3E TFR S,U 2322 FFC8 AE 4A LDX 10,U *$FFC8 2323 FFCA E6 80 LDB ,X+ 2324 FFCC AF 4A STX 10,U 2325 FFCE 4F CLRA 2326 FFCF 58 ASLB 2327 FFD0 49 ROLA 2328 FFD1 BE DF CC LDX SVCVO 2329 FFD4 8C FF FF CMPX #$FFFF 2330 FFD7 27 0F BEQ SWI3Z 2331 FFD9 30 8B LEAX D,X 2332 FFDB BC DF CE CMPX SVCVL 2333 FFDE 22 08 BHI SWI3Z 2334 FFE0 34 10 PSHS X 2335 FFE2 EC C4 LDD ,U 2336 FFE4 AE 44 LDX 4,U 2337 FFE6 6E F1 JMP [,S++] 2338 FFE8 37 1F SWI3Z PULU A,B,X,CC,DP 2339 FFEA EE 42 LDU 2,U 2340 FFEC 6E 9F DF C2 JMP [SWI3] 2341 * 2342 * 6809 VECTORS 2343 * 2344 FFF0 ORG $FFF0 2345 FFF0 FF B2 FDB V1 USER-V 2346 FFF2 FF C6 FDB SWI3E SWI3-V 2347 FFF4 FF B6 FDB V2 SWI2-V 2348 FFF6 FF BA FDB V3 FIRQ-V 2349 FFF8 FF BE FDB V4 IRQ-V 2350 FFFA FF C2 FDB V5 SWI-V 2351 FFFC FF B2 FDB V1 NMI-V 2352 FFFE FF 00 FDB START RESTART-V 2353 END START @