URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [sys09bug/] [sys09b5x.lst] - Rev 201
Go to most recent revision | Compare with Previous | Blame | View Log
Assembler release DWC_2.0 version 2.11May 6, 2004 (c) Motorola (free ware)0001 NAM SYS09BUG FOR THE B5-X3000000 INCLUDE "opt_b5x.txt"0001 *0002 ***************************************************0003 * OPTION SWITCHES0004 ***************************************************0005 *0006 *0007 ** THE CONTROL PORT CAN ONLY BE ONE OF THESE0008 ** NOTE THAT THE ACIA WILL ALWAYS BE PRESET0009 ** FOR LOADING AND SAVING S1 RECORDS0010 *0011 *S3EOPT EQU $FF SPARTAN3E STARTER0012 *S3SOPT EQU $FF SPARTAN3 STARTER FPGA VIDEO & PS2 KEYBOARD0013 00FF B5XOPT EQU $FF B5-X300 FPGA VIDEO & PS2 KEYBOARD0014 *XESOPT EQU $FF XESS XSA-3S100 & XST-3.00015 *ADSOPT EQU $FF ADS6809 & DG640 VIDEO DISPAY0016 *SWTOPT EQU $FF SWTP ACIA SERIAL CONTROL PORT0017 *0002 END0000 INCLUDE "sys09equ.txt"0001 *0002 ***************************************************0003 * MEMORY MAP EQUATES *0004 ***************************************************0005 E000 MONIO EQU $E000 I/O SPACE0006 IFD S3EOPT0007 MONRAM EQU $7FC00008 ELSE0009 DFC0 MONRAM EQU $DFC0 STACK SPACE0010 ENDIF S3EOPT0011 F800 MONROM EQU $F800 START OF ROM0012 IFD S3SOPT0013 MONEXT EQU $F000 START OF EXTENDED COMMANDS0014 EXTCMD EQU $00 EXTENDED OFFSET0015 ENDIF S3SOPT0015 ENDIF S3SOPT0016 IFD XESOPT0017 MONEXT EQU $F000 START OF EXTENDED COMMANDS0018 EXTCMD EQU $00 EXTENDED OFFSET0019 ENDIF XESOPT0019 ENDIF XESOPT0020 ***************************************************00210022 IFD S3EOPT0023 *0024 * DIGILENT SPARTAN 3E STARTER0025 *0026 ACIAOPT EQU $FF ACIA AT PORT 00027 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200028 VDUOPT EQU $FF VDU AT $E0300029 TRAOPT EQU $FF PIA TRACE TIMER0030 ENDIF S3EOPT0030 ENDIF S3EOPT0031 *0032 IFD S3SOPT0033 *0034 * DIGILENT SPARTAN 3 STARTER0035 *0036 ACIAOPT EQU $FF ACIA AT PORT 00037 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200038 VDUOPT EQU $FF VDU AT $E0300039 CF8OPT EQU $FF COMPACT FLASH AT $E0400040 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0041 EXTOPT EQU $FF EXTENDED COMMANDS0042 ENDIF S3SOPT0042 ENDIF S3SOPT0043 *0044 IFD B5XOPT0045 *0046 * BURCHED B5-X3000047 *0048 00FF ACIAOPT EQU $FF ACIA AT PORT 00049 00FF PS2OPT EQU $FF PS2 KEYBOARD AT $E0200050 00FF VDUOPT EQU $FF VDU AT $E0300051 00FF CF8OPT EQU $FF COMPACT FLASH AT $E0400052 00FF DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0053 ENDIF B5XOPT0054 *0055 IFD XESOPT0056 *0057 * XESS XSA-3S1000 & XST-3.00058 *0059 ACIAOPT EQU $FF ACIA AT PORT 00060 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200061 VDUOPT EQU $FF VDU AT $E0300062 IDEOPT EQU $FF XESS IDE AT $E1000063 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0064 EXTOPT EQU $FF EXTENDED COMMANDS0065 ENDIF XESOPT0065 ENDIF XESOPT0066 *0067 IFD ADSOPT0068 *0069 * ACKERMAN DIGITAL ADS68090070 *0071 DG640OPT EQU $FF DG640 VDU AT $E8000072 *RTCOPT EQU $FF REAL TIME CLOCK0073 PRTOPT EQU $FF PRINTER DRIVERS0074 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT0075 ENDIF ADSOPT0075 ENDIF ADSOPT0076 *0077 IFD SWTOPT0078 *0079 * SOUTH WEST TECHNICAL PRODUCTS COMPUTER0080 *0081 ACIAOPT EQU $FF ACIA AT PORT 00082 DMAFOPT EQU $FF DMAF2 8" FLOPPY DISK BOOT0083 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT0084 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0085 ENDIF0085 ENDIF0086 *0087 IFD ACIAOPT0088 *0089 ***************************************************0090 * SERIAL PORT *0091 ***************************************************0092 *0093 ** ACIA SITS ON PORT 00094 *0095 E000 ACIAS EQU MONIO+$00 CONTROL PORT0096 *0097 ENDIF ACIAOPT0098 IFD MFDCOPT0099 *0100 ***************************************************0101 * MINIFLOPPY DRIVE *0102 ***************************************************0103 *0104 ** FLOPPY DISK CONTROLLER SITS ON PORT 10105 *0106 DRVFDC EQU MONIO+$140107 CMDFDC EQU MONIO+$180108 SECFDC EQU MONIO+$1A0109 DATFDC EQU MONIO+$1B0110 ENDIF MFDCOPT0110 ENDIF MFDCOPT0111 IFD PS2OPT0112 *0113 ***************************************************0114 * VDU8 PS/2 KEYBOARD PORT *0115 ***************************************************0116 *0117 ** KEYBOARD SITS ON PORT 20118 *0119 E020 PS2KBD EQU MONIO+$20 PS/2 KEYBOARD PORT0120 ENDIF PS2OPT0121 IFD VDUOPT0122 *0123 ***************************************************0124 * VDU8 DISPLAY DRIVER EQUATES *0125 ***************************************************0126 *0127 ** VDU8 DISPLAY SITS ON PORT 30128 *0129 E030 VDU EQU MONIO+$300130 0000 VDUCHR EQU 0 CHARACTER REGISTER0131 0001 VDUATT EQU 1 ATTRIBUTE REGISTER0132 0002 VDUCOL EQU 2 CURSOR COLUMN0133 0003 VDUROW EQU 3 CURSOR ROW0134 0004 VDUOFF EQU 4 ROW OFFSET0135 *0136 0050 LINLEN EQU 80 LENGTH OF A LINE0137 0019 NUMLIN EQU 25 NUMBER OF LINES0138 ENDIF VDUOPT0139 *0140 IFD CF8OPT0141 *0142 ***************************************************0143 * COMPACT FLASH EQUATES 8 BIT TRANSFER *0144 ***************************************************0145 *0146 ** COMPACT FLASH SITS AT PORT 40147 *0148 E040 CF_BASE EQU MONIO+$400149 E040 CF_DATA EQU CF_BASE+00150 E041 CF_ERROR EQU CF_BASE+1 ; read error0151 E041 CF_FEATURE EQU CF_BASE+1 ; write feature0152 E042 CF_SECCNT EQU CF_BASE+20153 E043 CF_SECNUM EQU CF_BASE+30154 E044 CF_CYLLO EQU CF_BASE+40155 E045 CF_CYLHI EQU CF_BASE+50156 E046 CF_HEAD EQU CF_BASE+60157 E047 CF_STATUS EQU CF_BASE+7 ; read status0158 E047 CF_COMAND EQU CF_BASE+7 ; write command0159 *0160 * Command Equates0161 *0162 0020 CMDREAD EQU $20 ; Read Single sector0163 0030 CMDWRITE EQU $30 ; Write Single sector0164 00EF CMDFEATURE EQU $EF0165 0001 FEAT8BIT EQU $01 ; enable 8 bit transfers0166 00E0 HEADLBA EQU $E00167 *0168 * Status bit equates0169 *0170 0080 BUSY EQU $800171 0040 DRDY EQU $400172 0008 DRQ EQU $080173 0001 ERR EQU $010174 *0175 ENDIF CF8OPT0176 *0177 IFD IDEOPT0178 *0179 ***************************************************0180 * COMPACT FLASH EQUATES 16 BIT TRANSFER (XESS) *0181 ***************************************************0182 *0183 ** COMPACT FLASH SITS AT PORT 40184 *0185 CF_BASE EQU MONIO+$01000186 CF_DATA EQU CF_BASE+00187 CF_ERROR EQU CF_BASE+2 ; read error0188 CF_FEATURE EQU CF_BASE+2 ; write feature0189 CF_SECCNT EQU CF_BASE+40190 CF_SECNUM EQU CF_BASE+60191 CF_CYLLO EQU CF_BASE+80192 CF_CYLHI EQU CF_BASE+100193 CF_HEAD EQU CF_BASE+120194 CF_STATUS EQU CF_BASE+14 ; read status0195 CF_COMAND EQU CF_BASE+14 ; write command0196 CF_AUX EQU CF_BASE+300197 *0198 * Command Equates0199 *0200 CMDREAD EQU $20 ; Read Single sector0201 CMDWRITE EQU $30 ; Write Single sector0202 AUXRESET EQU $06 ; Reset IDE0203 AUXRSTREL EQU $02 ; Reset release IRQ masked0204 HEADLBA EQU $E00205 *0206 * Status bit equates0207 *0208 BUSY EQU $800209 DRDY EQU $400210 DRQ EQU $080211 ERR EQU $010212 *0213 ENDIF CF8OPT0213 ENDIF CF8OPT0214 *0215 IFD RTCOPT0216 *0217 **************************************************0218 * MM58167A REAL TIME CLOCK MEMORY MAP:0219 **************************************************0220 *0221 ** REAL TIME CLOCK SITS ON PORT 4 AND PORT 50222 *0223 CLOCK EQU MONIO+$40 CLOCK BASE ADDRESS AND REGISTERS0224 *0225 * COUNTER AND COMPARITOR REGISTERS:0226 *0227 * Both the Clock Counter and Clock Comparitor0228 * consist of 8 registers for holding the time.0229 * The register offsets from the Counter and0230 * Comparitor registers are listed above.0231 *0232 COUNTR EQU CLOCK+00233 CMPRAM EQU CLOCK+8 COMPARITOR REGISTERS0234 *0235 * CLOCK REGISTER OFFSETS:0236 * These register offsets are used for the CLOCK0237 * and comparitor ram CMPRAM.0238 *0239 S10000 EQU 0 TEN THOUNSANDTHS OF SECONDS0240 S100 EQU 1 HUNDRETHS AND TENTHS OF SECONDS0241 SECOND EQU 20242 MINUIT EQU 30243 HOUR EQU 40244 WKDAY EQU 50245 MTHDAY EQU 60246 MONTH EQU 70247 *0248 * INTERRUPT OUTPUT REGISTERS:0249 *0250 * An interrupt output may be generated at the0251 * following rates by setting the appropriate bit0252 * in the Interrupt Control Register (CINTCR).0253 * The Interrupt Status Register (CINTSR) must be0254 * read to clear the interrupt and will return0255 * the source of the interrupt.0256 *0257 * 1/Month Bit 70258 * 1/Week Bit 60259 * 1/Day Bit 50260 * 1/Hour Bit 40261 * 1/Minuite Bit 30262 * 1/Second Bit 20263 * 10/Second Bit 10264 * Comparitor Bit 00265 *0266 CINTSR EQU CLOCK+16 INTERRUPT STATUS REGISTER0267 CINTCR EQU CLOCK+17 INTERRUPT CONTROL REGISTER0268 *0269 * COUNTER AND RAM RESETS; GO COMMAND.0270 *0271 * The counter and comparitor may be reset0272 * by writing $FF into CTRRES and CMPRES0273 * respectivly.0274 * A write to the Go command register (GOCMND)0275 * will reset the 1/1000ths, 1/100ths and 1/10ths0276 * of a second counter.0277 *0278 CTRRES EQU CLOCK+18 COUNTER RESET0279 CMPRES EQU CLOCK+19 COMPARITOR RAM RESET0280 GOCMND EQU CLOCK+21 GO COMMAND0281 *0282 * CLOCK STATUS REGISTER.0283 *0284 * The counter takes 61 usec. to rollover for0285 * every 1KHz clock pulse. If the Status bit is0286 * set after reading the counter, the counter0287 * should be re-read to ensure the time is correct.0288 *0289 CLKSTA EQU CLOCK+20 STATUS BIT0290 SBYINT EQU CLOCK+22 STANDBY INTERRUPT0291 TSTMOD EQU CLOCK+31 TEST MODE REGISTER0292 ENDIF RTCOPT0292 ENDIF RTCOPT0293 *0294 IFD TRAOPT0295 *0296 **************************************************0297 * PIA INTERRUPT TIMER0298 **************************************************0299 *0300 ** PIA INTERRUPT TIMER SITS ON PORT 70301 *0302 ** PIA TIMER FOR SINGLE STEP / TRACE0303 *0304 * TADATA = Output = Timer preset register0305 * TACTRL - CA1 = input = rising edge = NMI0306 * - CA2 = Output = Timer Reset (Active High)0307 * TBDATA = Input = Timer read back register0308 * TBCTRL - CB1 = input = rising edge = FIRQ0309 * - CB2 = output = strobe low on write to TBDATA = Timer Preset0310 *0311 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB0312 * CRA1 = 1 CA1 Rising edge IRQ0313 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register0314 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 10315 * CRA4 = 1 ] CA2 = Set/Reset output0316 * CRA5 = 1 ]0317 * CRA6 = X CA2 Input Interrupt Flag0318 * CRA7 = X CA1 Interrupt Flag0319 *0320 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB0321 * CRB1 = 1 CB1 Rising edge IRQ0322 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register0323 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 10324 * CRB4 = 1 ] CB2 = Set/Reset output0325 * CRB5 = 1 ]0326 * CRB6 = X CB2 Input Interrupt Flag0327 * CRB7 = X CB1 Interrupt Flag0328 *0329 * DDRA = 0 TADATA = Input, DDRA = 1 TADATA = Output0330 * DDRB = 0 TBDATA = Input, DDRB = 1 TBDATA = Output0331 *0332 TADATA EQU MONIO+$70 Timer preset port0333 TACTRL EQU MONIO+$710334 TBDATA EQU MONIO+$72 Timer read back port0335 TBCTRL EQU MONIO+$730336 *0337 TRADEL EQU 13 Number of E cycles for RTI (May need to be fudged)0338 *0339 ENDIF TRAOPT0339 ENDIF TRAOPT0340 IFD ADSOPT0341 *0342 ***************************************************0343 * SERIAL PORT FOR DG640 *0344 ***************************************************0345 *0346 ** SET UP FOR ACKERMAN DIGITAL ADS68090347 ** THE ADS6809 S100 BOAD HAS AN ON BOARD ACIA0348 *0349 ACIAS EQU MONIO+$400 CONTROL PORT0350 *0351 ENDIF ADSOPT0351 ENDIF ADSOPT0352 IFD PRTOPT0353 *0354 ***************************************************0355 * PRINTER INTERFACE *0356 ***************************************************0357 *0358 PADATA EQU MONIO+$4040359 PACTRL EQU MONIO+$4050360 PBDATA EQU MONIO+$4060361 PBCTRL EQU MONIO+$4070362 *0363 ** CB1 ACK. I/P0364 ** CB2 STB. O/P0365 ** PB0 - PB7 DATA 1 - 8 O/P0366 ** PORT A BIT ASSIGNMENT0367 *0368 PBUSY EQU $80 I/P0369 PEMPTY EQU $40 I/P0370 SELECT EQU $20 I/P0371 PERROR EQU $10 I/P0372 PRESET EQU %00000100 O/P PA3 = 00373 AUTOFD EQU %00001000 O/P PA2 = 00374 DIRMSK EQU %000011000375 ENDIF PRTOPT0375 ENDIF PRTOPT0376 IFD DG640OPT0377 *0378 ***************************************************0379 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES *0380 ***************************************************0381 *0382 ** VIDEO DISPLAY DEFINITIONS0383 *0384 SCREEN EQU MONIO+$0800 START OF SCREEN MEMORY0385 LINLEN EQU 64 LENGTH OF A LINE0386 NUMLIN EQU 16 NUMBER OF LINES0387 SCNLEN EQU $400 LENGTH OF SCREEN0388 ENDIF DG640OPT0388 ENDIF DG640OPT0389 *0390 IFD DMAFOPT0391 *0392 ***************************************************0393 * DMAF2 8" DRIVE *0394 ***************************************************0395 *0396 ADDREG EQU $F000 ADDRESS REGISTER0397 CNTREG EQU $F002 COUNT REGISTER0398 CCREG EQU $F010 CHANNEL CONTROL REGISTER0399 PRIREG EQU $F014 DMA PRIORITY REGISTER0400 AAAREG EQU $F015 ???0401 BBBREG EQU $F016 ???0402 COMREG EQU $F020 1791 COMMAND REGISTER0403 SECREG EQU $F022 SECTOR REGISTER0404 DRVREG EQU $F024 DRIVE SELECT LATCH0405 CCCREG EQU $F040 ???0406 ENDIF DMAFOPT0406 ENDIF DMAFOPT0407 IFD DATOPT0408 **************************************************0409 * DYNAMIC ADDRESS TRANSLATION REGISTERS *0410 **************************************************0411 *0412 FFF0 IC11 EQU $FFF0 DAT RAM CHIP0413 55AA TSTPAT EQU $55AA TEST PATTERN0414 ENDIF DATOPT0415 *0003 END0000 INCLUDE "sys09bug.txt"0001 * NAM SYS09BUG12 SYSTEM09 MONITOR0002 OPT lsys09bug.txt page 20004 *0005 * MONITOR PROGRAM FOR THE SOUTHWEST TECHNICAL0006 * PRODUCTS MP-09 CPU BOARD AS COMMENTED BY....0007 *0008 * ALLEN CLARK WALLACE WATSON0009 * 2502 REGAL OAKS LANE 4815 EAST 97th AVE.0010 * LUTZ, FLA. 33549 TEMPLE TERRACE, FLA. 336170011 * PH. 813-977-0347 PH. 813-985-13590012 *0013 * MODIFIED TO SBUG09 VER 1.8 BY: RANDY JARRETT0014 * 2561 NANTUCKET DR APT. E0015 * ATLANTA, GA 303450016 * PH. 404-320-10430017 *0018 * MODIFIED TO SYS09BUG VER 1.00019 * FOR: SYSTEM09 FPGA SYSTEM0020 * BY: JOHN KENT0021 * DATE: 21ST NOVEMBER 20060022 * REMOVED: DISK BOOTS0023 * MEMORY TEST0024 * ADDED: ADM3A VDU DRIVER0025 *0026 * MODIFIED TO SYS09BUG VER 1.10027 * FOR: SYSTEM09 FPGA SYSTEM0028 * BY: JOHN KENT0029 * DATE: 7TH JANUARY 20070030 * ADDED: 'U' USER EXTENTION COMMANDS AT $F0000031 * CONDITIONAL ASSEMBLY OF FLOPPY BOOTS0032 * AND REALTIME CLOCK0033 *0034 * MODIFIED TO SYS09BUG VER 1.20035 * FOR: SYSTEM09 FPGA SYSTEM0036 * BY: JOHN KENT0037 * DATE: 21ST MAY 20070038 * ADDED: COMPACT FLASH BOOT TO FPGA VERSION0039 * REMOVED PORT REDIRECTION ON PUNCH & LOAD0040 *0041 * Modified to SYS09BUG VER 1.30042 * FOR: SYSTEM09 FPGA SYSTEM0043 * BY: JOHN KENT0044 * DATE: 8TH JAN 20080045 * ADDED: CONDITIONALS FOR SPARTAN3E STARTER BOARD0046 * WITH ONLY 32K OF RAM0047 *0048 * Modified to SYS09BUG VER 1.40049 * FOR: SYSTEM09 FPGA SYSTEM0050 * BY: JOHN KENT0051 * DATE: 3RD FEB 20080052 * ADDED: CONDITIONALS FOR XESS BOARD WITH IDE0053 * SEPERATE CONDITIONAL FOR S3 STARTER AND B5-X3000054 * 16 BIT IDE DISK BOOT STRAP ROUTINE0055 * CHANGED: SEPARARTED OPTIONS EQUATES AND BODY INTO SEPARATE FILES0056 *0057 * *** COMMANDS ***0058 *0059 * CONTROL A = ALTER THE "A" ACCUMULATOR0060 * CONTROL B = ALTER THE "B" ACCUMULATOR0061 * CONTROL C = ALTER THE CONDITION CODE REGISTER0062 * CONTROL D = ALTER THE DIRECT PAGE REGISTER0063 * CONTROL P = ALTER THE PROGRAM COUNTER0064 * CONTROL U = ALTER USER STACK POINTER0065 * CONTROL X = ALTER "X" INDEX REGISTER0066 * CONTROL Y = ALTER "Y" INDEX REGISTER0067 * B hhhh = SET BREAKPOINT AT LOCATION $hhhh0068 * D = 5.25" MINIFLOPPY BOOT0069 * E ssss-eeee = EXAMINE MEMORY0070 * FROM STARTING ADDRESS ssss0071 * TO ENDING ADDRESS eeee.0072 * G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI0073 * L = LOAD TAPE0074 * M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh0075 * P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR.0076 * R = DISPLAY REGISTER CONTENTS0077 * S = DISPLAY STACK FROM ssss TO $DFC00078 * U = 8" DMAF2 FLOPPY BOOT0079 * U = USER EXTENSION COMMANDS AT $F0000080 * X = REMOVE ALL BREAKPOINTS0081 *0082 *0083 ***************************************************0084 * SYS09BUG VARIABLE SPACE0085 ***************************************************0086 *0087 DFC0 ORG MONRAM0088 DFC0 STACK EQU * TOP OF INTERNAL STACK0089 DFC0 NMI RMB 2 USER NMI VECTOR0090 DFC2 SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #30091 DFC4 SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #20092 DFC6 FIRQ RMB 2 FAST INTERRUPT VECTOR0093 DFC8 IRQ RMB 2 INTERRUPT VECTOR0094 DFCA SWI RMB 2 SOFTWARE INTERRUPT VECTOR0095 DFCC SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN0096 DFCE SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT0097 IFD DATOPT0098 DFD0 LRARAM RMB 16 LRA ADDRESSES0099 ENDIF DATOPT0100 DFE0 CPORT RMB 2 RE-VECTORABLE CONTROL PORT0101 DFE2 ECHO RMB 1 ECHO FLAG0102 DFE3 BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR0103 IFD TRAOPT0104 NMISAV RMB 2 NMI Jump Vector Backup0105 TRACNT RMB 2 Trace Count0106 ENDIF TRAOPT0106 ENDIF TRAOPT0107 IFD VDUOPT0108 *0109 **************************************************0110 * VDU8 DISPLAY DRIVER VARIABLES *0111 **************************************************0112 *0113 **** ALWAYS KEEP COLADX AND ROWADX TOGETHER ******0114 DFFB COLADX RMB 1 CURSOR COLUMN0115 DFFC ROWADX RMB 1 CURSOR ROW0116 **************************************************0117 *0118 DFFD NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE0119 DFFE ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE0120 ENDIF VDUOPT0121 IFD DG640OPT0122 *0123 ***************************************************0124 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES *0125 ***************************************************0126 *0127 ***** ALWAYS KEEP THESE TWO BYTES TOGETHER *****0128 COLADX RMB 1 CURSOR COLUMN0129 ROWADX RMB 1 CURSOR ROW0130 *************************************************0131 CURSOR RMB 2 ABSOLUTE SCREEN ADDRESS0132 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE0133 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE0134 ENDIF DG640OPT0134 ENDIF DG640OPT0135 *0136 *0137 ***************************************************0138 * START OF ROM *0139 ***************************************************0140 *0141 F800 ORG MONROM0142 F800 F8 14 FDB MONITOR0143 F802 F8 61 FDB NEXTCMD0144 F804 FC 9D FDB INCH0145 F806 FC 97 FDB INCHE0146 F808 FC B5 FDB INCHEK0147 F80A FC CA FDB OUTCH0148 F80C FB 8F FDB PDATA0149 F80E FB 1E FDB PCRLF0150 F810 FB 1A FDB PSTRNG0151 F812 FA 2E FDB LRA0152 *0153 IFD ADSOPT0154 FDB PCHK CHECK FOR PRINTER INPUT0155 FDB PINIZ INITIATE PRINTER0156 FDB POUTCH OUTPUT CH. TO PRINTER0157 FDB VINIZ0158 FDB VOUTCH0159 FDB ACINIZ0160 FDB AOUTCH0161 ENDIF ADSOPT0161 ENDIF ADSOPT0162 *0163 * MONITOR0164 *0165 * VECTOR ADDRESS STRING IS.....0166 * $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF0167 *0168 F814 8E FE 6D MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING0169 F817 10 8E DF C0 LDY #STACK POINT TO RAM VECTOR LOCATION0170 F81B C6 10 LDB #$10 BYTES TO MOVE = 160171 F81D A6 80 LOOPA LDA ,X+ GET VECTOR BYTE0172 F81F A7 A0 STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF0173 F821 5A DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE0174 F822 26 F9 BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED0175 *0176 * CONTENTS FROM TO FUNCTION0177 * $F8A1 $FE40 $DFC0 USER-V0178 * $F8A1 $FE42 $DFC2 SWI3-V0179 * $F8A1 $FE44 $DFC4 SWI2-V0180 * $F8A1 $FE46 $DFC6 FIRQ-V0181 * $F8A1 $FE48 $DFC8 IRQ-V0182 * $FAB0 $FE4A $DFCA SWI-V0183 * $FFFF $FE4C $DFCC SVC-VO0184 * $FFFF $FE4E $DFCE SVC-VL0185 *0186 F824 8E E0 00 LDX #ACIAS0187 F827 BF DF E0 STX CPORT STORE ADDR. IN RAM0188 F82A 17 01 5B LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS0189 F82D C6 0C LDB #12 CLEAR 12 BYTES ON STACK0190 F82F 6F E2 CLRSTK CLR ,-S0191 F831 5A DECB0192 F832 26 FB BNE CLRSTK0193 F834 30 8C DD LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY0194 F837 AF 6A STX 10,S ON STACK0195 F839 86 D0 LDA #$D0 PRESET CONDITION CODES ON STACK0196 F83B A7 E4 STA ,S0197 F83D 1F 43 TFR S,U0198 F83F 17 04 9B LBSR IOINIZ INITIALIZE CONTROL PORT0199 F842 8E FE 7D LDX #MSG1 POINT TO MONITOR MESSAGE0200 F845 17 03 47 LBSR PDATA PRINT MSG0201 *0202 IFD DATOPT0203 F848 8E DF D0 LDX #LRARAM POINT TO LRA RAM STORAGE AREA0204 F84B 4F CLRA START TOTAL AT ZERO0205 F84C C6 0D LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY0206 F84E 6D 85 FNDREL TST B,X TEST FOR RAM AT NEXT LOC.0207 F850 27 03 BEQ RELPAS IF NO RAM GO TO NEXT LOC.0208 F852 8B 04 ADDA #4 ELSE ADD 4K TO TOTAL0209 F854 19 DAA ADJ. TOTAL FOR DECIMAL0210 F855 5A RELPAS DECB SUB. 1 FROM LOCS. TO TEST0211 F856 2A F6 BPL FNDREL PRINT TOTAL OF RAM0212 F858 17 04 0C LBSR OUT2H OUTPUT HEX BYTE AS ASCII0213 F85B 8E FE 9F LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS0214 F85E 17 03 2E LBSR PDATA PRINT MSG0215 ENDIF DATOPT0216 *0217 IFD TRAOPT0218 LBSR TRAINZ0219 ENDIF TRAOPT0219 ENDIF TRAOPT0220 *0221 ***** NEXTCMD *****0222 *0223 F861 8E FE A6 NEXTCMD LDX #MSG3 POINT TO MSG ">"0224 F864 17 02 B3 LBSR PSTRNG PRINT MSG0225 F867 17 04 33 LBSR INCH GET ONE CHAR. FROM TERMINAL0226 F86A 84 7F ANDA #$7F STRIP PARITY FROM CHAR.0227 F86C 81 0D CMPA #$0D IS IT CARRIAGE RETURN ?0228 F86E 27 F1 BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR.0229 F870 1F 89 TFR A,B PUT CHAR. IN "B" ACCUM.0230 F872 81 20 CMPA #$20 IS IT CONTROL OR DATA CHAR ?0231 F874 2C 09 BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT0232 F876 86 5E LDA #'^ ELSE CNTRL CHAR CMD SO...0233 F878 17 04 4F LBSR OUTCH PRINT "^"0234 F87B 1F 98 TFR B,A RECALL CNTRL CMD CHAR0235 F87D 8B 40 ADDA #$40 CONVERT IT TO ASCII LETTER0236 F87F 17 04 48 PRTCMD LBSR OUTCH PRNT CMD CHAR0237 F882 17 04 43 LBSR OUT1S PRNT SPACE0238 F885 C1 60 CMPB #$600239 F887 2F 02 BLE NXTCH00240 F889 C0 20 SUBB #$200241 *0242 ***** DO TABLE LOOKUP *****0243 * FOR COMMAND FUNCTIONS0244 *0245 F88B 8E FE 37 NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE0246 F88E E1 80 NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ?0247 F890 27 0F BEQ JMPCMD BRANCH IF MATCH FOUND0248 F892 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE0249 F894 8C FE 6D CMPX #TABEND REACHED END OF TABLE YET ?0250 F897 26 F5 BNE NXTCHR IF NOT END, CHECK NEXT ENTRY0251 F899 8E FE A8 LDX #MSG4 POINT TO MSG "WHAT?"0252 F89C 17 02 F0 LBSR PDATA PRINT MSG0253 F89F 20 C0 BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD0254 F8A1 AD 94 JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE0255 F8A3 20 BC BRA NEXTCMD PROMPT FOR NEW COMMAND0256 *0257 * "G" GO OR CONTINUE0258 *0259 F8A5 1F 34 GO TFR U,S0260 F8A7 3B RTI RTI0261 *0262 ***** "M" MEMORY EXAMINE AND CHANGE *****0263 *0264 F8A8 17 03 6B MEMCHG LBSR IN1ADR INPUT ADDRESS0265 F8AB 29 2D BVS CHRTN IF NOT HEX, RETURN0266 F8AD 1F 12 TFR X,Y SAVE ADDR IN "Y"0267 F8AF 8E FE AE MEMC2 LDX #MSG5 POINT TO MSG " - "0268 F8B2 17 02 65 LBSR PSTRNG PRINT MSG0269 F8B5 1F 21 TFR Y,X FETCH ADDRESS0270 F8B7 17 03 A5 LBSR OUT4H PRINT ADDR IN HEX0271 F8BA 17 04 0B LBSR OUT1S OUTPUT SPACE0272 F8BD A6 A4 LDA ,Y GET CONTENTS OF CURRENT ADDR.0273 F8BF 17 03 A5 LBSR OUT2H OUTPUT CONTENTS IN ASCII0274 F8C2 17 04 03 LBSR OUT1S OUTPUT SPACE0275 F8C5 17 03 5E LBSR BYTE LOOP WAITING FOR OPERATOR INPUT0276 F8C8 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC.0277 F8CA 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)?0278 F8CC 27 E1 BEQ MEMC2 PROMPT OPERATOR AGAIN0279 F8CE 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)?0280 F8D0 27 DD BEQ MEMC2 PROMPT OPERATOR AGAIN0281 F8D2 81 5E CMPA #'^ IS IT AN UP ARROW?0282 F8D4 27 17 BEQ BACK DISPLAY PREVIOUS BYTE0283 F8D6 81 0D CMPA #$D IS IT A CR?0284 F8D8 26 0F BNE FORWRD DISPLAY NEXT BYTE0285 F8DA 39 CHRTN RTS EXIT ROUTINE0286 *0287 *0288 F8DB A7 A4 CHANGE STA ,Y CHANGE BYTE IN MEMORY0289 F8DD A1 A4 CMPA ,Y DID MEMORY BYTE CHANGE?0290 F8DF 27 08 BEQ FORWRD $F9720291 F8E1 17 03 E4 LBSR OUT1S OUTPUT SPACE0292 F8E4 86 3F LDA #'? LOAD QUESTION MARK0293 F8E6 17 03 E1 LBSR OUTCH PRINT IT0294 F8E9 31 21 FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION0295 F8EB 20 C2 BRA MEMC2 PRINT LOCATION & CONTENTS0296 F8ED 31 3F BACK LEAY -1,Y POINT TO LAST MEM LOCATION0297 F8EF 20 BE BRA MEMC2 PRINT LOCATION & CONTENTS0298 *0299 * "S" DISPLAY STACK0300 * HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM0301 ** CURRENT STACK POINTER TO INTERNAL STACK LIMIT.0302 *0303 F8F1 17 02 A2 DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER0304 F8F4 1F 32 TFR U,Y0305 F8F6 8E DF C0 LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT0306 F8F9 30 1F LEAX -1,X POINT TO CURRENT STACK0307 F8FB 20 05 BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS0308 *0309 * "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII0310 * AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG.0311 * UPPER ADDRESS IN X-REG.0312 * IF HEX ADDRESSES ARE INVALID (V)=1.0313 *0314 F8FD 17 03 0B MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES0315 F900 29 06 BVS EDPRTN NEW COMMAND IF ILLEGAL HEX0316 F902 34 20 MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS0317 F904 AC E1 CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS?0318 F906 24 01 BCC AJDUMP IF NOT, DUMP HEX AND ASCII0319 F908 39 EDPRTN RTS ;0320 *0321 * ADJUST LOWER AND UPPER ADDRESS LIMITS0322 * TO EVEN 16 BYTE BOUNDRIES.0323 *0324 * IF LOWER ADDR = $45320325 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530.0326 *0327 * IF UPPER ADDR = $45670328 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570.0329 *0330 * ENTER WITH LOWER ADDRESS IN X-REG.0331 * -UPPER ADDRESS ON TOP OF STACK.0332 *0333 F909 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG0334 F90B C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS0335 F90E C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY0336 F910 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT0337 F912 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG0338 F914 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY0339 F916 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT0340 F918 AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT0341 F91A 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP0342 F91C 17 03 96 LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD0343 F91F 27 03 BEQ EDUMP0344 F921 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING0345 F923 39 RTS ;0346 *0347 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS0348 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS.0349 *0350 F924 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK0351 F926 8E FE AE LDX #MSG5 POINT TO MSG " - "0352 F929 17 01 EE LBSR PSTRNG PRINT MSG0353 F92C AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK0354 F92E 17 03 2E LBSR OUT4H PRINT THE ADDRESS0355 F931 17 03 92 LBSR OUT2S 2 SPACES0356 F934 C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP0357 F936 A6 80 ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT0358 F938 17 03 2C LBSR OUT2H OUTPUT HEX BYTE AS ASCII0359 F93B 17 03 8A LBSR OUT1S OUTPUT SPACE0360 F93E 5A DECB $F9D1 DECREMENT BYTE COUNT0361 F93F 26 F5 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED0362 *0363 * PRINT 16 ASCII CHARACTERS0364 * IF NOT PRINTABLE OR NOT VALID0365 * ASCII PRINT A PERIOD (.)0366 F941 17 03 82 LBSR OUT2S 2 SPACES0367 F944 AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK0368 F946 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 160369 F948 A6 80 EDPASC LDA ,X+ GET CHARACTER FROM MEMORY0370 F94A 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE?0371 F94C 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD0372 F94E 81 7E CMPA #$7E IS IT VALID ASCII?0373 F950 23 02 BLS PRASC IF SO PRINT IT0374 F952 86 2E PERIOD LDA #'. LOAD A PERIOD (.)0375 F954 17 03 73 PRASC LBSR OUTCH PRINT ASCII CHARACTER0376 F957 5A DECB DECREMENT COUNT0377 F958 26 EE BNE EDPASC0378 F95A 20 BC BRA NXTLIN0379 *0380 ***** "B" SET BREAKPOINT *****0381 *0382 F95C 17 02 B7 BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS0383 F95F 29 1E BVS EXITBP EXIT IF INVALID HEX ADDR.0384 F961 8C DF C0 CMPX #STACK ADDRESS ILLEGAL IF >=$DFC00385 F964 24 1A BCC BPERR IF ERROR PRINT (?), EXIT0386 F966 34 10 PSHS X $FA82 PUSH BP ADDRESS ON STACK0387 F968 8E FF FF LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE0388 F96B 8D 55 BSR BPTEST TEST BP TABLE FOR FREE SPACE0389 F96D 35 10 PULS X POP BP ADDRESS FROM STACK0390 F96F 27 0F BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE0391 F971 A6 84 LDA ,X GET DATA AT BREAKPOINT ADDRESS0392 F973 81 3F CMPA #$3F IS IT A SWI?0393 F975 27 09 BEQ BPERR IF SWI ALREADY, INDICATE ERROR0394 F977 A7 A0 STA ,Y+ SAVE DATA BYTE IN BP TABLE0395 F979 AF A4 STX ,Y SAVE BP ADDRESS IN BP TABLE0396 F97B 86 3F LDA #$3F LOAD A SWI ($3F)0397 F97D A7 84 STA ,X SAVE SWI AT BREAKPOINT ADDRESS0398 F97F 39 EXITBP RTS ;0399 *0400 * INDICATE ERROR SETTING BREAKPOINT0401 *0402 F980 17 03 45 BPERR LBSR OUT1S OUTPUT SPACE0403 F983 86 3F LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR0404 F985 16 03 42 LBRA OUTCH PRINT "?"0405 *0406 *** "X" CLEAR OUTSTANDING BREAKPOINTS ***0407 *0408 F988 10 8E DF E3 XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE0409 F98C C6 08 LDB #8 LOAD BREAKPOINT COUNTER0410 F98E 8D 18 XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE0411 F990 5A DECB $FAAC DECREMENT BP COUNTER0412 F991 26 FB BNE XBPLP END OF BREAKPOINT TABLE?0413 F993 39 RTS0414 *0415 ***** SWI ENTRY POINT *****0416 *0417 F994 1F 43 SWIE TFR S,U TRANSFER STACK TO USER POINTER0418 F996 AE 4A LDX 10,U LOAD PC FROM STACK INTO X-REG0419 F998 30 1F LEAX -1,X ADJUST ADDR DOWN 1 BYTE.0420 F99A 8D 26 BSR BPTEST FIND BREAKPOINT IN BP TABLE0421 F99C 27 04 BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR0422 F99E AF 4A STX 10,U SAVE BREAKPOINT ADDR IN STACK0423 F9A0 8D 06 BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA0424 F9A2 17 02 48 REGPR LBSR REGSTR GO PRINT REGISTERS0425 *0426 IFD TRAOPT0427 LDX #00428 STX TRACNT0429 ENDIF TRAOPT0429 ENDIF TRAOPT0430 *0431 F9A5 16 FE B9 LBRA NEXTCMD GET NEXT COMMAND0432 *0433 F9A8 AE 21 RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE0434 F9AA 8C DF C0 CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY0435 F9AD 24 0A BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S0436 F9AF A6 84 LDA ,X GET DATA FROM BP ADDRESS0437 F9B1 81 3F CMPA #$3F IS IT SWI?0438 F9B3 26 04 BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S0439 F9B5 A6 A4 LDA ,Y GET ORIGINAL DATA FROM BP TABLE0440 F9B7 A7 84 STA ,X $FAD3 RESTORE DATA AT BP ADDRESS0441 F9B9 86 FF FFSTBL LDA #$FF LOAD $FF IN A-ACC0442 F9BB A7 A0 STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S0443 F9BD A7 A0 STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S0444 F9BF A7 A0 STA ,Y+0445 F9C1 39 RTS0446 *0447 ** SEARCH BREAKPOINT TABLE FOR MATCH **0448 *0449 F9C2 10 8E DF E3 BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE0450 F9C6 C6 08 LDB #8 LOAD BREAKPOINT COUNTER0451 F9C8 A6 A0 FNDBP LDA ,Y+ LOAD DATA BYTE0452 F9CA AC A1 CMPX ,Y++ COMPARE ADDRESS, IS IT SAME?0453 F9CC 27 04 BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY0454 F9CE 5A DECB IF NOT, DECREMENT BREAKPOINT COUNTER0455 F9CF 26 F7 BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH0456 F9D1 39 RTS ;0457 *0458 *0459 F9D2 31 3D BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY0460 F9D4 39 RTS0461 *0462 IFD TRAOPT0463 *0464 ** TRACE from address AAAA BB bytes0465 *0466 TRACE LBSR ALTPC1 SET UP NEW PC0467 BVS TREXIT ADDRESS ERROR, EXIT0468 LBSR OUT1S0469 LBSR IN1ADR Fetch Byte Count0470 BVS TREXIT Byte Count error, EXIT0471 STX TRACNT0472 *0473 LDX NMI Save NMI Vector0474 STX NMISAV0475 LDX #NMIE Set up NMI for Tracing0476 STX NMI0477 LBSR TRAINZ Initialise Hardware0478 BRA TRACEG Start Trace0479 TREXIT RTS0480 *0481 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB0482 * CRA1 = 1 CA1 Rising edge IRQ0483 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register0484 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 10485 * CRA4 = 1 ] CA2 = Set/Reset output0486 * CRA5 = 1 ]0487 * CRA6 = X CA2 Input Interrupt Flag0488 * CRA7 = X CA1 Interrupt Flag0489 *0490 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB0491 * CRB1 = 1 CB1 Rising edge IRQ0492 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register0493 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 10494 * CRB4 = 1 ] CB2 = Set/Reset output0495 * CRB5 = 1 ]0496 * CRB6 = X CB2 Input Interrupt Flag0497 * CRB7 = X CB1 Interrupt Flag0498 *0499 *0500 ** TRACE NMI ENTRY POINT0501 *0502 NMIE TFR S,U0503 LDA #$36 Disable Interrupt, CA2 Low0504 STA TACTRL0505 LDA TADATA Clear Interrupt flag by reading data port0506 *0507 LBSR REGSTR DUMP REGISTERS0508 *0509 LDX 10,U TEST IF NEXT INSTRUCTION IS A SWI0510 LDA ,X0511 CMPA #$3F0512 BEQ TRACEX EXIT ON SWI0513 *0514 LDX TRACNT CHECK IF TRACE COUNT EXPIRED0515 BEQ TRACEX YES, GO BACK TO THE MONITOR0516 LEAX -1,X DECREMENT TRACE COUNT0517 STX TRACNT0518 *0519 ** TRACE GO (RESUME SINGLE STEP)0520 *0521 TRACEG TFR U,S SET UP PROGRAM STACK POINTER0522 LDA #TRADEL SET UP TIMER DELAY (NUMB CYCLES FOR RTI+1)0523 STA TADATA0524 LDA #$36 LOAD STROBE LOW0525 STA TACTRL0526 LDA TADATA CLEAR INTERRUPT0527 LDA #$36 RELEASE RESET0528 STA TBCTRL0529 LDA #$3F RELEASE LOAD, ENABLE CA1 NMI, CA1 RISING EDGE0530 STA TACTRL0531 RTI GO EXECUTE INSTRUCTION0532 *0533 TRACEX LDX NMISAV Restore NMI vector0534 STX NMI0535 LBRA NEXTCMD Jump back to the command loop.0536 *0537 ** TRACE HARDWARE INITIALISATION0538 *0539 TRAINZ LDA #$32 SELECT DDRA, CA2 LOW, NMI DISABLED0540 STA TACTRL0541 LDA #$3A SELECT DDRB, CB2 HIGH, FIRQ DISABLED0542 STA TBCTRL0543 LDA #$FF PORTA = OUTPUT0544 STA TADATA0545 LDA #$00 PORTB = INPUT0546 STA TBDATA0547 LDA #$36 SELECT OUTPUT REGISTER A, CA2 LOW0548 STA TACTRL0549 LDA #$3E SELECT OUTPUT REGISTER B, CB2 HIGH0550 STA TBCTRL0551 RTS0552 *0553 ENDIF TRAOPT0553 ENDIF TRAOPT0554 IFD MFDCOPT0555 *0556 ** "U" MINI DISK BOOT0557 *0558 MINBOOT TST CMDFDC0559 CLR DRVFDC0560 LDX #$00000561 LOOP LEAX $01,X0562 CMPX #$00000563 BNE LOOP0564 LDA #$0F0565 STA CMDFDC0566 BSR DELAY0567 LOOP1 LDB CMDFDC0568 BITB #$010569 BNE LOOP10570 LDA #$010571 STA SECFDC0572 BSR DELAY0573 LDA #$8C0574 STA CMDFDC0575 BSR DELAY0576 LDX #$C0000577 BRA LOOP30578 LOOP2 BITB #$020579 BEQ LOOP30580 LDA DATFDC0581 STA ,X+0582 LOOP3 LDB CMDFDC0583 BITB #$010584 BNE LOOP20585 BITB #$2C0586 BEQ LOOP40587 RTS0588 *0589 LOOP4 LDX #$C0000590 STX $0A,U0591 TFR U,S0592 RTI0593 *0594 DELAY LDB #$040595 LOOP5 DECB0596 BNE LOOP50597 RTS0598 ENDIF MFDCOPT0598 ENDIF MFDCOPT0599 *0600 IFD DMAFOPT0601 *0602 *** "D" DISK BOOT FOR DMAF2 ***0603 *0604 DBOOT LDA #$DE0605 STA DRVREG0606 LDA #$FF0607 STA PRIREG $FAF80608 STA CCREG0609 STA AAAREG0610 STA BBBREG0611 TST CCREG0612 LDA #$D80613 STA COMREG0614 LBSR DLY0615 DBOOT0 LDA COMREG0616 BMI DBOOT00617 LDA #$090618 STA COMREG0619 LBSR DLY0620 *0621 DISKWT LDA COMREG FETCH DRIVE STATUS0622 BITA #1 TEST BUSY BIT0623 BNE DISKWT LOOP UNTIL NOT BUSY0624 *0625 BITA #$100626 BNE DBOOT0627 *0628 LDX #$C000 LOGICAL ADDR. = $C0000629 BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR.0630 ORA #$100631 STA CCCREG0632 TFR X,D0633 COMA ;0634 COMB ;0635 STD ADDREG0636 LDX #$FEFF LOAD DMA BYTE COUNT = $1000637 STX CNTREG STORE IN COUNT REGISTER0638 LDA #$FF LOAD THE CHANNEL REGISTER0639 STA CCREG0640 LDA #$FE SET CHANNEL 00641 STA PRIREG0642 LDA #1 SET SECTOR TO "1"0643 STA SECREG ISSUE COMMAND0644 LDA #$8C SET SINGLE SECTOR READ0645 STA COMREG ISSUE COMMAND0646 BSR DLY0647 *0648 * THE FOLLOWING CODE TESTS THE STATUS OF THE0649 * CHANNEL CONTROL REGISTER. IF "D7" IS NOT0650 * ZERO THEN IT WILL LOOP WAITING FOR "D7"0651 * TO GO TO ZERO. IF AFTER 65,536 TRIES IT0652 * IS STILL A ONE THE BOOT OPERATION WILL0653 * BE STARTED OVER FROM THE BEGINING.0654 *0655 CLRB ;0656 DBOOT1 PSHS B $FB550657 CLRB ;0658 DBOOT2 TST CCREG0659 BPL DBOOT30660 DECB ;0661 BNE DBOOT20662 PULS B0663 DECB0664 BNE DBOOT10665 BRA DBOOT0666 DBOOT3 PULS B0667 LDA COMREG0668 BITA #$1C0669 BEQ DBOOT40670 RTS ;0671 *0672 *0673 DBOOT4 LDB #$DE0674 STB DRVREG0675 LDX #$C0000676 STX 10,U0677 TFR U,S $FB7B0678 RTI ;0679 ENDIF DMAFOPT0679 ENDIF DMAFOPT0680 *0681 IFD CF8OPT0682 *0683 * COMPACT FLASH BOOT0684 *0685 F9D5 8D 40 CFBOOT BSR WAITRDY0686 F9D7 86 E0 LDA #HEADLBA0687 F9D9 B7 E0 46 STA CF_HEAD0688 F9DC 8D 39 BSR WAITRDY0689 F9DE 86 01 LDA #FEAT8BIT0690 F9E0 B7 E0 41 STA CF_FEATURE0691 F9E3 86 EF LDA #CMDFEATURE0692 F9E5 B7 E0 47 STA CF_COMAND0693 F9E8 8D 2D BSR WAITRDY0694 *0695 * READ SECTORS FROM CF0696 *0697 F9EA 86 01 CFREAD LDA #$010698 F9EC B7 E0 42 STA CF_SECCNT0699 F9EF 4F CLRA0700 F9F0 B7 E0 43 STA CF_SECNUM0701 F9F3 B7 E0 44 STA CF_CYLLO0702 F9F6 B7 E0 45 STA CF_CYLHI0703 *0704 F9F9 86 20 LDA #CMDREAD ; IDE READ MULTIPLE0705 F9FB B7 E0 47 STA CF_COMAND0706 F9FE 8D 17 BSR WAITRDY0707 FA00 8E C0 00 LDX #$C0000708 *0709 * READ LOOP0710 *0711 FA03 8D 21 RDLOOP BSR WAITDRQ0712 FA05 B6 E0 40 LDA CF_DATA0713 FA08 A7 80 STA ,X+0714 FA0A 8C C2 00 CMPX #$C2000715 FA0D 26 F4 BNE RDLOOP0716 *0717 FA0F 8E C0 00 LDX #$C0000718 FA12 AF 4A STX $0A,U0719 FA14 1F 34 TFR U,S0720 FA16 3B RTI0721 *0722 * WAIT UNTIL READY0723 *0724 FA17 B6 E0 47 WAITRDY LDA CF_STATUS0725 FA1A 85 80 BITA #BUSY0726 FA1C 26 F9 BNE WAITRDY0727 FA1E B6 E0 47 LDA CF_STATUS0728 FA21 85 40 BITA #DRDY0729 FA23 27 F2 BEQ WAITRDY0730 FA25 39 RTS0731 *0732 * WAIT FOR DATA REQUEST0733 *0734 FA26 B6 E0 47 WAITDRQ LDA CF_STATUS0735 FA29 85 08 BITA #DRQ0736 FA2B 27 F9 BEQ WAITDRQ0737 FA2D 39 RTS0738 ENDIF CF8OPT0739 *0740 IFD IDEOPT0741 *0742 * XESS 16 BIT IDE BOOT0743 *0744 IDEBOOT LDD #AUXRESET0745 STD CF_AUX0746 LDD #AUXRSTREL0747 STD CF_AUX0748 LDD #HEADLBA0749 STD CF_HEAD0750 BSR WAITRDY0751 *0752 * READ SECTORS FROM CF0753 *0754 LDD #$010755 STD CF_SECCNT0756 CLRB0757 STD CF_SECNUM0758 STD CF_CYLLO0759 STD CF_CYLHI0760 *0761 LDB #CMDREAD ; IDE READ MULTIPLE0762 STD CF_COMAND0763 BSR WAITRDY0764 LDX #$C0000765 *0766 * READ LOOP0767 *0768 RDLOOP BSR WAITDRQ0769 LDD CF_DATA0770 STB ,X+0771 CMPX #$C1000772 BNE RDLOOP0773 *0774 LDX #$C0000775 STX $0A,U0776 TFR U,S0777 RTI0778 *0779 * WAIT UNTIL READY0780 *0781 WAITRDY LDD CF_STATUS0782 BITB #BUSY0783 BNE WAITRDY0784 LDD CF_STATUS0785 BITB #DRDY0786 BEQ WAITRDY0787 RTS0788 *0789 * WAIT FOR DATA REQUEST0790 *0791 WAITDRQ LDD CF_STATUS0792 BITB #DRQ0793 BEQ WAITDRQ0794 RTS0795 ENDIF IDEOPT0795 ENDIF IDEOPT0796 *0797 IFD RTCOPT0798 *0799 * CLOCK INTER FACE UTILITY0800 *0801 * TIME <Hours> <Minuits> <Seconds>0802 * If no argument is specified, the current time0803 * will be displayed.0804 *0805 * READ A REGISTER FROM THE COUNTER.0806 * The X Index rgister points to the register0807 * to be read. The Status Register is checked0808 * before and after the register is read before0809 * returning a value in accumulator A0810 *0811 RDCLK TST CLKSTA0812 BNE RDCLK0813 RDCLK1 LDA 0,X0814 TST CLKSTA0815 BNE RDCLK10816 RTS0817 *0818 * MAIN PROGRAM:0819 *0820 TIMSET LDX #COUNTR POINT TO TIMER0821 LBSR BYTE READ HOURS0822 BVS SHOWTM NO ARG, DISP TIME0823 STA HOUR,X0824 LBSR OUT1S0825 LBSR BYTE READ MINUITES0826 BVS SHOWTM0827 STA MINUIT,X0828 LBSR OUT1S0829 LBSR BYTE SECONDS.0830 BVS SHOWTM0831 STA SECOND,X0832 *0833 * DISPLAY CURRENT TIME0834 *0835 SHOWTM LBSR PCRLF0836 LDX #COUNTR+HOUR0837 LDB #30838 SHOWLP BSR RDCLK0839 LBSR OUT2H0840 LDA #':0841 LBSR OUTCH0842 LEAX -1,X0843 DECB0844 BNE SHOWLP0845 RTS0846 *0847 * INITIATE CLOCK.0848 * MASK INTERRUPTS.0849 *0850 CLKINZ CLR CINTCR MASK ALL INTERRUPTS0851 TST CINTSR CLEAR ANY INTERRUPTS0852 RTS0853 ENDIF RTCOPT0853 ENDIF RTCOPT0854 IFD DATOPT0855 *0856 ***** LRA LOAD REAL ADDRESS *****0857 *0858 * THE FOLLOWING CODE LOADS THE 20-BIT0859 * PHYSICAL ADDRESS OF A MEMORY BYTE0860 * INTO THE "A" AND "X" REGISTERS. THIS0861 * ROUTINE IS ENTERED WITH THE LOGICAL0862 * ADDRESS OF A MEMORY BYTE IN THE "IX"0863 * REGISTER. EXIT IS MADE WITH THE HIGH-0864 * ORDER FOUR BITS OF THE 20-BIT PHYSICAL0865 * ADDRESS IN THE "A" REGISTER, AND THE0866 * LOW-ORDER 16-BITS OF THE 20-BIT0867 * PHYSICAL ADDRESS IN THE "IX" REGISTER.0868 * ALL OTHER REGISTERS ARE PRESERVED.0869 * THIS ROUTINE IS REQUIRED SINCE THE0870 * DMAF1 AND DMAF2 DISK CONTROLLERS MUST0871 * PRESENT PHYSICAL ADDRESSES ON THE0872 * SYSTEM BUS.0873 *0874 FA2E 34 36 LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK0875 FA30 A6 62 LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK0876 FA32 44 LSRA ;0877 FA33 44 LSRA ADJ FOR INDEXED INTO0878 FA34 44 LSRA CORRESPONDING LOCATION0879 FA35 44 LSRA IN LRA TABLE0880 FA36 10 8E DF D0 LDY #LRARAM LOAD LRA TABLE BASE ADDRESS0881 FA3A E6 A6 LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE0882 FA3C 54 LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED0883 FA3D 54 LSRB PHYSICAL ADDRESS.0884 FA3E 54 LSRB EXTENDED MS 4-BITS ARE RETURNED0885 FA3F 54 LSRB IN THE "A" ACCUMULATOR0886 FA40 E7 E4 STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK0887 FA42 E6 A6 LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE0888 FA44 53 COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG0889 FA45 58 ASLB ADJ DATA FOR RELOCATION IN X REG0890 FA46 58 ASLB ;0891 FA47 58 ASLB $FB970892 FA48 58 ASLB ;0893 FA49 A6 62 LDA 2,S GET MS BYTE OF LOGICAL ADDR.0894 FA4B 84 0F ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS0895 FA4D A7 62 STA 2,S SAVE IT IN X REG ON STACK0896 FA4F EA 62 ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR.0897 *0898 * PLUS LS NIBBLE OF LOGICAL ADDRESS0899 FA51 E7 62 STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG0900 * ON STACK0901 FA53 35 B6 PULS A,B,X,Y,PC POP REGS. FROM STACK0902 ENDIF DATOPT0903 *0904 * DELAY LOOP0905 *0906 FA55 34 04 DLY PSHS B SAVE CONTENTS OF "B"0907 FA57 C6 20 LDB #$20 GET LOOP DELAY VALUE0908 FA59 5A SUB1 DECB SUBTRACT ONE FROM VALUE0909 FA5A 26 FD BNE SUB1 LOOP UNTIL ZERO0910 FA5C 35 84 PULS B,PC RESTORE CONTENTS OF "B"0911 * RTS ;0912 *0913 ***** "L" LOAD MIKBUG TAPE *****0914 *0915 FA5E BD FC DF LOAD JSR ACINIZ0916 FA61 86 11 LDA #$11 LOAD 'DC1' CASS. READ ON CODE0917 FA63 17 02 64 LBSR OUTCH OUTPUT IT TO TERMINAL PORT0918 FA66 7F DF E2 CLR ECHO TURN OFF ECHO FLAG0919 FA69 17 02 26 LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO0920 FA6C 81 53 LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ?0921 FA6E 26 F9 BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR.0922 FA70 17 02 1F LBSR ECHON0923 FA73 81 39 CMPA #'9 IS IT A "9" , END OF FILE CHAR ?0924 FA75 27 3D BEQ LOAD21 IF SO, EXIT LOAD0925 FA77 81 31 CMPA #'1 IS IT A "1" , FILE LOAD CHAR ?0926 FA79 26 F1 BNE LOAD2 IF NOT, LOOK FOR START CHAR.0927 FA7B 17 01 A8 LBSR BYTE INPUT BYTE COUNT0928 FA7E 34 02 PSHS A PUSH COUNT ON STACK0929 FA80 29 26 BVS LODERR (V) C-CODE SET, ILLEGAL HEX0930 FA82 17 01 91 LBSR IN1ADR INPUT LOAD ADDRESS0931 FA85 29 21 BVS LODERR (V) C-CODE SET, ADDR NOT HEX0932 FA87 34 10 PSHS X PUSH ADDR ON STACK0933 FA89 E6 E0 LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE0934 FA8B EB E0 ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM0935 FA8D EB E4 ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM0936 FA8F 6A E4 DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS0937 FA91 6A E4 DEC ,S ADDRESS BYTES.0938 FA93 34 04 LOAD10 PSHS B PUSH CHECKSUM ON STACK0939 FA95 17 01 8E LBSR BYTE INPUT DATA BYTE (2 HEX CHAR)0940 FA98 35 04 PULS B POP CHECKSUM FROM STACK0941 FA9A 29 0C BVS LODERR (V) SET, DATA BYTE NOT HEX0942 FA9C 34 02 PSHS A PUSH DATA BYTE ON STACK0943 FA9E EB E0 ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK0944 FAA0 6A E4 DEC ,S DECREMENT BYTE COUNT 10945 FAA2 27 05 BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM0946 FAA4 A7 80 STA ,X+ SAVE DATA BYTE IN MEMORY0947 FAA6 20 EB BRA LOAD10 GET NEXT DATA BYTE0948 FAA8 5F LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ;0949 FAA9 35 02 LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT)0950 FAAB C1 FF CMPB #$FF CHECKSUM OK?0951 FAAD 27 BA BEQ LOAD1 IF SO, LOAD NEXT LINE0952 FAAF 86 3F LDA #'? LOAD (?) ERROR INDICATOR0953 FAB1 17 02 16 LBSR OUTCH OUTPUT IT TO TERMINAL0954 FAB4 73 DF E2 LOAD21 COM ECHO TURN ECHO ON0955 FAB7 86 13 LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE0956 FAB9 16 02 0E LBRA OUTCH OUTPUT IT0957 *0958 ***** "P" PUNCH MIKBUG TAPE *****0959 *0960 FABC 6F E2 PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK0961 FABE 17 01 4A LBSR IN2ADR GET BEGIN AND END ADDRESS0962 FAC1 34 30 PSHS X,Y SAVE ADDRESSES ON STACK0963 FAC3 29 4D BVS PUNEXT (V) C-CODE SET, EXIT PUNCH0964 FAC5 AC 62 CMPX 2,S COMPARE BEGIN TO END ADDR0965 FAC7 25 49 BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH0966 FAC9 30 01 LEAX 1,X INCREMENT END ADDRESS0967 FACB AF E4 STX ,S STORE END ADDR ON STACK0968 FACD BD FC DF JSR ACINIZ0969 FAD0 86 12 LDA #$12 LOAD 'DC2' PUNCH ON CODE0970 FAD2 17 01 F5 LBSR OUTCH OUTPUT IT TO TERMINAL0971 FAD5 EC E4 PUNCH2 LDD ,S LOAD END ADDR IN D-ACC0972 FAD7 A3 62 SUBD 2,S SUBTRACT BEGIN FROM END0973 FAD9 27 06 BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT0974 FADB 10 83 00 20 CMPD #$20 LESS THAN 32 BYTES?0975 FADF 23 02 BLS PUNCH4 PUNCH THAT MANY BYTES0976 FAE1 C6 20 PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32.0977 FAE3 E7 64 PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT0978 FAE5 8E FE EF LDX #MSG20 POINT TO MSG "S1"0979 FAE8 17 00 2F LBSR PSTRNG PRINT MSG0980 FAEB CB 03 ADDB #3 ADD 3 BYTES TO BYTE COUNT0981 FAED 1F 98 TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH0982 FAEF 17 01 75 LBSR OUT2H OUTPUT BYTE COUNT0983 FAF2 AE 62 LDX 2,S LOAD BEGIN ADDRESS0984 FAF4 17 01 68 LBSR OUT4H PUNCH ADDRESS0985 FAF7 EB 62 ADDB 2,S ADD ADDR MSB TO CHECKSUM0986 FAF9 EB 63 ADDB 3,S ADD ADDR LSB TO CHECKSUM0987 FAFB EB 84 PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM0988 FAFD A6 80 LDA ,X+ LOAD DATA BYTE TO PUNCH0989 FAFF 17 01 65 LBSR OUT2H OUTPUT DATA BYTE0990 FB02 6A 64 DEC 4,S DECREMENT BYTE COUNT0991 FB04 26 F5 BNE PUNCHL NOT DONE, PUNCH NEXT BYTE0992 FB06 53 COMB 1's COMPLIMENT CHECKSUM BYTE0993 FB07 1F 98 TFR B,A GET IT IN A-ACC TO PUNCH0994 FB09 17 01 5B LBSR OUT2H OUTPUT CHECKSUM BYTE0995 FB0C AF 62 STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR0996 FB0E AC E4 CMPX ,S COMPARE IT TO END ADDR0997 FB10 26 C3 BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT.0998 FB12 86 14 PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE0999 FB14 17 01 B3 LBSR OUTCH OUTPUT IT1000 FB17 32 65 LEAS 5,S READJUST STACK POINTER1001 FB19 39 RTS ;1002 *1003 * PRINT STRING PRECEEDED BY A CR & LF.1004 *1005 FB1A 8D 02 PSTRNG BSR PCRLF PRINT CR/LF1006 FB1C 20 71 BRA PDATA PRINT STRING POINTED TO BY IX1007 *1008 * PCRLF1009 *1010 FB1E 34 10 PCRLF PSHS X SAVE IX1011 FB20 8E FE A0 LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS1012 FB23 17 00 69 LBSR PDATA PRINT MSG1013 FB26 35 90 PULS X,PC RESTORE IX & RETURN1014 *1015 * LONG BRANCHES TO COMMON ROUTINES1016 *1017 FB28 16 01 9D JOUT1S LBRA OUT1S1018 FB2B 16 00 F8 JBYTE LBRA BYTE1019 FB2E 16 00 E5 JIN1ADR LBRA IN1ADR1020 *1021 * ALTER "PC" PROGRAM COUNTER1022 *1023 FB31 17 00 91 ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = "1024 FB34 8D F2 ALTPC1 BSR JOUT1S OUTPUT SPACE1025 FB36 8D F6 BSR JIN1ADR GET NEW CONTENTS FOR "PC"1026 FB38 29 02 BVS ALTPCD EXIT IF INVALID HEX1027 FB3A AF 4A STX 10,U POKE IN NEW CONTENTS1028 FB3C 39 ALTPCD RTS ;1029 *1030 * ALTER "U" USER STACK POINTER1031 *1032 FB3D 8D 61 ALTRU BSR PRTUS $FCCA PRINT MSG " US = "1033 FB3F 8D E7 BSR JOUT1S OUTPUT SPACE1034 FB41 8D EB BSR JIN1ADR1035 FB43 29 02 BVS ALTUD1036 FB45 AF 48 STX 8,U1037 FB47 39 ALTUD RTS ;1038 *1039 * ALTER "Y" INDEX REGISTER1040 *1041 FB48 8D 72 ALTRY BSR PRTIY PRINT MSG " IY = "1042 FB4A 8D DC BSR JOUT1S OUTPUT SPACE1043 FB4C 8D E0 BSR JIN1ADR1044 FB4E 29 02 BVS ALTYD1045 FB50 AF 46 STX 6,U $F8F01046 FB52 39 ALTYD RTS ;1047 *1048 * ALTER "X" INDEX REGISTER1049 *1050 FB53 8D 5E ALTRX BSR PRTIX $FCE0 PRINT MSG " IX = "1051 FB55 8D D1 BSR JOUT1S OUTPUT SPACE1052 FB57 8D D5 BSR JIN1ADR1053 FB59 29 02 BVS ALTXD1054 FB5B AF 44 STX 4,U1055 FB5D 39 ALTXD RTS ;1056 *1057 * ALTER "DP" DIRECT PAGE REGISTER1058 *1059 FB5E 8D 49 ALTRDP BSR PRTDP $FCD5 PRINT MSG " DP = "1060 FB60 8D C6 BSR JOUT1S OUTPUT SPACE1061 FB62 8D C7 BSR JBYTE INPUT BYTE (2 HEX CHAR)1062 FB64 29 02 BVS ALTDPD1063 FB66 A7 43 STA 3,U1064 FB68 39 ALTDPD RTS ;1065 *1066 * ALTER "B" ACCUMULATOR1067 *1068 FB69 8D 6C ALTRB BSR PRTB $FD09 PRINT MSG " B = "1069 FB6B 8D BB BSR JOUT1S OUTPUT SPACE1070 FB6D 8D BC BSR JBYTE INPUT BYTE (2 HEX CHAR)1071 FB6F 29 02 BVS ALTBD1072 FB71 A7 42 STA 2,U1073 FB73 39 ALTBD RTS $F91C1074 *1075 * ALTER "A" ACCUMULATOR1076 *1077 FB74 8D 58 ALTRA BSR PRTA $FCFF RINT MSG " A = "1078 FB76 8D B0 BSR JOUT1S OUTPUT SPACE1079 FB78 8D B1 BSR JBYTE INPUT BYTE (2 HEX CHAR)1080 FB7A 29 02 BVS ALTAD1081 FB7C A7 41 STA 1,U1082 FB7E 39 ALTAD RTS ;1083 *1084 * ALTER "CC" REGISTER1085 *1086 FB7F 8D 5F ALTRCC BSR PRTCC $FD13 PRINT MSG " CC: "1087 FB81 8D A5 BSR JOUT1S OUTPUT SPACE1088 FB83 8D A6 BSR JBYTE INPUT BYTE (2 HEX CHAR)1089 FB85 29 04 BVS ALTCCD1090 FB87 8A 80 ORA #$80 SETS "E" FLAG IN PRINT LIST1091 FB89 A7 C4 STA ,U1092 FB8B 39 ALTCCD RTS ;1093 *1094 * PDATA1095 *1096 FB8C 17 01 3B PRINT LBSR OUTCH1097 FB8F A6 80 PDATA LDA ,X+ GET 1st CHAR. TO PRINT1098 FB91 81 04 CMPA #4 IS IT EOT?1099 FB93 26 F7 BNE PRINT IF NOT EOT PRINT IT1100 FB95 39 RTS ;1101 *1102 * PRINT REGISTERS1103 *1104 FB96 8E FE B2 PRTSP LDX #MSG10 POINT TO MSG "SP="1105 FB99 8D F4 BSR PDATA PRINT MSG1106 FB9B 1F 31 TFR U,X1107 FB9D 16 00 BF JOUT4H LBRA OUT4H1108 *1109 FBA0 8E FE BE PRTUS LDX #MSG12 POINT TO MSG "US="1110 FBA3 8D EA BSR PDATA PRINT MSG1111 FBA5 AE 48 LDX 8,U1112 FBA7 20 F4 BRA JOUT4H1113 *1114 FBA9 8E FE D0 PRTDP LDX #MSG15 POINT TO MSG "DP="1115 FBAC 8D E1 BSR PDATA PRINT MSG1116 FBAE A6 43 LDA 3,U1117 FBB0 16 00 B4 JOUT2H LBRA OUT2H OUTPUT HEX BYTE AS ASCII1118 *1119 FBB3 8E FE CA PRTIX LDX #MSG14 POINT TO MSG "IX="1120 FBB6 8D D7 BSR PDATA PRINT MSG1121 FBB8 AE 44 LDX 4,U $FCE61122 FBBA 20 E1 BRA JOUT4H1123 *1124 FBBC 8E FE C4 PRTIY LDX #MSG13 POINT TO MSG "IY="1125 FBBF 8D CE BSR PDATA PRINT MSG1126 FBC1 AE 46 LDX 6,U1127 FBC3 20 D8 BRA JOUT4H1128 *1129 FBC5 8E FE B8 PRTPC LDX #MSG11 POINT TO MSG "PC="1130 FBC8 8D C5 BSR PDATA PRINT MSG1131 FBCA AE 4A LDX 10,U1132 FBCC 20 CF BRA JOUT4H1133 *1134 FBCE 8E FE D6 PRTA LDX #MSG16 POINT TO MSG "A="1135 FBD1 8D BC BSR PDATA PRINT MSG1136 FBD3 A6 41 LDA 1,U1137 FBD5 20 D9 BRA JOUT2H OUTPUT HEX BYTE AS ASCII1138 *1139 FBD7 8E FE DB PRTB LDX #MSG17 POINT TO MSG "B="1140 FBDA 8D B3 BSR PDATA PRINT MSG1141 FBDC A6 42 LDA 2,U1142 FBDE 20 D0 BRA JOUT2H OUTPUT HEX BYTE AS ASCII1143 *1144 FBE0 8E FE E0 PRTCC LDX #MSG18 POINT TO MSG "CC:"1145 FBE3 8D AA BSR PDATA PRINT MSG1146 FBE5 A6 C4 LDA ,U1147 FBE7 8E FE E7 LDX #MSG19 POINT TO MSG "EFHINZVC"1148 FBEA 16 00 90 LBRA BIASCI OUTPUT IN BINARY/ASCII FORMAT1149 *1150 * "R" DISPLAY REGISTERS1151 *1152 FBED 8E FE AE REGSTR LDX #MSG5 POINT TO MSG " - "1153 FBF0 17 FF 27 LBSR PSTRNG PRINT MSG1154 FBF3 8D A1 BSR PRTSP $FCBF1155 FBF5 8D A9 BSR PRTUS $FCCA1156 FBF7 8D B0 BSR PRTDP $FCD51157 FBF9 8D B8 BSR PRTIX $FCE01158 FBFB 8D BF BSR PRTIY $FCEB1159 FBFD 8E FE AE LDX #MSG5 POINT TO MSG " - "1160 FC00 17 FF 17 LBSR PSTRNG PRINT MSG1161 FC03 8D C0 BSR PRTPC $FCF51162 FC05 8D C7 BSR PRTA $FCFF1163 FC07 8D CE BSR PRTB $FD091164 FC09 20 D5 BRA PRTCC $FD131165 *1166 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE1167 * OPERATOR TO INPUT TWO VALID HEX ADDRESSES.1168 * THE FIRST ADDRESS INPUT IS RETURNED IN "IY".1169 * THE SECOND IS RETURNED IN "IX". THE "V" BIT1170 * IN THE C-CODE REG. IS SET IF AN INVALID HEX1171 * ADDRESS IS INPUT.1172 *1173 FC0B 8D 09 IN2ADR BSR IN1ADR GET FIRST ADDRESS1174 FC0D 29 4D BVS NOTHEX EXIT IF NOT VALID HEX1175 FC0F 1F 12 TFR X,Y SAVE FIRST ADDR. IN "IY"1176 FC11 86 2D LDA #'-1177 FC13 17 00 B4 LBSR OUTCH PRINT " - "1178 *1179 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE1180 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE1181 * ADDRESS IS RETURNED IN THE "X" REGISTER.1182 *1183 FC16 8D 0E IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR)1184 FC18 29 42 BVS NOTHEX EXIT IF NOT VALID HEX1185 FC1A 1F 01 TFR D,X1186 FC1C 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR)1187 FC1E 29 3C BVS NOTHEX1188 FC20 34 10 PSHS X1189 FC22 A7 61 STA 1,S1190 FC24 35 90 PULS X,PC1191 *1192 ***** INPUT BYTE (2 HEX CHAR.) *****1193 *1194 FC26 8D 11 BYTE BSR INHEX GET HEX LEFT1195 FC28 29 32 BVS NOTHEX EXIT IF NOT VALID HEX1196 FC2A 48 ASLA ;1197 FC2B 48 ASLA ;1198 FC2C 48 ASLA ; SHIFT INTO LEFT NIBBLE1199 FC2D 48 ASLA ;1200 FC2E 1F 89 TFR A,B PUT HEXL IN "B"1201 FC30 8D 07 BSR INHEX GET HEX RIGHT1202 FC32 29 28 BVS NOTHEX EXIT IF NOT VALID HEX1203 FC34 34 04 PSHS B PUSH HEXL ON STACK1204 FC36 AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK1205 FC38 39 RTS RETURN WITH HEX L&R IN "A"1206 *1207 *1208 FC39 8D 57 INHEX BSR ECHON INPUT ASCII CHAR.1209 FC3B 81 30 CMPA #'0 IS IT > OR = "0" ?1210 FC3D 25 1D BCS NOTHEX IF LESS IT AIN'T HEX1211 FC3F 81 39 CMPA #'9 IS IT < OR = "9" ?1212 FC41 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA1213 FC43 80 30 SUBA #$30 ASCII ADJ. NUMERIC1214 FC45 39 RTS ;1215 *1216 *1217 FC46 81 41 INHEXA CMPA #'A IS IT > OR = "A"1218 FC48 25 12 BCS NOTHEX IF LESS IT AIN'T HEX1219 FC4A 81 46 CMPA #'F IS IT < OR = "F" ?1220 FC4C 22 03 BHI INHEXL IF > IT AIN'T HEX1221 FC4E 80 37 SUBA #$37 ASCII ADJ. ALPHA1222 FC50 39 RTS ;1223 *1224 FC51 81 61 INHEXL CMPA #'a IS IT > OR = "a"1225 FC53 25 07 BCS NOTHEX IF LESS IT AIN'T HEX1226 FC55 81 66 CMPA #'f IS IT < "f"1227 FC57 22 03 BHI NOTHEX IF > IT AIN'T HEX1228 FC59 80 57 SUBA #$57 ADJUST TO LOWER CASE1229 FC5B 39 RTS ;1230 *1231 *1232 FC5C 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER1233 FC5E 39 RTS ;1234 *1235 *1236 FC5F 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK1237 FC61 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC.1238 FC63 8D 02 BSR OUTHL OUTPUT HEX LEFT1239 FC65 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC.1240 FC67 OUTHL EQU *1241 FC67 34 02 OUT2H PSHS A SAVE IT BACK ON STACK1242 FC69 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII1243 FC6A 44 LSRA ;1244 FC6B 44 LSRA ;1245 FC6C 44 LSRA ;1246 FC6D 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII1247 FC6F 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII1248 FC71 84 0F ANDA #$0F STRIP LEFT NIBBLE1249 FC73 8B 30 XASCII ADDA #$30 ASCII ADJ1250 FC75 81 39 CMPA #$39 IS IT < OR = "9" ?1251 FC77 2F 02 BLE OUTC IF LESS, OUTPUT IT1252 FC79 8B 07 ADDA #7 IF > MAKE ASCII LETTER1253 FC7B 20 4D OUTC BRA OUTCH OUTPUT CHAR1254 *1255 * BINARY / ASCII --- THIS ROUTINE1256 * OUTPUTS A BYTE IN ENHANCED1257 * BINARY FORMAT. THE ENHANCEMENT1258 * IS DONE BY SUBSTITUTING ASCII1259 * LETTERS FOR THE ONES IN THE BYTE.1260 * THE ASCII ENHANCEMENT LETTERS1261 * ARE OBTAINED FROM THE STRING1262 * POINTED TO BY THE INDEX REG. "X".1263 *1264 FC7D 34 02 BIASCI PSHS A SAVE "A" ON STACK1265 FC7F C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE1266 FC81 A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING1267 FC83 68 E4 ASL ,S TEST BYTE FOR "1" IN B71268 FC85 25 02 BCS PRTBA IF ONE PRINT LETTER1269 FC87 86 2D LDA #'- IF ZERO PRINT "-"1270 FC89 8D 3F PRTBA BSR OUTCH PRINT IT1271 FC8B 8D 3B BSR OUT1S PRINT SPACE1272 FC8D 5A DECB SUB 1 FROM #BITS YET TO PRINT1273 FC8E 26 F1 BNE OUTBA1274 FC90 35 82 PULS A,PC1275 *1276 IFD EXTOPT1277 *1278 * EXTENDED USER COMMANDS1279 *1280 USRCMD JMP [MONEXT+EXTCMD]1281 ENDIF EXTOPT1281 ENDIF EXTOPT1282 *1283 *1284 FC92 7D DF E2 ECHON TST ECHO IS ECHO REQUIRED ?1285 FC95 27 06 BEQ INCH ECHO NOT REQ. IF CLEAR1286 *1287 * INCHE1288 *1289 * ---GETS CHARACTER FROM TERMINAL AND1290 * ECHOS SAME. THE CHARACTER IS RETURNED1291 * IN THE "A" ACCUMULATOR WITH THE PARITY1292 * BIT MASKED OFF. ALL OTHER REGISTERS1293 * ARE PRESERVED.1294 *1295 FC97 8D 04 INCHE BSR INCH GET CHAR FROM TERMINAL1296 FC99 84 7F ANDA #$7F STRIP PARITY FROM CHAR.1297 FC9B 20 2D BRA OUTCH ECHO CHAR TO TERMINAL1298 *1299 * INCH1300 *1301 * GET CHARACTER FROM TERMINAL. RETURN1302 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE1303 * ALL OTHER REGISTERS. THE INPUT CHARACTER1304 * IS 8 BITS AND IS NOT ECHOED.1305 *1306 *1307 FC9D 34 10 INCH PSHS X SAVE IX1308 FC9F BE DF E0 GETSTA LDX CPORT POINT TO TERMINAL PORT1309 FCA2 A6 84 LDA ,X FETCH PORT STATUS1310 FCA4 85 01 BITA #1 TEST READY BIT, RDRF ?1311 IFD PS2OPT1312 FCA6 26 09 BNE GETST11313 FCA8 8E E0 20 LDX #PS2KBD1314 FCAB A6 84 LDA ,X1315 FCAD 85 01 BITA #11316 ENDIF PS2OPT1317 FCAF 27 EE BEQ GETSTA IF NOT RDY, THEN TRY AGAIN1318 FCB1 A6 01 GETST1 LDA 1,X FETCH CHAR1319 FCB3 35 90 PULS X,PC RESTORE IX1320 *1321 * INCHEK1322 *1323 * CHECK FOR A CHARACTER AVAILABLE FROM1324 * THE TERMINAL. THE SERIAL PORT IS CHECKED1325 * FOR READ READY. ALL REGISTERS ARE1326 * PRESERVED, AND THE "Z" BIT WILL BE1327 * CLEAR IF A CHARACTER CAN BE READ.1328 *1329 *1330 FCB5 34 02 INCHEK PSHS A SAVE A ACCUM.1331 FCB7 A6 9F DF E0 LDA [CPORT] FETCH PORT STATUS1332 FCBB 85 01 BITA #1 TEST READY BIT, RDRF ?1333 IFD PS2OPT1334 FCBD 26 05 BNE INCHEK11335 FCBF B6 E0 20 LDA PS2KBD1336 FCC2 85 01 BITA #1 TEST READY BIT< RDRF ?1337 ENDIF PS2OPT1338 FCC4 35 82 INCHEK1 PULS A,PC RESTORE A ACCUM.1339 *1340 FCC6 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES1341 FCC8 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE1342 *1343 *1344 * OUTCH1345 *1346 * OUTPUT CHARACTER TO TERMINAL.1347 * THE CHAR. TO BE OUTPUT IS1348 * PASSED IN THE A REGISTER.1349 * ALL REGISTERS ARE PRESERVED.1350 *1351 OUTCH IFD VDUOPT1352 FCCA 8D 45 BSR VOUTCH1353 ENDIF VDUOPT1354 IFD DG640OPT1355 BSR VOUTCH1356 ENDIF DG640OPT1356 ENDIF DG640OPT1357 FCCC 34 12 AOUTCH PSHS A,X SAVE A ACCUM AND IX1358 FCCE BE DF E0 LDX CPORT GET ADDR. OF TERMINAL1359 FCD1 A6 84 FETSTA LDA ,X FETCH PORT STATUS1360 FCD3 85 02 BITA #2 TEST TDRE, OK TO XMIT ?1361 FCD5 27 FA BEQ FETSTA IF NOT LOOP UNTIL RDY1362 FCD7 35 02 PULS A GET CHAR. FOR XMIT1363 FCD9 A7 01 STA 1,X XMIT CHAR.1364 FCDB 35 90 PULS X,PC RESTORE IX1365 *1366 * IO INITIALIZATION1367 *1368 FCDD IOINIZ EQU *1369 IFD VDUOPT1370 FCDD 8D 13 BSR VINIZ1371 ENDIF VDUOPT1372 IFD DG640OPT1373 BSR VINIZ1374 ENDIF DG640OPT1374 ENDIF DG640OPT1375 FCDF BE DF E0 ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS1376 FCE2 86 03 LDA #3 RESET ACIA PORT CODE1377 FCE4 A7 84 STA ,X STORE IN CONTROL REGISTER1378 FCE6 86 11 LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY1379 FCE8 A7 84 STA ,X STORE IN CONTROL REGISTER1380 FCEA 6D 01 TST 1,X ANYTHING IN DATA REGISTER?1381 FCEC 86 FF LDA #$FF TURN ON ECHO FLAG1382 FCEE B7 DF E2 STA ECHO1383 FCF1 39 RTS1384 *1385 IFD VDUOPT1386 *1387 ***************************************************1388 * VDU8 ADM3A REGISTER-MAPPED EMULATOR *1389 * *1390 * 80 x 25 Characters1391 *1392 ***************************************************1393 *1394 ***************************************************1395 * INITIALIZE EMULATOR *1396 ***************************************************1397 *1398 FCF2 8E E0 30 VINIZ LDX #VDU1399 FCF5 CC 00 00 LDD #01400 FCF8 FD DF FB STD COLADX AND ROWADX1401 FCFB A7 02 STA VDUCOL,X1402 FCFD E7 03 STB VDUROW,X1403 FCFF E7 04 STB VDUOFF,X1404 FD01 FD DF FD STD NEWROW AND ESCFLG1405 FD04 C6 02 LDB #$021406 FD06 E7 01 STB VDUATT,X1407 FD08 7F DF FE CLR ESCFLG1408 FD0B 86 1B LDA #$1B SEND ESCAPE1409 FD0D 8D 02 BSR VOUTCH1410 FD0F 86 59 LDA #'Y CLEAR TO END OF SCREEN1411 *1412 ** VIDEO OUTPUT ROUTINE1413 *1414 FD11 34 16 VOUTCH PSHS A,B,X SAVE REGISTERS1415 FD13 8E E0 30 LDX #VDU POINT TO VDU REGISTERS1416 *1417 ** CHECK FOR ESCAPE SEQUENCE1418 *1419 FD16 7D DF FE TST ESCFLG ESCAPE ACTIVE?1420 FD19 27 04 BEQ SOROU1 BRANCH IF NOT1421 FD1B 8D 74 BSR ESCAPE ELSE DO ESCAPE1422 FD1D 20 0D BRA RETURN AND RETURN1423 *1424 ** CHECK FOR CONTROL CHARACTERS1425 *1426 FD1F 81 20 SOROU1 CMPA #$20 CONTROL CODES?1427 FD21 24 04 BHS SOROU21428 FD23 8D 09 BSR CONTRL BRANCH IF SO1429 FD25 20 05 BRA RETURN1430 *1431 ** OUTPUT TEXT CHARACTER1432 *1433 FD27 A7 84 SOROU2 STAA VDUCHR,X DISPLAY CHARACTER1434 FD29 17 00 C5 LBSR NEWCOL UPDATE COLUMN1435 *1436 ** DISPLAY CURSOR AND RETURN1437 *1438 FD2C 35 96 RETURN PULS A,B,X,PC RESTORE REGISTERS AND RETURN1439 *1440 ***************************************************1441 * CONTROL CODE HANDLERS *1442 ***************************************************1443 *1444 FD2E 81 08 CONTRL CMPA #$08 CTRL H - BACKSPACE ?1445 FD30 10 27 00 41 LBEQ BACKSP1446 FD34 81 1B CMPA #$1B ESCAPE SEQUENCE?1447 FD36 10 27 00 6C LBEQ SETESC1448 FD3A 81 1A CMPA #$1A CTRL Z - Clear Screen1449 FD3C 10 27 00 8E LBEQ CLRSCR1450 FD40 81 16 CMPA #$16 CTRL ^ - Home1451 FD42 10 27 00 45 LBEQ HOME1452 FD46 81 0D CMPA #$D CTRL M - RETURN?1453 FD48 10 27 00 99 LBEQ CRETN1454 FD4C 81 0C CMPA #$0C CTRL L - CHAR RIGHT1455 FD4E 10 27 00 2C LBEQ CHRIGHT1456 FD52 81 0B CMPA #$0B CTRL K - MOVE UP ONE LINE1457 FD54 10 27 00 11 LBEQ LINEUP1458 FD58 81 0A CMPA #$0A CTRL J - LINE FEED1459 FD5A 26 51 BNE RETESC NONE OF THESE, RETURN1460 *1461 ***************************************** LINE FEED1462 *1463 FD5C FC DF FB LINEFD LDD COLADX GET CURRENT COLUMN AND ROW1464 FD5F 5C INCB BUMP ROW1465 FD60 C1 19 CMPB #NUMLIN SCROLL TIME?1466 FD62 10 26 00 83 LBNE NEWCUR POSITION CURSOR IF NOT1467 FD66 16 00 99 LBRA SCROLL ELSE SCROLL IT1468 *1469 ***************************************** LINE FEED1470 *1471 FD69 FC DF FB LINEUP LDD COLADX GET CURRENT COLUMN AND ROW1472 FD6C 5D TSTB AT TOP OF SCREEN ?1473 FD6D 10 27 00 3C LBEQ RETESC Yes, Ignore1474 FD71 5A DECB No, Decrement ROW1475 FD72 16 00 74 LBRA NEWCUR POSITION CURSOR1476 *1477 *********************************** BACK SPACE1478 *1479 FD75 B6 DF FB BACKSP LDA COLADX1480 FD78 27 33 BEQ RETESC RETURN1481 FD7A 4A DECA1482 FD7B 16 00 68 LBRA POSCOL POSITION CURSOR1483 *1484 *********************************** CURSOR RIGHT1485 *1486 FD7E B6 DF FB CHRIGHT LDA COLADX1487 FD81 4C INCA1488 FD82 81 50 CMPA #LINLEN1489 FD84 10 27 00 25 LBEQ RETESC1490 FD88 16 00 5B LBRA POSCOL1491 *1492 *********************************** CURSOR RIGHT1493 *1494 FD8B CC 00 00 HOME LDD #0 HOME - POSITION TOP OF SCREEN1495 FD8E 16 00 58 LBRA NEWCUR1496 *1497 ***************************************************1498 * ESCAPE HANDLERS *1499 ***************************************************1500 *1501 FD91 F6 DF FE ESCAPE LDAB ESCFLG GET FLAG1502 FD94 C1 3D CMPB #'= SETTING CURSOR?1503 FD96 27 16 BEQ ESCCUR BRANCH IF SO1504 FD98 81 59 CMPA #'Y CLEAR TO END OF SCREEN?1505 FD9A 10 27 00 6E LBEQ ESCCLS1506 FD9E 81 54 CMPA #'T CLEAR TO END OF LINE?1507 FDA0 27 31 BEQ ESCCLL1508 FDA2 81 3D CMPA #'= STARTING CURSOR SET?1509 FDA4 26 04 BNE CLRESC BRANCH IF NOT1510 *1511 ***************************** START ESCAPE SEQUENCE1512 *1513 FDA6 B7 DF FE SETESC STAA ESCFLG ELSE START CURSORING1514 FDA9 39 RTS AND RETURN1515 *1516 FDAA 7F DF FE CLRESC CLR ESCFLG NO OTHERS SUPPORTED1517 FDAD 39 RETESC RTS SO RETURN1518 *1519 ********************************* SET SCREEN CURSOR1520 *1521 FDAE 7D DF FD ESCCUR TST NEWROW ROW SET?1522 FDB1 26 04 BNE ESCCU1 BRANCH IF SO1523 FDB3 B7 DF FD STAA NEWROW ELSE SET NEW ROW1524 FDB6 39 RTS AND RETURN1525 *1526 FDB7 7F DF FE ESCCU1 CLR ESCFLG1527 FDBA 80 20 SUBA #$20 ADJUST COLUMN ADDRESS1528 FDBC 81 4F CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM1529 FDBE 22 ED BHI RETESC NOT OK, DO NOTHING1530 *1531 FDC0 F6 DF FD ESCCU2 LDAB NEWROW1532 FDC3 7F DF FD CLR NEWROW1533 FDC6 C0 20 SUBB #$20 ADJUST TO ROW ADDRESS1534 FDC8 C1 18 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW1535 FDCA 22 E1 BHI RETESC ELSE RETURN DOING NOTHING1536 FDCC 20 1B BRA NEWCUR GO SET NEW CURSOR IF SO1537 *1538 ****************** CLEAR FROM CURSOR TO END OF LINE1539 FDCE CC 00 00 CLRSCR LDD #0 CLEAR FROM TOP OF SCREEN1540 FDD1 8D 16 BSR NEWCUR1541 FDD3 B6 DF FB ESCCLL LDA COLADX1542 FDD6 C6 20 LDB #$20 AND CLEAR CHAR1543 FDD8 E7 84 ESCCL1 STB VDUCHR,X DISPLAY TEXT1544 FDDA 4C INCA1545 FDDB A7 02 STA VDUCOL,X1546 FDDD 81 50 CMPA #LINLEN UNTIL END OF LINE1547 FDDF 26 F7 BNE ESCCL11548 FDE1 7F DF FE CLR ESCFLG1549 FDE4 39 RTS1550 *1551 *********************************** CARRIAGE RETURN1552 *1553 FDE5 4F CRETN CLRA SET COLUMN ZERO1554 FDE6 F6 DF FC POSCOL LDB ROWADX GET CURRENT ROW1555 *1556 *********** GENERATE NEW CURSOR POSITION AND RETURN1557 *1558 FDE9 FD DF FB NEWCUR STD COLADX SAVE NEW ROW AND COLUMN1559 FDEC A7 02 STA VDUCOL,X SET NEW COLUMN1560 FDEE E7 03 STB VDUROW,X SET NEW ROW1561 FDF0 39 RTS AND RETURN1562 *1563 ********************* UPDATE CURRENT COLUMN AND ROW1564 *1565 FDF1 FC DF FB NEWCOL LDD COLADX GET ROW AND COLUMN1566 FDF4 4C INCA BUMP COLUMN1567 FDF5 81 50 CMPA #LINLEN ROLL?1568 FDF7 26 F0 BNE NEWCUR BRANCH IF NOT1569 FDF9 4F CLRA ELSE RESET TO ZERO1570 FDFA 5C INCB AND BUMP ROW1571 FDFB C1 19 CMPB #NUMLIN1572 FDFD 26 EA BNE NEWCUR1573 FDFF 5A DECB BOTTOM ROW1574 FE00 8D E7 BSR NEWCUR1575 *1576 ********************************* SCROLL THE SCREEN1577 *1578 FE02 E6 04 SCROLL LDB VDUOFF,X1579 FE04 5C INCB1580 FE05 C1 19 CMPB #NUMLIN1581 FE07 25 01 BLO SCROL11582 FE09 5F CLRB1583 FE0A E7 04 SCROL1 STB VDUOFF,X1584 *1585 **************** CLEAR FROM CURSOR TO END OF SCREEN1586 *1587 FE0C F6 DF FB ESCCLS LDB COLADX GET CURSOR1588 FE0F 86 20 LDA #$20 GET A SPACE1589 FE11 F7 DF FB ESCCLS1 STB COLADX1590 FE14 E7 02 STB VDUCOL,X1591 FE16 A7 84 STA VDUCHR,X1592 FE18 5C INCB1593 FE19 C1 50 CMPB #LINLEN1594 FE1B 26 F4 BNE ESCCLS11595 *1596 FE1D F6 DF FC LDB ROWADX1597 FE20 5C INCB1598 FE21 C1 19 CMPB #NUMLIN1599 FE23 27 08 BEQ ESCCLS21600 FE25 F7 DF FC STB ROWADX1601 FE28 E7 03 STB VDUROW,X1602 FE2A 5F CLRB1603 FE2B 20 E4 BRA ESCCLS11604 *1605 FE2D 5F ESCCLS2 CLRB1606 FE2E F7 DF FB STB COLADX1607 FE31 E7 02 STB VDUCOL,X1608 FE33 F7 DF FE STB ESCFLG1609 FE36 39 RTS1610 ENDIF VDUOPT1611 *1612 IFD DG640OPT1613 ***************************************************1614 * TELEVIDEO-TYPE MEMORY-MAPPED EMULATOR *1615 * *1616 * FOR HARD-WIRED MEMORY-MAPPED DISPLAYS USING THE *1617 * HIGH ORDER BIT OF EACH BYTE FOR REVERSE VIDEO *1618 * CURSORING (SUCH AS THE THOMAS INSTRUMENTATION *1619 * 16x64 BOARD). *1620 ***************************************************16211622 ***************************************************1623 * INITIALIZE EMULATOR *1624 ***************************************************16251626 VINIZ LDX #01627 STX COLADX AND ROWADX1628 STX NEWROW AND ESCFLG1629 LDX #SCREEN POINT TO SCREEN1630 STX CURSOR SET PROGRAM CURSOR1631 LDA #$1B SEND ESCAPE1632 BSR VOUTCH1633 LDA #'Y CLEAR TO END OF SCREEN1634 *1635 ** VIDEO OUTPUT ROUTINE1636 *1637 VOUTCH PSHS A,B,X SAVE REGISTERS1638 *1639 ** CLEAR CURSOR1640 LDX CURSOR1641 LDB 0,X1642 ANDB #$7F1643 STB 0,X1644 *1645 ** CHECK FOR ESCAPE SEQUENCE1646 TST ESCFLG ESCAPE ACTIVE?1647 BEQ SOROU1 BRANCH IF NOT1648 BSR ESCAPE ELSE DO ESCAPE1649 BRA RETURN AND RETURN1650 *1651 ** CHECK FOR CONTROL CHARACTERS1652 SOROU1 CMPA #$20 CONTROL CODES?1653 BHS SOROU21654 BSR CONTRL BRANCH IF SO1655 BRA RETURN1656 *1657 ** OUTPUT TEXT CHARACTER1658 SOROU2 LDX CURSOR ELSE GET CURSOR1659 STAA 0,X DISPLAY CHARACTER1660 LBSR NEWCOL UPDATE COLUMN1661 *1662 ** DISPLAY CURSOR AND RETURN1663 RETURN LDX CURSOR AND DISPLAY IT1664 LDB ,X1665 ORAB #$80 WITH REVID1666 STB ,X1667 PULS A,B,X,PC RESTORE REGISTERS AND RETURN16681669 ***************************************************1670 * CONTROL CODE HANDLERS *1671 ***************************************************16721673 CONTRL CMPA #$08 CTRL H - BACKSPACE ?1674 LBEQ BACKSP1675 CMPA #$1B ESCAPE SEQUENCE?1676 LBEQ SETESC1677 CMPA #$D CTRL M - RETURN?1678 LBEQ CRETN1679 CMPA #$0A CTRL J - LINE FEED1680 BNE RETESC NONE OF THESE, RETURN16811682 ***************************************** LINE FEED16831684 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW1685 INCB BUMP ROW1686 CMPB #NUMLIN SCROLL TIME?1687 LBNE NEWCUR POSITION CURSOR IF NOT1688 LBRA SCROLL ELSE SCROLL IT16891690 ***************************************** LINE FEED16911692 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW1693 TSTB AT TOP OF SCREEN ?1694 BEQ RETESC Yes, Ignore1695 DECB No, Decrement ROW1696 LBRA NEWCUR POSITION CURSOR169716981699 *********************************** BACK SPACE17001701 BACKSP LDA COLADX1702 BEQ RETESC RETURN1703 DECA1704 LBRA POSCOL POSITION CURSOR17051706 *********************************** CURSOR RIGHT17071708 CHRIGHT LDA COLADX1709 INCA1710 CMPA #LINLEN1711 BEQ RETESC1712 LBRA POSCOL17131714 ***************************************************1715 * ESCAPE HANDLERS *1716 ***************************************************17171718 ESCAPE LDAB ESCFLG GET FLAG1719 CMPB #'= SETTING CURSOR?1720 BEQ ESCCUR BRANCH IF SO1721 CMPA #'Y CLEAR TO END OF SCREEN?1722 LBEQ ESCCLS1723 CMPA #'T CLEAR TO END OF LINE?1724 BEQ ESCCLL1725 CMPA #'E INSERT LINE?1726 BEQ ESCINL1727 CMPA #'R DELETE LINE?1728 BEQ ESCDLL1729 CMPA #'= STARTING CURSOR SET?1730 BNE CLRESC BRANCH IF NOT17311732 ***************************** START ESCAPE SEQUENCE17331734 SETESC STAA ESCFLG ELSE START CURSORING1735 RTS AND RETURN17361737 CLRESC CLR ESCFLG NO OTHERS SUPPORTED1738 RETESC RTS SO RETURN17391740 ********************************* SET SCREEN CURSOR17411742 ESCCUR TST NEWROW ROW SET?1743 BNE ESCCU1 BRANCH IF SO1744 STAA NEWROW ELSE SET NEW ROW1745 RTS AND RETURN17461747 ESCCU1 CLR ESCFLG1748 SUBA #$20 ADJUST COLUMN ADDRESS1749 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM1750 BHI RETESC NOT OK, DO NOTHING17511752 ESCCU2 LDAB NEWROW1753 CLR NEWROW1754 SUBB #$20 ADJUST TO ROW ADDRESS1755 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW1756 BHI RETESC ELSE RETURN DOING NOTHING1757 BRA NEWCUR GO SET NEW CURSOR IF SO1758 *1759 *************************** DELETE LINE FROM SCREEN17601761 ESCDLL BSR CRETN GO COL. ZERO1762 LDB ROWADX1763 CMPB #NUMLIN-11764 BEQ SCROL31765 BRA SCROL1 AND DELETE THIS LINE17661767 *************************** INSERT LINE INTO SCREEN17681769 ESCINL BSR CRETN GO TO COL. ZERO1770 LDAB ROWADX1771 CMPB #NUMLIN-11772 BEQ ESCCLL1773 *1774 ** SCROLL SCREEN DOWN FROM CURSOR1775 *1776 LDX #SCREEN+SCNLEN-LINLEN1777 ESCIN0 LDAA 0,-X1778 STAA LINLEN,X1779 LDA SCNLEN,X1780 STA SCNLEN+LINLEN,X1781 CPX CURSOR1782 BNE ESCIN017831784 ****************** CLEAR FROM CURSOR TO END OF LINE17851786 ESCCLL LDA COLADX GET CURRENT COLUMN1787 LDX CURSOR GET CURSOR1788 LDB #$20 AND CLEAR CHAR1789 ESCLL1 STB SCNLEN,X CLEAR ATTRIBUTE1790 STB ,X+ CLEAR TEXT1791 INCA1792 CMPA #LINLEN UNTIL END OF LINE1793 BNE ESCLL11794 CLR ESCFLG1795 RTS17961797 *********************************** CARRIAGE RETURN17981799 CRETN CLRA SET COLUMN ZERO1800 POSCOL LDB ROWADX GET CURRENT ROW18011802 *********** GENERATE NEW CURSOR POSITION AND RETURN18031804 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN1805 LDA #LINLEN ELSE ADD A LINE1806 MUL LINLEN * ROWADX1807 ADDB COLADX1808 ADCA #01809 ADDD #SCREEN ADD SCREEN BASE.1810 STD CURSOR SAVE NEW CURSOR1811 TFR D,X GET CURSOR IN X1812 RTS AND RETURN18131814 ********************* UPDATE CURRENT COLUMN AND ROW18151816 NEWCOL LDD COLADX GET ROW AND COLUMN1817 INCA BUMP COLUMN1818 CMPA #LINLEN ROLL?1819 BNE NEWCUR BRANCH IF NOT1820 CLRA ELSE RESET TO ZERO1821 INCB AND BUMP ROW1822 CMPB #NUMLIN1823 BNE NEWCUR1824 DECB BOTTOM ROW1825 BSR NEWCUR18261827 ********************************* SCROLL THE SCREEN18281829 SCROLL LDX #SCREEN POINT TO SCREEN1830 SCROL1 LDA SCNLEN+LINLEN,X1831 STA SCNLEN,X1832 LDAA LINLEN,X MOVE TWO BYTES1833 STAA 0,X+ UP ONE LINE1834 CMPX #SCREEN+SCNLEN-LINLEN1835 BNE SCROL1 LOOP UNTIL DONE1836 BRA SCROL318371838 **************** CLEAR FROM CURSOR TO END OF SCREEN18391840 ESCCLS LDX CURSOR GET CURSOR1841 SCROL3 LDAA #$20 GET A SPACE1842 SCROL2 STA SCNLEN,X CLEAR ATTRIBUTES1843 STA ,X+ AND TEXT1844 CMPX #SCREEN+SCNLEN1845 BNE SCROL2 UNTIL DONE1846 CLR ESCFLG1847 RTS1848 ENDIF DG640OPT1848 ENDIF DG640OPT1849 *1850 IFD PRTOPT1851 *************************************1852 *1853 ** PRINTER DRIVER ROUTINES1854 *1855 *************************************1856 *1857 ** PINIZ - INITIATE PRINTER PORT1858 *1859 PINIZ PSHS B1860 LDD #DIRMSK*256+$04 ACCA=DIRMSK ACCB=$041861 STD PADATA SET DDR AND SELECT DATA1862 *1863 ** RESET PRINTER1864 LDB #PRESET1865 STAB PADATA1866 RESTLP INCB DELAY FOR RESET1867 BNE RESTLP1868 STAA PADATA ACCA=DIRMSK1869 *1870 ** INITALIZE PORT B (DATA PORT)1871 LDAA #$2A1872 STAA PBCTRL1873 LDD #$FF2E ACCA=$FF ACCB =%001011101874 STD PBDATA PBDREG PBCTRL1875 *1876 ** SELECT 66 LINES/PAGE1877 LDAA #$1B1878 BSR POUTCH1879 LDAA #'C1880 BSR POUTCH1881 LDAA #661882 PULS B1883 *************************************1884 *1885 ** OUTPUT A CHARACTER TO THE PRINTER1886 *1887 *************************************1888 POUTCH PSHS B1889 LDAB PBDATA CLEAR INTERRUPT BIT1890 *1891 ** WAIT TILL NOT BUSY1892 BUSYLP LDAB PADATA1893 BITB #PERROR1894 BEQ PEXIT1895 TSTB1896 BMI BUSYLP1897 *1898 ** NOW OUTPUT CHARACTER1899 STAA PBDATA1900 PEXIT PULS B,PC1901 *************************************1902 *1903 ** PCHK TEST IFD PRINTER READY1904 *1905 *************************************1906 PCHK TST PBCTRL TEST STATE OF CRB71907 RTS SET ON ACKNOWLEDGE1908 ENDIF PRTOPT1908 ENDIF PRTOPT1909 *************************************1910 *1911 * MONITOR KEYBOARD COMMAND JUMP TABLE1912 *1913 *************************************1914 *1915 FE37 JMPTAB EQU *1916 FE37 01 FCB 1 " ^A "1917 FE38 FB 74 FDB ALTRA1918 FE3A 02 FCB 2 " ^B "1919 FE3B FB 69 FDB ALTRB1920 FE3D 03 FCB 3 " ^C "1921 FE3E FB 7F FDB ALTRCC1922 FE40 04 FCB 4 " ^D "1923 FE41 FB 5E FDB ALTRDP1924 FE43 10 FCB $10 " ^P "1925 FE44 FB 31 FDB ALTRPC1926 FE46 15 FCB $15 " ^U "1927 FE47 FB 3D FDB ALTRU1928 FE49 18 FCB $18 " ^X "1929 FE4A FB 53 FDB ALTRX1930 FE4C 19 FCB $19 " ^Y "1931 FE4D FB 48 FDB ALTRY1932 *1933 FE4F 42 FCC 'B'1934 FE50 F9 5C FDB BRKPNT1935 FE52 45 FCC 'E'1936 FE53 F8 FD FDB MEMDUMP1937 FE55 47 FCC 'G'1938 FE56 F8 A5 FDB GO1939 FE58 4C FCC 'L'1940 FE59 FA 5E FDB LOAD1941 FE5B 50 FCC 'P'1942 FE5C FA BC FDB PUNCH1943 FE5E 4D FCC 'M'1944 FE5F F8 A8 FDB MEMCHG1945 FE61 52 FCC 'R'1946 FE62 FB ED FDB REGSTR1947 FE64 53 FCC 'S'1948 FE65 F8 F1 FDB DISSTK1949 FE67 58 FCC 'X'1950 FE68 F9 88 FDB XBKPNT1951 IFD MFDCOPT1952 FCC 'D' *** SWTPC USES 'U' FOR MINIBOOT1953 FDB MINBOOT1954 ENDIF MFDCOPT1954 ENDIF MFDCOPT1955 IFD CF8OPT1956 FE6A 44 FCC 'D' *** FPGA 8 BIT USES 'D' FOR CFBOOT1957 FE6B F9 D5 FDB CFBOOT1958 ENDIF CF8OPT1959 IFD IDEOPT1960 FCC 'D' *** XESS FPGA 16 BIT IDE USES 'D' FOR IDEBOOT1961 FDB IDEBOOT1962 ENDIF IDEOPT1962 ENDIF IDEOPT1963 IFD DMAFOPT1964 FCC 'U' *** SWTPC USES 'D' FOR DMAF2 BOOT1965 FDB DBOOT1966 ENDIF DMAFOPT1966 ENDIF DMAFOPT1967 IFD EXTOPT1968 FCC 'U' *** IF FPGA, 'U' IS FOR USER1969 FDB USRCMD1970 ENDIF EXTOPT1970 ENDIF EXTOPT1971 IFD RTCOPT1972 FCC 'T'1973 FDB TIMSET1974 ENDIF RTCOPT1974 ENDIF RTCOPT1975 IFD TRAOPT1976 FCC "T"1977 FDB TRACE1978 ENDIF TRAOPT1978 ENDIF TRAOPT1979 *1980 FE6D TABEND EQU *1981 *1982 * ** 6809 VECTOR ADDRESSES **1983 *1984 * FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES1985 * FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY1986 * ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE1987 * RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO1988 * HIS OWN ROUTINES IF HE SO DESIRES.1989 *1990 *1991 FE6D F9 94 RAMVEC FDB SWIE USER-V1992 FE6F F8 A7 FDB RTI SWI3-V1993 FE71 F8 A7 FDB RTI SWI2-V1994 FE73 F8 A7 FDB RTI FIRQ-V1995 FE75 F8 A7 FDB RTI IRQ-V1996 FE77 F9 94 FDB SWIE SWI-V1997 FE79 FF FF FDB $FFFF SVC-VO1998 FE7B FF FF FDB $FFFF SVC-VL1999 *2000 * PRINTABLE MESSAGE STRINGS2001 *2002 FE7D 0D 0A 00 00 00 MSG1 FCB $D,$A,$0,$0,$0 * 0, CR/LF, 02003 FE82 53 59 53 30 39 42 FCC 'SYS09BUG 1.4 FOR '55 47 20 31 2E 3420 46 4F 52 202004 IFD S3EOPT2005 FCC 'S3E '2006 ENDIF S3EOPT2006 ENDIF S3EOPT2007 IFD B5XOPT2008 FE93 42 35 2D 58 33 30 FCC 'B5-X300 '30 202009 ENDIF B5XOPT2010 IFD S3SOPT2011 FCC 'S3STARTER '2012 ENDIF S3SOPT2012 ENDIF S3SOPT2013 IFD ADSOPT2014 FCC 'ADS6809 '2015 ENDIF ADSOPT2015 ENDIF ADSOPT2016 IFD SWTOPT`2017 FCC 'SWTPC '2018 ENDIF SWTOPT2018 ENDIF SWTOPT2019 IFD XESOPT`2020 FCC 'XESS '2021 ENDIF XESOPT2021 ENDIF XESOPT2022 FE9B 20 2D 20 FCC ' - '2023 FE9E 04 FCB 42024 FE9F 4B 0D 0A 00 00 00 MSG2 FCB 'K,$D,$A,$00,$00,$00,$04 K, * CR/LF + 3 NULS042025 FEA6 3E MSG3 FCC '>'2026 FEA7 04 FCB 42027 FEA8 57 48 41 54 3F MSG4 FCC 'WHAT?'2028 FEAD 04 FCB 42029 FEAE 20 2D 20 MSG5 FCC ' - '2030 FEB1 04 FCB 4'2031 FEB2 20 20 53 50 3D MSG10 FCC ' SP='2032 FEB7 04 FCB 42033 FEB8 20 20 50 43 3D MSG11 FCC ' PC='2034 FEBD 04 FCB 42035 FEBE 20 20 55 53 3D MSG12 FCC ' US='2036 FEC3 04 FCB 42037 FEC4 20 20 49 59 3D MSG13 FCC ' IY='2038 FEC9 04 FCB 42039 FECA 20 20 49 58 3D MSG14 FCC ' IX='2040 FECF 04 FCB 42041 FED0 20 20 44 50 3D MSG15 FCC ' DP='2042 FED5 04 FCB 42043 FED6 20 20 41 3D MSG16 FCC ' A='2044 FEDA 04 FCB 42045 FEDB 20 20 42 3D MSG17 FCC ' B='2046 FEDF 04 FCB 42047 FEE0 20 20 43 43 3A 20 MSG18 FCC ' CC: '2048 FEE6 04 FCB 42049 FEE7 45 46 48 49 4E 5A MSG19 FCC 'EFHINZVC'56 432050 FEEF 53 31 MSG20 FCC 'S1'2051 FEF1 04 FCB 42052 IFD DATOPT2053 *2054 * POWER UP/ RESET/ NMI ENTRY POINT2055 *2056 FF00 ORG $FF002057 *2058 *2059 FF00 8E FF F0 START LDX #IC11 POINT TO DAT RAM IC112060 FF03 86 0F LDA #$F GET COMPLIMENT OF ZERO2061 *2062 *2063 * INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F2064 * OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS2065 * IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE2066 * OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA2067 * STORED IN IT.2068 *2069 *2070 FF05 A7 80 DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION2071 FF07 4A DECA GET COMP. VALUE FOR NEXT LOCATION2072 FF08 26 FB BNE DATLP ALL 16 LOCATIONS INITIALIZED ?2073 *2074 * NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER2075 * ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL2076 * PHYSICAL ADDRESSES.2077 *2078 FF0A 86 F0 LDA #$F02079 FF0C A7 84 STA ,X STORE $F0 AT $FFFF2080 FF0E 8E D0 A0 LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF2081 FF11 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y"2082 FF15 EE 84 TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION2083 FF17 10 AF 84 STY ,X STORE TEST PATTERN AT $D0A02084 FF1A 10 AC 84 CMPY ,X IS THERE RAM AT THIS LOCATION ?2085 FF1D 27 0B BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP2086 FF1F 30 89 F0 00 LEAX -$1000,X ELSE POINT 4K LOWER2087 FF23 8C F0 A0 CMPX #$F0A0 DECREMENTED PAST ZER0 YET ?2088 FF26 26 ED BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM2089 FF28 20 D6 BRA START ELSE START ALL OVER AGAIN2090 *2091 *2092 * THE FOLLOWING CODE STORES THE COMPLEMENT OF2093 * THE MS CHARACTER OF THE FOUR CHARACTER HEX2094 * ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED2095 * BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT2096 * IS STORED IN RAM IN THE LOCATION THAT IS2097 * ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---,2098 * THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND2099 * WHEN TESTING LOCATION $70A0, MEANING THERE2100 * IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE2101 * $8000-$DFFF, THEN THE COMPLEMENT OF THE2102 * "7" IN THE $70A0 WILL BE STORED IN2103 * THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS2104 * AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND2105 * BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE2106 * 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE2107 * RAM THAT IS PHYSICALLY ADDRESSED AT $7---2108 * WILL RESPOND AND APPEAR TO THE 6809 THAT IT2109 * IS AT $D--- SINCE THAT IS THE ADDRESS THE2110 * 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK2111 * OF RAM RESPONDS.2112 *2113 *2114 FF2A EF 84 CNVADR STU ,X RESTORE DATA AT TEST LOCATION2115 FF2C 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D2116 FF2E 43 COMA COMPLEMENT MSB OF THAT ADDRESS2117 FF2F 44 LSRA PUT MS 4 BITS OF ADDRESS IN2118 FF30 44 LSRA LOCATION D0-D3 TO ALLOW STORING2119 FF31 44 LSRA IT IN THE DYNAMIC ADDRESS2120 FF32 44 LSRA TRANSLATION RAM.2121 FF33 B7 FF FD STA $FFFD STORE XLATION FACTOR IN DAT "D"2122 *2123 FF36 10 CE DF C0 LDS #STACK INITIALIZE STACK POINTER2124 *2125 *2126 * THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES2127 * OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK2128 * OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS2129 * IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION2130 * TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF2131 * THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO2132 * RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---....2133 *2134 * 0 1 2 3 4 5 6 7 8 9 A B C D E F2135 * 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- --2136 *2137 * ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE2138 * CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING....2139 *2140 * 0 1 2 3 4 5 6 7 8 9 A B C D E F2141 * 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F02142 *2143 *2144 * HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF2145 * HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL2146 * ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK2147 * PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT2148 * IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C0002149 * WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D0002150 * RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE2151 * MEMORY ADDRESSED AS FOLLOWS....2152 *2153 * 0 1 2 3 4 5 6 7 8 9 A B C D E F2154 * 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- --2155 *2156 *2157 FF3A 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE2158 FF3E A7 2D STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD2159 FF40 6F 2E CLR 14,Y CLEAR $DFDE2160 FF42 86 F0 LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ?2161 FF44 A7 2F STA 15,Y STORE AT $DFDF2162 FF46 86 0C LDA #$0C PRESET NUMBER OF BYTES TO CLEAR2163 FF48 6F A6 CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD02164 FF4A 4A DECA SUB. 1 FROM BYTES LEFT TO CLEAR2165 FF4B 2A FB BPL CLRLRT CONTINUE IF NOT DONE CLEARING2166 FF4D 30 89 F0 00 FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM2167 FF51 8C F0 A0 CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO2168 FF54 27 22 BEQ FINTAB SKIP IF FINISHED2169 FF56 EE 84 LDU ,X SAVE DATA AT CURRENT TEST LOCATION2170 FF58 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG.2171 FF5C 10 AF 84 STY ,X STORE TEST PATT. INTO RAM TEST LOC.2172 FF5F 10 AC 84 CMPY ,X VERIFY RAM AT TEST LOCATION2173 FF62 26 E9 BNE FNDRAM IF NO RAM GO LOOK 4K LOWER2174 FF64 EF 84 STU ,X ELSE RESTORE DATA TO TEST LOCATION2175 FF66 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE2176 FF6A 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D2177 FF6C 44 LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D32178 FF6D 44 LSRA TO ALLOW STORING IT IN THE DAT RAM.2179 FF6E 44 LSRA2180 FF6F 44 LSRA2181 FF70 1F 89 TFR A,B SAVE OFFSET INTO LRARAM TABLE2182 FF72 88 0F EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK2183 FF74 A7 A5 STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE2184 FF76 20 D5 BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK2185 FF78 86 F1 FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ?2186 FF7A 10 8E DF D0 LDY #LRARAM POINT TO LRARAM TABLE2187 FF7E A7 2E STA 14,Y STORE $F1 AT $DFCE2188 *2189 * THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF2190 * RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES2191 * THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT2192 * LOGICALLY RESPONDS TO THE ADDRESS $C---.2193 *2194 *2195 FF80 86 0C LDA #$0C PRESET NUMBER HEX "C"2196 FF82 E6 A6 FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE2197 FF84 26 05 BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR.2198 FF86 4A DECA ELSE POINT 4K LOWER2199 FF87 2A F9 BPL FINDC GO TRY AGAIN2200 FF89 20 14 BRA XFERTF2201 FF8B 6F A6 FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND2202 FF8D E7 2C STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C---2203 *2204 * THE FOLLOWING CODE ADJUSTS THE TRANSLATION2205 * FACTORS SUCH THAT ALL REMAINING RAM WILL2206 * RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL2207 * ADDRESSES FROM $0000 AND UP....2208 *2209 FF8F 4F CLRA START AT ZERO2210 FF90 1F 21 TFR Y,X START POINTER "X" START OF "LRARAM" TABLE.2211 FF92 E6 A6 COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE2212 FF94 27 04 BEQ PNTNXT IF IT'S ZER0 SKIP2213 FF96 6F A6 CLR A,Y ELSE ERASE FROM TABLE2214 FF98 E7 80 STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP2215 FF9A 4C PNTNXT INCA GET OFFSET TO NEXT ENTRY2216 FF9B 81 0C CMPA #$0C LAST ENTRY YET ?2217 FF9D 2D F3 BLT COMPRS2218 *2219 * THE FOLLOWING CODE TRANSFER THE TRANSLATION2220 * FACTORS FROM THE LRARAM TABLE TO IC11 ON2221 * THE MP-09 CPU CARD.2222 *2223 FF9F 8E FF F0 XFERTF LDX #IC11 POINT TO DAT RAM IC112224 FFA2 C6 10 LDB #$10 GET NO. OF BYTES TO MOVE2225 FFA4 A6 A0 FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT2226 FFA6 A7 80 STA ,X+ POKE XLATION FACTOR IN IC112227 FFA8 5A DECB SUB 1 FROM BYTES TO MOVE2228 FFA9 26 F9 BNE FETCH CONTINUE UNTIL 16 MOVED2229 *2230 ELSE2231 LRA RTS2232 START LDS #STACK INITIALIZE STACK POINTER2233 CLRB2234 ENDIF DATOPT2234 ENDIF DATOPT2235 *2236 FFAB 53 COMB SET "B" NON-ZERO2237 FFAC F7 DF E2 STB ECHO TURN ON ECHO FLAG2238 FFAF 16 F8 62 LBRA MONITOR INITIALIZATION IS COMPLETE2239 *2240 ** INTERRUPT JUMP VECTORS2241 *2242 FFB2 6E 9F DF C0 V1 JMP [STACK]2243 FFB6 6E 9F DF C4 V2 JMP [SWI2]2244 FFBA 6E 9F DF C6 V3 JMP [FIRQ]2245 FFBE 6E 9F DF C8 V4 JMP [IRQ]2246 FFC2 6E 9F DF CA V5 JMP [SWI]2247 *2248 * SWI3 ENTRY POINT2249 *2250 FFC6 1F 43 SWI3E TFR S,U2251 FFC8 AE 4A LDX 10,U *$FFC82252 FFCA E6 80 LDB ,X+2253 FFCC AF 4A STX 10,U2254 FFCE 4F CLRA2255 FFCF 58 ASLB2256 FFD0 49 ROLA2257 FFD1 BE DF CC LDX SVCVO2258 FFD4 8C FF FF CMPX #$FFFF2259 FFD7 27 0F BEQ SWI3Z2260 FFD9 30 8B LEAX D,X2261 FFDB BC DF CE CMPX SVCVL2262 FFDE 22 08 BHI SWI3Z2263 FFE0 34 10 PSHS X2264 FFE2 EC C4 LDD ,U2265 FFE4 AE 44 LDX 4,U2266 FFE6 6E F1 JMP [,S++]2267 FFE8 37 1F SWI3Z PULU A,B,X,CC,DP2268 FFEA EE 42 LDU 2,U2269 FFEC 6E 9F DF C2 JMP [SWI3]2270 *2271 * 6809 VECTORS2272 *2273 FFF0 ORG $FFF02274 FFF0 FF B2 FDB V1 USER-V2275 FFF2 FF C6 FDB SWI3E SWI3-V2276 FFF4 FF B6 FDB V2 SWI2-V2277 FFF6 FF BA FDB V3 FIRQ-V2278 FFF8 FF BE FDB V4 IRQ-V2279 FFFA FF C2 FDB V5 SWI-V2280 FFFC FF B2 FDB V1 NMI-V2281 FFFE FF 00 FDB START RESTART-V0004 END START0005 ENDProgram + Init Data = 2034 bytesError count = 0
Go to most recent revision | Compare with Previous | Blame | View Log