URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [trunk/] [src/] [sys09bug/] [sys09atl.lst] - Rev 219
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 ATLYS0000 INCLUDE "opt_atl.asm"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 *SWTOPT EQU $FF SWTP ACIA SERIAL CONTROL PORT0012 *ADSOPT EQU $FF ADS6809 & DG640 VIDEO DISPAY0013 *B3SOPT EQU $FF B3-SPARTAN2 FPGA VIDEO & PS2 KEYBOARD0014 *B5XOPT EQU $FF B5-X300 FPGA VIDEO & PS2 KEYBOARD0015 *S3SOPT EQU $FF SPARTAN3 STARTER FPGA VIDEO & PS2 KEYBOARD0016 *S3EOPT EQU $FF SPARTAN3E STARTER0017 *XESOPT EQU $FF XESS XSA-3S100 & XST-3.00018 00FF ATLOPT EQU $FF Digilent Atlys0019 *0002 END0000 INCLUDE "sys09equ.asm"0001 *0002 ***************************************************0003 * MEMORY MAP EQUATES *0004 ***************************************************0005 E000 MONIO EQU $E000 I/O SPACE0006 IFD B3SOPT0007 MONEXT EQU $F000 START OF EXTENDED COMMANDS0008 EXTCMD EQU $00 EXTENDED OFFSET0009 ENDIF B3SOPT0009 ENDIF B3SOPT0010 IFD S3EOPT0011 MONRAM EQU $7FC00012 ELSE0013 DFC0 MONRAM EQU $DFC0 STACK SPACE0014 ENDIF S3EOPT0015 F800 MONROM EQU $F800 START OF ROM0016 IFD S3SOPT0017 MONEXT EQU $F000 START OF EXTENDED COMMANDS0018 EXTCMD EQU $00 EXTENDED OFFSET0019 ENDIF S3SOPT0019 ENDIF S3SOPT0020 IFD XESOPT0021 MONEXT EQU $F000 START OF EXTENDED COMMANDS0022 EXTCMD EQU $00 EXTENDED OFFSET0023 ENDIF XESOPT0023 ENDIF XESOPT0024 IFD DE270OPT0025 MONEXT EQU $F000 START OF EXTENDED COMMANDS0026 EXTCMD EQU $00 EXTENDED OFFSET0027 ENDIF DE270OPT0027 ENDIF DE270OPT0028 **************************************************0029 **************************************************00300031 IFD SWTOPT0032 *0033 * SOUTH WEST TECHNICAL PRODUCTS COMPUTER0034 *0035 ACIAOPT EQU $FF ACIA AT PORT 00036 DMAFOPT EQU $FF DMAF2 8" FLOPPY DISK BOOT0037 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT0038 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0039 ENDIF0039 ENDIF0040 *0041 IFD ADSOPT0042 *0043 * ACKERMAN DIGITAL ADS68090044 *0045 DG640OPT EQU $FF DG640 VDU AT $E8000046 *RTCOPT EQU $FF REAL TIME CLOCK0047 PRTOPT EQU $FF PRINTER DRIVERS0048 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT0049 ENDIF ADSOPT0049 ENDIF ADSOPT0050 *0051 IFD B3SOPT0052 *0053 * BURCHED SPARTAN 2 B3+0054 *0055 ACIAOPT EQU $FF ACIA AT PORT 00056 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200057 VDUOPT EQU $FF VDU AT $E0300058 IDEOPT EQU $FF IDE AT $E1000059 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0060 HFCOPT EQU $FF HARDWARE FLOW CONTROL0061 ENDIF B3SOPT0061 ENDIF B3SOPT0062 *0063 IFD B5XOPT0064 *0065 * BURCHED SPARTAN 2 B5-X3000066 *0067 ACIAOPT EQU $FF ACIA AT PORT 00068 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200069 VDUOPT EQU $FF VDU AT $E0300070 CF8OPT EQU $FF COMPACT FLASH AT $E0400071 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0072 HFCOPT EQU $FF HARDWARE FLOW CONTROL0073 ENDIF B5XOPT0073 ENDIF B5XOPT0074 *0075 IFD S3SOPT0076 *0077 * DIGILENT SPARTAN 3 STARTER0078 *0079 ACIAOPT EQU $FF ACIA AT PORT 00080 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200081 VDUOPT EQU $FF VDU AT $E0300082 CF8OPT EQU $FF COMPACT FLASH AT $E0400083 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0084 EXTOPT EQU $FF EXTENDED COMMANDS0085 ENDIF S3SOPT0085 ENDIF S3SOPT0086 *0087 IFD S3EOPT0088 *0089 * DIGILENT SPARTAN 3E STARTER0090 *0091 ACIAOPT EQU $FF ACIA AT PORT 00092 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200093 VDUOPT EQU $FF VDU AT $E0300094 TRAOPT EQU $FF PIA TRACE TIMER0095 ENDIF S3EOPT0095 ENDIF S3EOPT0096 *0097 IFD XESOPT0098 *0099 * XESS SPARTAN 3 XSA-3S1000 & XST-3.00100 *0101 ACIAOPT EQU $FF ACIA AT PORT 00102 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200103 VDUOPT EQU $FF VDU AT $E0300104 IDEOPT EQU $FF IDE AT $E1000105 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0106 HFCOPT EQU $FF HARDWARE FLOW CONTROL0107 EXTOPT EQU $FF EXTENDED COMMANDS0108 ENDIF XESOPT0108 ENDIF XESOPT0109 *0110 IFD DE270OPT0111 *0112 * TERASIC CYCLONE 2 DE2-700113 *0114 ACIAOPT EQU $FF ACIA AT PORT 00115 PS2OPT EQU $FF PS2 KEYBOARD AT $E0200116 VDUOPT EQU $FF VDU AT $E0300117 CF8OPT EQU $FF COMPACT FLASH AT $E0400118 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION0119 EXTOPT EQU $FF EXTENDED COMMANDS0120 ENDIF DE270OPT0120 ENDIF DE270OPT0121 *0122 *0123 IFD ACIAOPT0124 *0125 ***************************************************0126 * SERIAL PORT *0127 ***************************************************0128 *0129 ** ACIA SITS ON PORT 00130 *0131 ACIAS EQU MONIO+$00 CONTROL PORT0132 *0133 ENDIF ACIAOPT0133 ENDIF ACIAOPT0134 IFD MFDCOPT0135 *0136 ***************************************************0137 * MINIFLOPPY DRIVE *0138 ***************************************************0139 *0140 ** FLOPPY DISK CONTROLLER SITS ON PORT 10141 *0142 DRVFDC EQU MONIO+$140143 CMDFDC EQU MONIO+$180144 SECFDC EQU MONIO+$1A0145 DATFDC EQU MONIO+$1B0146 ENDIF MFDCOPT0146 ENDIF MFDCOPT0147 IFD PS2OPT0148 *0149 ***************************************************0150 * VDU8 PS/2 KEYBOARD PORT *0151 ***************************************************0152 *0153 ** KEYBOARD SITS ON PORT 20154 *0155 PS2KBD EQU MONIO+$20 PS/2 KEYBOARD PORT0156 ENDIF PS2OPT0156 ENDIF PS2OPT0157 IFD VDUOPT0158 *0159 ***************************************************0160 * VDU8 DISPLAY DRIVER EQUATES *0161 ***************************************************0162 *0163 ** VDU8 DISPLAY SITS ON PORT 30164 *0165 VDU EQU MONIO+$300166 VDUCHR EQU 0 CHARACTER REGISTER0167 VDUATT EQU 1 ATTRIBUTE REGISTER0168 VDUCOL EQU 2 CURSOR COLUMN0169 VDUROW EQU 3 CURSOR ROW0170 VDUOFF EQU 4 ROW OFFSET0171 *0172 LINLEN EQU 80 LENGTH OF A LINE0173 NUMLIN EQU 25 NUMBER OF LINES0174 ENDIF VDUOPT0174 ENDIF VDUOPT0175 *0176 IFD CF8OPT0177 *0178 ***************************************************0179 * COMPACT FLASH EQUATES 8 BIT TRANSFER *0180 ***************************************************0181 *0182 ** COMPACT FLASH SITS AT PORT 40183 *0184 CF_BASE EQU MONIO+$400185 CF_DATA EQU CF_BASE+00186 CF_ERROR EQU CF_BASE+1 ; read error0187 CF_FEATURE EQU CF_BASE+1 ; write feature0188 CF_SECCNT EQU CF_BASE+20189 CF_SECNUM EQU CF_BASE+30190 CF_CYLLO EQU CF_BASE+40191 CF_CYLHI EQU CF_BASE+50192 CF_HEAD EQU CF_BASE+60193 CF_STATUS EQU CF_BASE+7 ; read status0194 CF_COMAND EQU CF_BASE+7 ; write command0195 *0196 * Command Equates0197 *0198 CMDREAD EQU $20 ; Read Single sector0199 CMDWRITE EQU $30 ; Write Single sector0200 CMDFEATURE EQU $EF0201 FEAT8BIT EQU $01 ; enable 8 bit transfers0202 HEADLBA EQU $E00203 *0204 * Status bit equates0205 *0206 BUSY EQU $800207 DRDY EQU $400208 DRQ EQU $080209 ERR EQU $010210 *0211 ENDIF CF8OPT0211 ENDIF CF8OPT0212 *0213 IFD IDEOPT0214 *0215 ***************************************************0216 * COMPACT FLASH EQUATES 16 BIT TRANSFER (XESS) *0217 ***************************************************0218 *0219 ** COMPACT FLASH SITS AT PORT 40220 *0221 CF_BASE EQU MONIO+$01000222 CF_DATA EQU CF_BASE+00223 CF_ERROR EQU CF_BASE+2 ; read error0224 CF_FEATURE EQU CF_BASE+2 ; write feature0225 CF_SECCNT EQU CF_BASE+40226 CF_SECNUM EQU CF_BASE+60227 CF_CYLLO EQU CF_BASE+80228 CF_CYLHI EQU CF_BASE+100229 CF_HEAD EQU CF_BASE+120230 CF_STATUS EQU CF_BASE+14 ; read status0231 CF_COMAND EQU CF_BASE+14 ; write command0232 CF_AUX EQU CF_BASE+300233 *0234 * Command Equates0235 *0236 CMDREAD EQU $20 ; Read Single sector0237 CMDWRITE EQU $30 ; Write Single sector0238 AUXRESET EQU $06 ; Reset IDE0239 AUXRSTREL EQU $02 ; Reset release IRQ masked0240 HEADLBA EQU $E00241 *0242 * Status bit equates0243 *0244 BUSY EQU $800245 DRDY EQU $400246 DRQ EQU $080247 ERR EQU $010248 *0249 ENDIF CF8OPT0249 ENDIF CF8OPT0250 *0251 IFD RTCOPT0252 *0253 **************************************************0254 * MM58167A REAL TIME CLOCK MEMORY MAP:0255 **************************************************0256 *0257 ** REAL TIME CLOCK SITS ON PORT 4 AND PORT 50258 *0259 CLOCK EQU MONIO+$40 CLOCK BASE ADDRESS AND REGISTERS0260 *0261 * COUNTER AND COMPARITOR REGISTERS:0262 *0263 * Both the Clock Counter and Clock Comparitor0264 * consist of 8 registers for holding the time.0265 * The register offsets from the Counter and0266 * Comparitor registers are listed above.0267 *0268 COUNTR EQU CLOCK+00269 CMPRAM EQU CLOCK+8 COMPARITOR REGISTERS0270 *0271 * CLOCK REGISTER OFFSETS:0272 * These register offsets are used for the CLOCK0273 * and comparitor ram CMPRAM.0274 *0275 S10000 EQU 0 TEN THOUNSANDTHS OF SECONDS0276 S100 EQU 1 HUNDRETHS AND TENTHS OF SECONDS0277 SECOND EQU 20278 MINUIT EQU 30279 HOUR EQU 40280 WKDAY EQU 50281 MTHDAY EQU 60282 MONTH EQU 70283 *0284 * INTERRUPT OUTPUT REGISTERS:0285 *0286 * An interrupt output may be generated at the0287 * following rates by setting the appropriate bit0288 * in the Interrupt Control Register (CINTCR).0289 * The Interrupt Status Register (CINTSR) must be0290 * read to clear the interrupt and will return0291 * the source of the interrupt.0292 *0293 * 1/Month Bit 70294 * 1/Week Bit 60295 * 1/Day Bit 50296 * 1/Hour Bit 40297 * 1/Minuite Bit 30298 * 1/Second Bit 20299 * 10/Second Bit 10300 * Comparitor Bit 00301 *0302 CINTSR EQU CLOCK+16 INTERRUPT STATUS REGISTER0303 CINTCR EQU CLOCK+17 INTERRUPT CONTROL REGISTER0304 *0305 * COUNTER AND RAM RESETS; GO COMMAND.0306 *0307 * The counter and comparitor may be reset0308 * by writing $FF into CTRRES and CMPRES0309 * respectivly.0310 * A write to the Go command register (GOCMND)0311 * will reset the 1/1000ths, 1/100ths and 1/10ths0312 * of a second counter.0313 *0314 CTRRES EQU CLOCK+18 COUNTER RESET0315 CMPRES EQU CLOCK+19 COMPARITOR RAM RESET0316 GOCMND EQU CLOCK+21 GO COMMAND0317 *0318 * CLOCK STATUS REGISTER.0319 *0320 * The counter takes 61 usec. to rollover for0321 * every 1KHz clock pulse. If the Status bit is0322 * set after reading the counter, the counter0323 * should be re-read to ensure the time is correct.0324 *0325 CLKSTA EQU CLOCK+20 STATUS BIT0326 SBYINT EQU CLOCK+22 STANDBY INTERRUPT0327 TSTMOD EQU CLOCK+31 TEST MODE REGISTER0328 ENDIF RTCOPT0328 ENDIF RTCOPT0329 *0330 IFD TRAOPT0331 *0332 **************************************************0333 * PIA INTERRUPT TIMER0334 **************************************************0335 *0336 ** PIA INTERRUPT TIMER SITS ON PORT 70337 *0338 ** PIA TIMER FOR SINGLE STEP / TRACE0339 *0340 * TADATA = Output = Timer preset register0341 * TACTRL - CA1 = input = rising edge = NMI0342 * - CA2 = Output = Timer Reset (Active High)0343 * TBDATA = Input = Timer read back register0344 * TBCTRL - CB1 = input = rising edge = FIRQ0345 * - CB2 = output = strobe low on write to TBDATA = Timer Preset0346 *0347 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB0348 * CRA1 = 1 CA1 Rising edge IRQ0349 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register0350 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 10351 * CRA4 = 1 ] CA2 = Set/Reset output0352 * CRA5 = 1 ]0353 * CRA6 = X CA2 Input Interrupt Flag0354 * CRA7 = X CA1 Interrupt Flag0355 *0356 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB0357 * CRB1 = 1 CB1 Rising edge IRQ0358 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register0359 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 10360 * CRB4 = 1 ] CB2 = Set/Reset output0361 * CRB5 = 1 ]0362 * CRB6 = X CB2 Input Interrupt Flag0363 * CRB7 = X CB1 Interrupt Flag0364 *0365 * DDRA = 0 TADATA = Input, DDRA = 1 TADATA = Output0366 * DDRB = 0 TBDATA = Input, DDRB = 1 TBDATA = Output0367 *0368 TADATA EQU MONIO+$70 Timer preset port0369 TACTRL EQU MONIO+$710370 TBDATA EQU MONIO+$72 Timer read back port0371 TBCTRL EQU MONIO+$730372 *0373 TRADEL EQU 13 Number of E cycles for RTI (May need to be fudged)0374 *0375 ENDIF TRAOPT0375 ENDIF TRAOPT0376 IFD ADSOPT0377 *0378 ***************************************************0379 * SERIAL PORT FOR DG640 *0380 ***************************************************0381 *0382 ** SET UP FOR ACKERMAN DIGITAL ADS68090383 ** THE ADS6809 S100 BOAD HAS AN ON BOARD ACIA0384 *0385 ACIAS EQU MONIO+$400 CONTROL PORT0386 *0387 ENDIF ADSOPT0387 ENDIF ADSOPT0388 IFD PRTOPT0389 *0390 ***************************************************0391 * PRINTER INTERFACE *0392 ***************************************************0393 *0394 PADATA EQU MONIO+$4040395 PACTRL EQU MONIO+$4050396 PBDATA EQU MONIO+$4060397 PBCTRL EQU MONIO+$4070398 *0399 ** CB1 ACK. I/P0400 ** CB2 STB. O/P0401 ** PB0 - PB7 DATA 1 - 8 O/P0402 ** PORT A BIT ASSIGNMENT0403 *0404 PBUSY EQU $80 I/P0405 PEMPTY EQU $40 I/P0406 SELECT EQU $20 I/P0407 PERROR EQU $10 I/P0408 PRESET EQU %00000100 O/P PA3 = 00409 AUTOFD EQU %00001000 O/P PA2 = 00410 DIRMSK EQU %000011000411 ENDIF PRTOPT0411 ENDIF PRTOPT0412 IFD DG640OPT0413 *0414 ***************************************************0415 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES *0416 ***************************************************0417 *0418 ** VIDEO DISPLAY DEFINITIONS0419 *0420 SCREEN EQU MONIO+$0800 START OF SCREEN MEMORY0421 LINLEN EQU 64 LENGTH OF A LINE0422 NUMLIN EQU 16 NUMBER OF LINES0423 SCNLEN EQU $400 LENGTH OF SCREEN0424 ENDIF DG640OPT0424 ENDIF DG640OPT0425 *0426 IFD DMAFOPT0427 *0428 ***************************************************0429 * DMAF2 8" DRIVE *0430 ***************************************************0431 *0432 ADDREG EQU $F000 ADDRESS REGISTER0433 CNTREG EQU $F002 COUNT REGISTER0434 CCREG EQU $F010 CHANNEL CONTROL REGISTER0435 PRIREG EQU $F014 DMA PRIORITY REGISTER0436 AAAREG EQU $F015 ???0437 BBBREG EQU $F016 ???0438 COMREG EQU $F020 1791 COMMAND REGISTER0439 SECREG EQU $F022 SECTOR REGISTER0440 DRVREG EQU $F024 DRIVE SELECT LATCH0441 CCCREG EQU $F040 ???0442 ENDIF DMAFOPT0442 ENDIF DMAFOPT0443 IFD DATOPT0444 **************************************************0445 * DYNAMIC ADDRESS TRANSLATION REGISTERS *0446 **************************************************0447 *0448 IC11 EQU $FFF0 DAT RAM CHIP0449 TSTPAT EQU $55AA TEST PATTERN0450 ENDIF DATOPT0450 ENDIF DATOPT0451 *0003 END0000 INCLUDE "sys09nul.asm"0001 *0002 ** SYS09BUG MONITOR EXTENSIONS0003 *0004 * FOR GENERIC SYS09BUG0005 * WITH I/O MAPPED AT $XE0000006 * AND ROM MAPPED AT $XF0000007 * (JUST A COPY OF SYS09IDE.ASM0008 * TO FILL THE MEMORY AT F000)0009 *0010 *sys09nul.asm page 20012 *0013 ***************************************************0014 * Serial PROM register0015 ***************************************************0016 *0017 ** CONFIGURATION PROM DEFINITIONS0018 *0019 E0C0 PROMREG EQU MONIO+$C00020 0001 PCLKHI EQU $01 Toggle PROM Clock High0021 0000 PCLKLO EQU $00 Toggle PROM Clock Low0022 0002 PRSTHI EQU $02 Toggle PROM Reset High0023 0000 PRSTLO EQU $00 Toggle PROM Reset Low0024 AA55 SYNCHI EQU $AA55 Synch Pattern High Word0025 FF00 SYNCLO EQU $FF00 Synch Pattern Low Word0026 *0027 *0028 ***************************************************0029 * START OF ROM *0030 ***************************************************0031 *0032 F800 MONITV EQU MONROM+0 FDB MONITOR0033 F802 NXTCMV EQU MONROM+2 FDB NEXTCMD0034 F804 INCHV EQU MONROM+4 FDB INCH0035 F806 INCHEV EQU MONROM+6 FDB INCHE0036 F808 INCHKV EQU MONROM+8 FDB INCHEK0037 F80A OUTCHV EQU MONROM+10 FDB OUTCH0038 F80C PDATAV EQU MONROM+12 FDB PDATA0039 F80E PCRLFV EQU MONROM+14 FDB PCRLF0040 F810 PSTRGV EQU MONROM+16 FDB PSTRNG0041 F812 LRAV EQU MONROM+18 FDB LRA0042 *0043 * Condition code flags0044 *0045 0001 CFLAG EQU $01 CARRY FLAG0046 0002 VFLAG EQU $02 OVERFLOW FLAG0047 0004 ZFLAG EQU $04 ZERO FLAG0048 0008 NFLAG EQU $08 NEGATIVE FLAG0049 0010 IFLAG EQU $10 IRQ MASK CC0050 0020 HFLAG EQU $20 HALF CARRY0051 0040 FFLAG EQU $40 FIRQ MASK CC0052 0080 EFLAG EQU $80 ENTIRE FLAG0053 *0054 * Serial Port0055 *Symbol 'ACIAS' undefined Pass 20056 0000 ACIAC1 EQU ACIASSymbol 'ACIAS' undefined Pass 20057 0001 ACIAD1 EQU ACIAS+10058 04E2 DELCON EQU 1250 Delay (Processor clock in MHz * 50)0059 *0060 * XMODEM Control characters0061 *0062 0001 SOH EQU $010063 0004 EOT EQU $040064 0006 ACK EQU $060065 0015 NAK EQU $150066 0018 CAN EQU $180067 *0068 * Some Disk Constants0069 *0070 0100 RMAXTRK EQU 2560071 00FF RMAXSEC EQU 2550072 FE01 RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC0073 *0074 * RAM SPACE0075 *0076 * PUT THIS DOWN THE BOTTOM OF MEMORY0077 *0078 0100 ORG $01000079 0100 DRVNUM RMB 10080 0101 TRACK RMB 10081 0102 SECTOR RMB 10082 0103 CHKSUM RMB 10083 0104 BLKNUM RMB 1 Xmodem block number0084 0105 BYTCNT RMB 1 Xmodem byte count0085 0106 XSTATE RMB 2 Xmodem State Vector0086 0108 DELCNT RMB 3 $00,$00,$00 Xmodem Poll timer0087 010B MAXTRK RMB 10088 010C MAXSEC RMB 10089 0200 ORG $02000090 *0091 * SECTOR BUFFER0092 *0093 0200 BUFFER RMB 2560094 *0095 ****************************************0096 *0097 * START OF EXTENSION COMMANDS0098 *0099 ****************************************0100 *Symbol 'MONEXT' undefined Pass 20101 0000 ORG MONEXT0102 0000 00 02 FDB NEXTEXT Jump to next extended command0103 *0104 ***** NEXTCMD *****0105 *0106 0002 AD 9F F8 06 NEXTEXT JSR [INCHEV] GET ONE CHAR. FROM TERMINAL0107 0006 84 7F ANDA #$7F STRIP PARITY FROM CHAR.0108 0008 1F 89 TFR A,B0109 000A 86 20 LDA #$200110 000C AD 9F F8 0A JSR [OUTCHV] PRNT SPACE0111 0010 C1 60 CMPB #$600112 0012 2F 02 BLE NXTEX00113 0014 C0 20 SUBB #$200114 *0115 ***** DO TABLE LOOKUP *****0116 * FOR COMMAND FUNCTIONS0117 *0118 0016 8E 00 2C NXTEX0 LDX #EXTTAB POINT TO JUMP TABLE0119 0019 E1 80 NXTEX1 CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ?0120 001B 27 0D BEQ JMPEXT BRANCH IF MATCH FOUND0121 001D 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE0122 001F 8C 00 35 CMPX #EXTEND REACHED END OF TABLE YET ?0123 0022 26 F5 BNE NXTEX1 IF NOT END, CHECK NEXT ENTRY0124 0024 8E 00 35 LDX #MSGWHAT POINT TO MSG "WHAT?"0125 0027 16 02 1E LBRA PDATA1 PRINT MSG AND RETURN0126 002A 6E 94 JMPEXT JMP [,X] JUMP TO COMMAND ROUTINE0127 *0128 * EXTENDED COMMAND JUMP TABLE0129 *0130 002C EXTTAB EQU *0131 002C 42 FCC 'B' BOOT FLEX0132 002D 00 3E FDB UBSUB0133 002F 46 FCC 'F' FORMAT IDE DISK0134 0030 00 E6 FDB UFSUB0135 0032 58 FCC 'X' XMODEM ROM DISK UPLOAD0136 0033 02 B1 FDB UXSUB0137 *0138 0035 EXTEND EQU *0139 *0140 0035 57 48 41 54 20 3F MSGWHAT FCC "WHAT ?"0141 003B 0A 0D 04 FCB $0A,$0D,$040142 *0143 * GO TO FLEX RESIDENT IN MEMORY0144 *0145 003E 8E CD 00 UBSUB LDX #$CD000146 0041 AF 4A STX 10,U0147 0043 1F 34 TFR U,S0148 0045 3B RTI0149 *0150 * recieve char from remote drive.0151 * timeout if no response for approx 1s.0152 * Entry: no parameters0153 * Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.0154 *0155 0046 34 30 RCHAR PSHS X,Y0156 *0157 0048 8E 03 E8 LDX #1000 1000x inner loop0158 004B 10 8E 04 E2 RCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).0159 004F 96 00 RCHAR2 LDA ACIAC1 test for recieved char0160 0051 47 ASRA0161 0052 25 0A BCS RCHAR3 get character0162 0054 31 3F LEAY -1,Y else, continue to count delay0163 0056 26 F7 BNE RCHAR20164 0058 30 1F LEAX -1,X0165 005A 26 EF BNE RCHAR10166 005C 35 B0 PULS X,Y,PC return with error if timed out0167 *0168 005E 96 01 RCHAR3 LDA ACIAD1 return data (carry bit still set)0169 0060 35 B0 PULS X,Y,PC0170 *0171 *0172 * transmit char to remote drive.0173 * timeout if no response for approx 1s. (allows for use of hardware flow control)0174 * Entry: (A) = char to transmit0175 * Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.0176 *0177 0062 34 30 SCHAR PSHS X,Y0178 0064 34 02 PSHS A0179 *0180 0066 8E 03 E8 LDX #1000 1000x inner loop0181 0069 10 8E 04 E2 SCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).0182 006D 96 00 SCHAR2 LDA ACIAC1 test for space in transmit FIFO0183 006F 47 ASRA0184 0070 47 ASRA0185 0071 25 0C BCS SCHAR3 send character0186 0073 31 3F LEAY -1,Y else, continue to count delay0187 0075 26 F6 BNE SCHAR20188 0077 30 1F LEAX -1,X0189 0079 26 EE BNE SCHAR10190 007B 35 02 PULS A0191 007D 35 B0 PULS X,Y,PC return with error if timed out0192 *0193 007F 35 02 SCHAR3 PULS A0194 0081 97 01 STA ACIAD1 send data (carry bit still set)0195 0083 35 B0 PULS X,Y,PC0196 *0197 ** 'UF' Format IDE Drive to FLEX standard.0198 *0199 0085 0A 0D DISFOS FCB $0A,$0D0200 0087 46 6F 72 6D 61 74 FCC 'Formating IDE disk... '69 6E 67 20 49 4445 20 64 69 73 6B2E 2E 2E 200201 009D 0A 0D FCB $0A,$0D0202 009F 44 72 69 76 65 20 FCC 'Drive Number ?'4E 75 6D 62 65 7220 3F0203 00AD 04 FCB 40204 00AE 0A 0D 04 MESS6 FCB $0A,$0D,40205 00B1 49 44 45 20 64 72 FCC 'IDE drive not allocated! '69 76 65 20 6E 6F74 20 61 6C 6C 6F63 61 74 65 64 21200206 00CA 04 FCB 40207 00CB 0A 0D UFMSG1 FCB $0A,$0D0208 00CD 46 6F 72 6D 61 74 FCC 'Format Complete'20 43 6F 6D 70 6C65 74 650209 00DC 04 FCB 40210 00DD 49 44 45 44 49 53 VOLMSG FCC 'IDEDISK '4B 200211 00E5 04 FCB 40212 *0213 00E6 BD 04 B2 UFSUB JSR INITDR0214 00E9 8E 00 85 LDX #DISFOS0215 00EC BD 02 48 JSR PDATA10216 00EF 17 FF 54 UFSUB1 LBSR RCHAR0217 00F2 24 FB BCC UFSUB10218 00F4 17 FF 6B LBSR SCHAR0219 00F7 81 30 CMPA #'0'0220 00F9 10 25 00 EF LBLO UFEXIT0221 00FD 81 33 CMPA #'3'0222 00FF 10 22 00 E9 LBHI UFEXIT0223 0103 80 30 SUBA #'0'0224 0105 1F 89 TFR A,B0225 0107 F7 01 00 STB DRVNUM0226 010A 8E 00 FD LDX #DRVNUM-30227 010D BD 05 2F JSR DRVSEL0228 *0229 * set up free chain0230 *0231 0110 8E 02 00 LDX #BUFFER clear out buffer0232 0113 4F CLRA0233 0114 5F CLRB0234 0115 A7 80 DFL1 STA 0,X+0235 0117 5A DECB0236 0118 26 FB BNE DFL10237 *0238 011A 7F 01 01 CLR TRACK0239 011D 86 01 LDA #10240 011F B7 01 02 STA SECTOR0241 0122 8E 02 00 DFL2 LDX #BUFFER0242 0125 B6 01 01 LDA TRACK0243 0128 A7 84 STA 0,X0244 012A B6 01 02 LDA SECTOR0245 012D 4C INCA0246 012E 81 00 CMPA #RMAXSEC+1 last sector on track?0247 0130 26 04 BNE DFL30248 0132 6C 84 INC 0,X0249 0134 86 01 LDA #10250 0136 A7 01 DFL3 STA 1,X0251 0138 B6 01 01 LDA TRACK0252 013B F6 01 02 LDB SECTOR0253 013E BD 05 0A JSR WRITSC0254 0141 7C 01 02 INC SECTOR0255 0144 B6 01 02 LDA SECTOR0256 0147 81 00 CMPA #RMAXSEC+10257 0149 26 D7 BNE DFL20258 014B 86 01 LDA #10259 014D B7 01 02 STA SECTOR0260 0150 7C 01 01 INC TRACK0261 0153 B6 01 01 LDA TRACK0262 0156 81 00 CMPA #RMAXTRK0263 0158 26 C8 BNE DFL20264 * break free chain at last track/sector0265 015A 8E 02 00 LDX #BUFFER0266 015D 86 FF LDA #RMAXTRK-10267 015F C6 FF LDB #RMAXSEC0268 0161 BD 04 E6 JSR READSC0269 0164 8E 02 00 LDX #BUFFER0270 0167 6F 84 CLR 0,X0271 0169 6F 01 CLR 1,X0272 016B 86 FF LDA #RMAXTRK-10273 016D C6 FF LDB #RMAXSEC0274 016F BD 05 0A JSR WRITSC0275 * set up sector structure, SIR, directory etc0276 0172 8E 02 00 LDX #BUFFER0277 0175 4F CLRA0278 0176 C6 FF LDB #RMAXSEC0279 0178 BD 04 E6 JSR READSC0280 017B 8E 02 00 LDX #BUFFER0281 017E 6F 84 CLR 0,X break end of directory chain0282 0180 6F 01 CLR 1,X0283 0182 4F CLRA0284 0183 C6 FF LDB #RMAXSEC0285 0185 BD 05 0A JSR WRITSC0286 *0287 0188 8E 02 00 LDX #BUFFER0288 018B 4F CLRA0289 018C C6 03 LDB #3 set up SIR0290 018E BD 04 E6 JSR READSC0291 0191 8E 02 00 LDX #BUFFER0292 0194 6F 84 CLR 0,X break forward link0293 0196 6F 01 CLR 1,X0294 *0295 0198 34 20 PSHS Y0296 019A 10 8E 00 DD LDY #VOLMSG0297 019E C6 10 LDB #160298 01A0 A6 A0 DFL4 LDA ,Y+0299 01A2 A7 85 STA B,X0300 01A4 5C INCB0301 01A5 C1 18 CMPB #240302 01A7 26 F7 BNE DFL40303 01A9 35 20 PULS Y0304 *0305 01AB 4F CLRA0306 01AC F6 01 00 LDB DRVNUM volume number0307 01AF ED 88 1B STD 27,X0308 *0309 01B2 CC 01 01 LDD #$0101 first trk/sec 01-010310 01B5 ED 88 1D STD 29,X0311 01B8 86 FF LDA #RMAXTRK-10312 01BA C6 FF LDB #RMAXSEC0313 01BC ED 88 1F STD 31,X0314 01BF ED 88 26 STD 38,X0315 01C2 CC FE 01 LDD #RTOTSEC total DATA sectors (2912-14)0316 01C5 ED 88 21 STD 33,X0317 *0318 01C8 86 01 LDA #01 month set default creation date (SYS09's birthday!)0319 01CA A7 88 23 STA 35,X0320 01CD 86 07 LDA #07 day0321 01CF A7 88 24 STA 36,X0322 01D2 86 07 LDA #07 year0323 01D4 A7 88 25 STA 37,X0324 *0325 01D7 4F RF3 CLRA0326 01D8 C6 03 LDB #30327 01DA BD 05 0A JSR WRITSC0328 *0329 * Not sure what this is about0330 * put bootstrap on track 0 sector 10331 *0332 * LDX #BUFFER0333 * CLRA0334 * LDB #10335 * JSR READSC0336 * LDX #BUFFER0337 * LDA #$AA set the init flag0338 * STA 0,X0339 * LDA #$550340 * STA 1,X0341 * CLRA0342 * LDB #10343 * JSR WRITSC0344 *0345 * Write Boot sector0346 *0347 01DD 8E 07 00 LDX #BOOT0348 01E0 4F CLRA TRACK 00349 01E1 C6 01 LDB #$01 SECTOR 10350 01E3 B7 01 01 STA TRACK0351 01E6 F7 01 02 STB SECTOR0352 01E9 17 03 1E LBSR WRITSC0353 *0354 01EC 8E 00 CB UFEXIT LDX #UFMSG10355 01EF 7E 02 48 JMP PDATA10356 *0357 * ACIA INPUT TEST0358 *0359 01F2 96 00 INTEST LDA ACIAC10360 01F4 85 01 BITA #$010361 01F6 39 RTS0362 *0363 * RESET ACIA0364 *0365 01F7 86 03 ACIRST LDA #$03 master reset0366 01F9 97 00 STA ACIAC10367 01FB 86 11 LDA #$110368 01FD 97 00 STA ACIAC10369 01FF 39 RTS0370 *0371 * ACIA INPUT0372 *0373 0200 86 10 INTER LDA #160374 0202 B7 01 08 STA DELCNT+00375 0205 7F 01 09 CLR DELCNT+10376 0208 7F 01 0A CLR DELCNT+20377 020B 96 00 INTER0 LDA ACIAC10378 020D 85 01 BITA #$010379 020F 26 08 BNE INTER10380 0211 85 78 BITA #$780381 0213 27 09 BEQ INTER20382 0215 8D E0 BSR ACIRST0383 0217 20 E7 BRA INTER0384 *0385 0219 96 01 INTER1 LDA ACIAD10386 021B 1C FD ANDCC #$FF-VFLAG0387 021D 39 RTS0388 *0389 021E 7A 01 0A INTER2 DEC DELCNT+20390 0221 26 E8 BNE INTER00391 0223 7A 01 09 DEC DELCNT+10392 0226 26 E3 BNE INTER00393 0228 7A 01 08 DEC DELCNT+00394 022B 26 DE BNE INTER00395 022D 4F CLRA0396 022E 1A 02 ORCC #VFLAG0397 0230 39 RTS0398 *0399 * ACIA OUTPUT0400 *0401 0231 34 02 OUTTER PSHS A0402 *0403 0233 96 00 OUTTE1 LDA ACIAC10404 0235 85 02 BITA #$020405 0237 26 08 BNE OUTTE20406 0239 85 78 BITA #$780407 023B 27 F6 BEQ OUTTE10408 023D 8D B8 BSR ACIRST0409 023F 20 F2 BRA OUTTE10410 *0411 0241 35 02 OUTTE2 PULS A0412 0243 97 01 STA ACIAD10413 0245 39 RTS0414 *0415 * Print Data0416 *0417 0246 8D E9 PDATA0 BSR OUTTER0418 0248 A6 80 PDATA1 LDA ,X+0419 024A 81 04 CMPA #$040420 024C 26 F8 BNE PDATA00421 024E 39 RTS0422 *0423 *0424 ** 'UX' Xmodem IDE Disk upload0425 *0426 024F 0D 0A UXMES0 FCB $0D,$0A0427 0251 58 6D 6F 64 65 6D FCC 'Xmodem IDE Disk Upload'20 49 44 45 20 4469 73 6B 20 55 706C 6F 61 640428 0267 04 FCB 40429 0268 0D 0A UXMES1 FCB $0D,$0A0430 026A 55 70 6C 6F 61 64 FCC 'Upload Complete'20 43 6F 6D 70 6C65 74 650431 0279 04 FCB 40432 027A 0D 0A UXMES2 FCB $0D,$0A0433 027C 55 70 6C 6F 61 64 FCC 'Upload Error'20 45 72 72 6F 720434 0288 04 FCB 40435 0289 0D 0A UXMSG3 FCB $0D,$0A0436 028B 44 72 69 76 65 20 FCC 'Drive Number :'4E 75 6D 62 65 7220 3A0437 0299 04 FCB 40438 029A 0D 0A UXMSG4 FCB $0D,$0A0439 029C 41 72 65 20 59 6F FCC 'Are You Sure ? (Y/N)'75 20 53 75 72 6520 3F 20 28 59 2F4E 290440 02B0 04 FCB 40441 *0442 * Print Banner0443 *0444 02B1 8E 02 4F UXSUB LDX #UXMES00445 02B4 17 FF 91 LBSR PDATA10446 *0447 * Prompt for Disk drive number (0 to 3)0448 *0449 02B7 8E 02 89 LDX #UXMSG30450 02BA 17 FF 8B LBSR PDATA10451 02BD 17 FF 40 UXSUB1 LBSR INTER0452 02C0 29 FB BVS UXSUB10453 02C2 17 FF 6C LBSR OUTTER0454 02C5 81 30 CMPA #'00455 02C7 10 25 01 2E LBLO UXEXIT0456 02CB 81 33 CMPA #'30457 02CD 10 22 01 28 LBHI UXEXIT0458 02D1 80 30 SUBA #'00459 02D3 B7 01 00 STA DRVNUM0460 *0461 * Report selected drive0462 *0463 02D6 8E 02 89 LDX #UXMSG30464 02D9 17 FF 6C LBSR PDATA10465 02DC B6 01 00 LDA DRVNUM0466 02DF 8B 30 ADDA #'00467 02E1 17 FF 4D LBSR OUTTER0468 *0469 * Ask for confirmation (Y/N)0470 *0471 02E4 8E 02 9A LDX #UXMSG40472 02E7 17 FF 5E LBSR PDATA10473 02EA 17 FF 13 UXSUB2 LBSR INTER0474 02ED 29 FB BVS UXSUB20475 02EF 17 FF 3F LBSR OUTTER0476 02F2 84 5F ANDA #$5F0477 02F4 81 4E CMPA #'N0478 02F6 10 27 00 FF LBEQ UXEXIT0479 02FA 81 59 CMPA #'Y0480 02FC 26 B3 BNE UXSUB0481 *0482 * We have confirmation ... now load the disk image0483 *0484 02FE 17 01 B1 LBSR INITDR0485 0301 CE 04 22 LDU #XSTST0486 0304 FF 01 06 STU XSTATE0487 0307 86 01 LDA #10488 0309 B7 01 04 STA BLKNUM0489 *0490 * Sector10491 *0492 030C 8E 02 00 LDX #BUFFER0493 *0494 030F 4F CLRA TRACK 00495 0310 C6 01 LDB #$01 SECTOR 10496 0312 B7 01 01 STA TRACK0497 0315 F7 01 02 STB SECTOR0498 *0499 0318 17 00 EA LBSR XREAD0500 031B 10 25 00 E0 LBCS UXERR0501 031F 17 01 87 LBSR XACK0502 0322 17 00 E0 LBSR XREAD0503 0325 10 25 00 D6 LBCS UXERR0504 *0505 0329 8E 02 00 LDX #BUFFER0506 032C B6 01 01 LDA TRACK0507 032F F6 01 02 LDB SECTOR0508 0332 17 01 D5 LBSR WRITSC0509 0335 17 01 71 LBSR XACK0510 *0511 * Sector 20512 *0513 0338 8E 02 00 LDX #BUFFER0514 *0515 033B B6 01 01 LDA TRACK0516 033E F6 01 02 LDB SECTOR0517 0341 5C INCB0518 0342 B7 01 01 STA TRACK0519 0345 F7 01 02 STB SECTOR0520 *0521 0348 17 00 BA LBSR XREAD0522 034B 10 25 00 B0 LBCS UXERR0523 034F 17 01 57 LBSR XACK0524 0352 17 00 B0 LBSR XREAD0525 0355 10 25 00 A6 LBCS UXERR0526 *0527 0359 8E 02 00 LDX #BUFFER0528 035C B6 01 01 LDA TRACK0529 035F F6 01 02 LDB SECTOR0530 0362 17 01 A5 LBSR WRITSC0531 *0532 0365 17 01 41 LBSR XACK0533 *0534 * Sector 3 - SIR0535 *0536 0368 8E 02 00 LDX #BUFFER0537 *0538 036B B6 01 01 LDA TRACK0539 036E F6 01 02 LDB SECTOR0540 0371 5C INCB0541 0372 B7 01 01 STA TRACK0542 0375 F7 01 02 STB SECTOR0543 *0544 0378 17 00 8A LBSR XREAD0545 037B 10 25 00 80 LBCS UXERR0546 037F 17 01 27 LBSR XACK0547 0382 17 00 80 LBSR XREAD0548 0385 10 25 00 76 LBCS UXERR0549 *0550 0389 8E 02 00 LDX #BUFFER0551 038C A6 88 26 LDA 38,X0552 038F 4C INCA0553 0390 B7 01 0B STA MAXTRK0554 0393 E6 88 27 LDB 39,X0555 0396 5C INCB0556 0397 F7 01 0C STB MAXSEC0557 039A B6 01 01 LDA TRACK0558 039D F6 01 02 LDB SECTOR0559 03A0 17 01 67 LBSR WRITSC0560 *0561 03A3 17 01 03 LBSR XACK0562 *0563 * Sector 4 to Last Track & Sector0564 *0565 *0566 03A6 B6 01 01 LDA TRACK0567 03A9 F6 01 02 LDB SECTOR0568 03AC 5C INCB0569 *0570 03AD 8E 02 00 UXLOOP LDX #BUFFER0571 03B0 B7 01 01 STA TRACK0572 03B3 F7 01 02 STB SECTOR0573 *0574 03B6 17 00 4C LBSR XREAD0575 03B9 10 25 00 42 LBCS UXERR0576 03BD 17 00 E9 LBSR XACK0577 03C0 17 00 42 LBSR XREAD0578 03C3 10 25 00 38 LBCS UXERR0579 *0580 03C7 8E 02 00 LDX #BUFFER0581 03CA B6 01 01 LDA TRACK0582 03CD F6 01 02 LDB SECTOR0583 03D0 17 01 37 LBSR WRITSC0584 03D3 17 00 D3 LBSR XACK0585 *0586 03D6 B6 01 01 LDA TRACK0587 03D9 F6 01 02 LDB SECTOR0588 03DC 5C INCB0589 03DD F1 01 0C CMPB MAXSEC0590 03E0 26 CB BNE UXLOOP0591 03E2 C6 01 LDB #10592 03E4 4C INCA0593 03E5 B1 01 0B CMPA MAXTRK0594 03E8 26 C3 BNE UXLOOP0595 *0596 *0597 * Write Boot sector0598 *0599 03EA 8E 07 00 LDX #BOOT0600 03ED 4F CLRA TRACK 00601 03EE C6 01 LDB #$01 SECTOR 10602 03F0 B7 01 01 STA TRACK0603 03F3 F7 01 02 STB SECTOR0604 03F6 17 01 11 LBSR WRITSC0605 *0606 03F9 8E 02 68 UXEXIT LDX #UXMES10607 03FC 7E 02 48 JMP PDATA10608 *0609 03FF 8E 02 7A UXERR LDX #UXMES20610 0402 16 FE 43 LBRA PDATA10611 *0612 * Get a Byte using XModem protocol0613 * Carry clear => no errors0614 * Carry set => errors0615 *0616 0405 34 40 XREAD PSHS U0617 0407 FE 01 06 LDU XSTATE0618 *0619 040A 17 FD F3 XBYTE0 LBSR INTER0620 040D 28 0A BVC XBYTE10621 040F 86 15 LDA #NAK0622 0411 17 FE 1D LBSR OUTTER0623 0414 CE 04 22 LDU #XSTST0624 0417 20 F1 BRA XBYTE00625 *0626 0419 AD C4 XBYTE1 JSR ,U0627 041B 26 ED BNE XBYTE00628 041D FF 01 06 STU XSTATE0629 0420 35 C0 PULS U,PC0630 *0631 * START - LOOK FOR SOH (START OF HEADER) = $010632 *0633 0422 81 01 XSTST CMPA #SOH0634 0424 26 06 BNE XSTST10635 0426 CE 04 42 LDU #XSTBL0636 0429 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0637 042B 39 RTS0638 *0639 042C 81 04 XSTST1 CMPA #EOT0640 042E 26 08 BNE XSTST20641 0430 86 06 LDA #ACK0642 0432 17 FD FC LBSR OUTTER0643 0435 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit0644 0437 39 RTS0645 *0646 0438 81 18 XSTST2 CMPA #CAN0647 043A 26 03 BNE XSTST30648 043C 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit0649 043E 39 RTS0650 *0651 043F 1C FA XSTST3 ANDCC #$FF-CFLAG-ZFLAG0652 0441 39 RTS0653 *0654 * Got SOH0655 * Now get block number0656 *0657 0442 B1 01 04 XSTBL CMPA BLKNUM0658 0445 26 06 BNE XSTBLE0659 0447 CE 04 58 LDU #XSTCOM0660 044A 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0661 044C 39 RTS0662 *0663 * Error in block number0664 *0665 044D 86 15 XSTBLE LDA #NAK0666 044F 17 FD DF LBSR OUTTER0667 0452 CE 04 22 LDU #XSTST0668 0455 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0669 0457 39 RTS0670 *0671 * Get complement of block number0672 *0673 0458 43 XSTCOM COMA0674 0459 B1 01 04 CMPA BLKNUM0675 045C 26 EF BNE XSTBLE0676 045E 7F 01 03 CLR CHKSUM0677 0461 86 80 LDA #1280678 0463 B7 01 05 STA BYTCNT0679 0466 CE 04 6C LDU #XSTDA0680 0469 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0681 046B 39 RTS0682 *0683 * Get data bytes0684 *0685 046C 34 02 XSTDA PSHS A0686 046E BB 01 03 ADDA CHKSUM0687 0471 B7 01 03 STA CHKSUM0688 0474 35 02 PULS A0689 0476 7A 01 05 DEC BYTCNT0690 0479 26 03 BNE XSTDA10691 047B CE 04 83 LDU #XSTCK0692 047E A7 80 XSTDA1 STA ,X+0693 0480 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0694 0482 39 RTS0695 *0696 * Byte count reached zero0697 * Check checksum byte0698 *0699 0483 B1 01 03 XSTCK CMPA CHKSUM0700 0486 26 0B BNE XSTCK1 retry if wrong checksum0701 *0702 * Checksum OK ...0703 * increment block number0704 * Don't send ACK until data written to CF0705 *0706 0488 7C 01 04 INC BLKNUM0707 048B CE 04 22 LDU #XSTST0708 048E 1C FE ANDCC #$FF-CFLAG No abort0709 0490 1A 04 ORCC #ZFLAG Valid data (exit)0710 0492 39 RTS0711 *0712 * Checksum Error detected ...0713 * Reset Sector counter in ACCB to last 128 byte boundary0714 * and send NAK0715 *0716 0493 34 04 XSTCK1 PSHS B0717 0495 1F 10 TFR X,D0718 0497 5A DECB0719 0498 C4 80 ANDB #1280720 049A 1F 01 TFR D,X0721 049C 35 04 PULS B0722 049E 86 15 LDA #NAK0723 04A0 17 FD 8E XSTCK2 LBSR OUTTER0724 04A3 CE 04 22 LDU #XSTST0725 04A6 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0726 04A8 39 RTS0727 *0728 * Acknowledge Data Received0729 *0730 04A9 34 02 XACK PSHS A0731 04AB 86 06 LDA #ACK0732 04AD 17 FD 81 LBSR OUTTER0733 04B0 35 82 PULS A,PC0734 *0735 *0736 ** FLEX 9 IDE DISK DRIVERS0737 *0738 * FOR SYS09BUG 1.2 ON THE XSA-3S10000739 * WITH I/O MAPPED AT $XE0000740 * AND ROM MAPPED AT $XF0000741 *0742 *0743 * INITIALIZE CF CARD FOR 8 BIT LBA MODE0744 *Symbol 'AUXRESET' undefined Pass 20745 04B2 CC 00 00 INITDR LDD #AUXRESETSymbol 'CF_AUX' undefined Pass 20746 04B5 FD 00 00 STD CF_AUXSymbol 'AUXRSTREL' undefined Pass 20747 04B8 CC 00 00 LDD #AUXRSTRELSymbol 'CF_AUX' undefined Pass 20748 04BB FD 00 00 STD CF_AUXSymbol 'HEADLBA' undefined Pass 20749 04BE CC 00 00 LDD #HEADLBASymbol 'CF_HEAD' undefined Pass 20750 04C1 FD 00 00 STD CF_HEAD0751 04C4 16 02 E1 LBRA WTRDY0752 *0753 * RESTORE DISK DRIVER (SEEK TRACK 00)0754 *0755 04C7 8D 66 RESTR1 BSR DRVSEL0756 04C9 4F CLRA ; Track 00757 04CA C6 01 LDB #$01 ; Sector 10758 *0759 * Seek track and sector0760 * A holds track number (0 - ??)0761 * B holds sector number (1 - ??)0762 * Sector numbers starts from 10763 * subtract 1 to start from sector 0 on CF0764 *0765 04CC 34 02 SEEKTS PSHS A0766 04CE 4F CLRA0767 04CF 5A DECBSymbol 'CF_SECNUM' undefined Pass 20768 04D0 FD 00 00 STD CF_SECNUM0769 04D3 E6 E4 LDB ,SSymbol 'CF_CYLLO' undefined Pass 20770 04D5 FD 00 00 STD CF_CYLLO0771 04D8 F6 01 00 LDB DRVNUMSymbol 'CF_CYLHI' undefined Pass 20772 04DB FD 00 00 STD CF_CYLHI0773 04DE C6 01 LDB #$01Symbol 'CF_SECCNT' undefined Pass 20774 04E0 FD 00 00 STD CF_SECCNT0775 04E3 5F CLRB0776 04E4 35 82 PULS A,PC0777 *0778 * READ SECTORS FROM CF0779 *0780 *0781 04E6 8D E4 READSC BSR SEEKTSSymbol 'CMDREAD' undefined Pass 20782 04E8 CC 00 00 LDD #CMDREAD ; IDE READ MULTIPLESymbol 'CF_COMAND' undefined Pass 20783 04EB FD 00 00 STD CF_COMAND0784 04EE 17 02 B7 LBSR WTRDY0785 *0786 * READ LOOP0787 *0788 04F1 34 20 PSHS Y0789 04F3 10 8E 01 00 LDY #2560790 04F7 17 02 BD RDLP1 LBSR WTDRQSymbol 'CF_DATA' undefined Pass 20791 04FA FC 00 00 LDD CF_DATA0792 04FD E7 80 STB ,X+0793 04FF 31 3F LEAY -1,Y0794 0501 26 F4 BNE RDLP10795 0503 35 20 PULS Y0796 *0797 0505 17 02 A0 LBSR WTRDY0798 0508 5F CLRB0799 0509 39 RTS0800 *0801 * WRITE SECTOR TO CF0802 *0803 050A 8D C0 WRITSC BSR SEEKTS ; SEEK TRACK & SECTORSymbol 'CMDWRITE' undefined Pass 20804 050C CC 00 00 LDD #CMDWRITE ; IDE WRITE MULTIPLESymbol 'CF_COMAND' undefined Pass 20805 050F FD 00 00 STD CF_COMAND0806 0512 17 02 93 LBSR WTRDY0807 *0808 * WRITE LOOP0809 *0810 0515 34 20 PSHS Y0811 0517 10 8E 01 00 LDY #2560812 051B 4F CLRA0813 051C 17 02 98 WRTLP1 LBSR WTDRQ0814 051F E6 80 LDB ,X+Symbol 'CF_DATA' undefined Pass 20815 0521 FD 00 00 STD CF_DATA0816 0524 31 3F LEAY -1,Y0817 0526 26 F4 BNE WRTLP10818 0528 35 20 PULS Y0819 *0820 052A 17 02 7B LBSR WTRDY0821 052D 5F CLRB0822 052E 39 RTS0823 *0824 * DRIVE SELECT DISK DRIVER0825 *0826 052F A6 03 DRVSEL LDA 3,X GET DRIVE # FROM FCB0827 0531 81 03 CMPA #30828 0533 23 01 BLS DRVS2 IF > 3, SET IT TO 00829 0535 4F CLRA0830 0536 B7 01 00 DRVS2 STA DRVNUM0831 0539 5F CLRB ; SET Z, CLEAR C0832 053A 39 RTS0833 *0834 * CHECK DRIVE READY DISK DRIVER0835 *0836 053B A6 03 CHKDRV LDA 3,X0837 053D 5F CLRB ; CLEAR C, SET Z0838 053E 39 RTS0839 *******************************************************0840 *0841 * Bootstrap FLEX Loader0842 *0843 * SBUG1.8 loads the bootstap loader at $C0000844 * however the Flex adaption manual has the0845 * bootstrap loader residing at $C1000846 * Bootstrap Loader is position independent code0847 *0848 ******************************************************0849 *0850 * Equates0851 *0852 C0FF BSSTACK EQU $C0FF0853 C300 SCTBUF EQU $C3000854 *0855 * Start of Utility0856 *Symbol 'MONEXT' undefined Pass 20857 0700 ORG MONEXT+$07000858 0700 20 0B BOOT BRA BLOAD00859 0702 00 00 00 FCB 0,0,00860 0705 00 TRK FCB 0 File start track0861 0706 00 SCT FCB 0 File start sector0862 0707 00 DNS FCB 0 Density Flag (not used)0863 0708 C0 00 TADR FDB $C000 Transfer address0864 070A 00 00 LADR FDB 0 Load Address0865 070C 00 DRNUM FCB 0 Drive number 00866 *0867 070D 10 CE C0 FF BLOAD0 LDS #BSSTACK Set up Bootstrap stack0868 0711 EC 8C F1 LDD TRK,PCR Set up start track and sector0869 0714 FD C3 00 STD SCTBUF0870 0717 10 8E C4 00 LDY #SCTBUF+2560871 *0872 * Perform actual file load0873 *0874 071B 8D 35 BLOAD1 BSR GETCH Get acharcater0875 071D 81 02 CMPA #$02 Data record hearder ?0876 071F 27 10 BEQ BLOAD2 Skip, is so0877 0721 81 16 CMPA #$16 Xfr address hearder ?0878 0723 26 F6 BNE BLOAD1 Loop if neither0879 *0880 * Get transfer address0881 *0882 0725 8D 2B BSR GETCH0883 0727 A7 8C DE STA TADR,PCR0884 072A 8D 26 BSR GETCH0885 072C A7 8C DA STA TADR+1,PCR0886 072F 20 EA BRA BLOAD10887 *0888 * Load data record0889 *0890 0731 8D 1F BLOAD2 BSR GETCH Get load address0891 0733 A7 8C D4 STA LADR,PCR0892 0736 8D 1A BSR GETCH0893 0738 A7 8C D0 STA LADR+1,PCR0894 073B 8D 15 BSR GETCH Get Bytes count0895 073D 1F 89 TFR A,B0896 073F 5D TSTB0897 0740 27 D9 BEQ BLOAD1 Loop if count = 00898 0742 AE 8C C5 LDX LADR,PCR Get load address0899 0745 34 14 BLOAD3 PSHS B,X0900 0747 8D 09 BSR GETCH Get data character0901 0749 35 14 PULS B,X0902 074B A7 80 STA ,X+ Store at load address0903 074D 5A DECB0904 074E 26 F5 BNE BLOAD3 Loop until count = 00905 0750 20 C9 BRA BLOAD10906 *0907 * Get Character routine0908 * Reads a sector if needed0909 *0910 0752 10 8C C4 00 GETCH CMPY #SCTBUF+256 out of data ?0911 0756 26 0F BNE GETCH4 Go read Character if not0912 0758 8E C3 00 GETCH2 LDX #SCTBUF Point to buffer0913 075B EC 84 LDD 0,X Get forward Link0914 075D 27 0B BEQ GOFLEX if zero, file is loaded0915 075F 8D 26 BSR READ Read next sector0916 0761 26 9D BNE BOOT start over if error0917 0763 10 8E C3 04 LDY #SCTBUF+4 Point past link0918 0767 A6 A0 GETCH4 LDA ,Y+ Else, get a character0919 0769 39 RTS0920 *0921 * File is loaded, Jump to it0922 *0923 076A 6E 9C 9B GOFLEX JMP [TADR,PCR] Jump to transfer address09240925 *0926 ** FLEX 9 IDE DISK DRIVERS0927 *0928 * Seek track and sector0929 * A holds track number (0 - ??)0930 * B holds sector number (1 - ??)0931 * Sector numbers starts from 10932 * subtract 1 to start from sector 0 on CF0933 *0934 076D 34 02 SEEK PSHS A0935 076F 4F CLRA0936 0770 5A DECBSymbol 'CF_SECNUM' undefined Pass 20937 0771 FD 00 00 STD CF_SECNUM0938 0774 E6 E4 LDB ,SSymbol 'CF_CYLLO' undefined Pass 20939 0776 FD 00 00 STD CF_CYLLO0940 0779 E6 8C 90 LDB DRNUM,PCRSymbol 'CF_CYLHI' undefined Pass 20941 077C FD 00 00 STD CF_CYLHI0942 077F C6 01 LDB #$01Symbol 'CF_SECCNT' undefined Pass 20943 0781 FD 00 00 STD CF_SECCNT0944 0784 5F CLRB0945 0785 35 82 PULS A,PC0946 *0947 * READ SECTORS FROM CF0948 *0949 *0950 0787 8D E4 READ BSR SEEKSymbol 'CMDREAD' undefined Pass 20951 0789 CC 00 00 LDD #CMDREAD ; IDE READ MULTIPLESymbol 'CF_COMAND' undefined Pass 20952 078C FD 00 00 STD CF_COMAND0953 078F 8D 17 BSR WTRDY0954 *0955 * READ LOOP0956 *0957 0791 34 20 PSHS Y0958 0793 10 8E 01 00 LDY #2560959 0797 8D 1E READ1 BSR WTDRQSymbol 'CF_DATA' undefined Pass 20960 0799 FC 00 00 LDD CF_DATA0961 079C E7 80 STB ,X+0962 079E 31 3F LEAY -1,Y0963 07A0 26 F5 BNE READ10964 07A2 35 20 PULS Y0965 *0966 07A4 8D 02 BSR WTRDY0967 07A6 5F CLRB0968 07A7 39 RTS0969 *0970 * WAIT UNTIL READY0971 *Symbol 'CF_STATUS' undefined Pass 20972 07A8 FC 00 00 WTRDY LDD CF_STATUSSymbol 'BUSY' undefined Pass 20973 07AB C5 00 BITB #BUSY0974 07AD 26 F9 BNE WTRDYSymbol 'CF_STATUS' undefined Pass 20975 07AF FC 00 00 LDD CF_STATUSSymbol 'DRDY' undefined Pass 20976 07B2 C5 00 BITB #DRDY0977 07B4 27 F2 BEQ WTRDY0978 07B6 39 RTS0979 *0980 * WAIT FOR DATA REQUEST0981 *Symbol 'CF_STATUS' undefined Pass 20982 07B7 FC 00 00 WTDRQ LDD CF_STATUSSymbol 'DRQ' undefined Pass 20983 07BA C5 00 BITB #DRQ0984 07BC 27 F9 BEQ WTDRQ0985 07BE 39 RTS0986 *0004 END0000 INCLUDE "sys09bug.asm"0001 * NAM SYS09BUG12 SYSTEM09 MONITOR0002 OPT lsys09bug.asm page 30004 *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 * BY: JOHN KENT0028 * DATE: 7TH JANUARY 20070029 * ADDED: 'U' USER EXTENTION COMMANDS AT $F0000030 * CONDITIONAL ASSEMBLY OF FLOPPY BOOTS0031 * AND REALTIME CLOCK0032 *0033 * MODIFIED TO SYS09BUG VER 1.20034 * BY: JOHN KENT0035 * DATE: 21ST MAY 20070036 * ADDED: COMPACT FLASH BOOT TO FPGA VERSION0037 * REMOVED PORT REDIRECTION ON PUNCH & LOAD0038 *0039 * Modified to SYS09BUG VER 1.30040 * BY: JOHN KENT0041 * DATE: 8TH JAN 20080042 * ADDED: CONDITIONALS FOR SPARTAN3E STARTER BOARD0043 * WITH ONLY 32K OF RAM0044 *0045 * Modified to SYS09BUG VER 1.40046 * BY: JOHN KENT0047 * DATE: 3RD FEB 20080048 * ADDED: CONDITIONALS FOR XESS BOARD WITH IDE0049 * SEPERATE CONDITIONAL FOR S3 STARTER AND B5-X3000050 * 16 BIT IDE DISK BOOT STRAP ROUTINE0051 *0052 * Modified to SYS09BUG VER 1.50053 * BY: JOHN KENT0054 * DATE: 7TH SEP 20080055 * ADDED: ADDED "B3-S2+" STRING0056 *0057 * Modified to SYS09BUG VER 1.60058 * BY: JOHN KENT0059 * DATE: 2ND DEC 20080060 * ADDED: ADDED HARDWARE FLOW CONTROL0061 *0062 * CHANGED: SEPARARTED OPTIONS EQUATES AND BODY INTO SEPARATE FILES0063 *0064 * Modified to SYS09BUG VER 1.70065 * BY: JOHN KENT0066 * DATE: 16TH OCT 20100067 * ADDED: "DE2-70" STRING0068 *0069 * *** COMMANDS ***0070 *0071 * CONTROL A = ALTER THE "A" ACCUMULATOR0072 * CONTROL B = ALTER THE "B" ACCUMULATOR0073 * CONTROL C = ALTER THE CONDITION CODE REGISTER0074 * CONTROL D = ALTER THE DIRECT PAGE REGISTER0075 * CONTROL P = ALTER THE PROGRAM COUNTER0076 * CONTROL U = ALTER USER STACK POINTER0077 * CONTROL X = ALTER "X" INDEX REGISTER0078 * CONTROL Y = ALTER "Y" INDEX REGISTER0079 * B hhhh = SET BREAKPOINT AT LOCATION $hhhh0080 * D = 5.25" MINIFLOPPY BOOT0081 * E ssss-eeee = EXAMINE MEMORY0082 * FROM STARTING ADDRESS ssss0083 * TO ENDING ADDRESS eeee.0084 * G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI0085 * L = LOAD TAPE0086 * M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh0087 * P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR.0088 * R = DISPLAY REGISTER CONTENTS0089 * S = DISPLAY STACK FROM ssss TO $DFC00090 * U = 8" DMAF2 FLOPPY BOOT0091 * U = USER EXTENSION COMMANDS AT $F0000092 * X = REMOVE ALL BREAKPOINTS0093 *0094 *0095 ***************************************************0096 * SYS09BUG VARIABLE SPACE0097 ***************************************************0098 *0099 DFC0 ORG MONRAM0100 DFC0 STACK EQU * ; TOP OF INTERNAL STACK0101 DFC0 NMI RMB 2 ; USER NMI VECTOR0102 DFC2 SWI3 RMB 2 ; SOFTWARE INTERRUPT VECTOR #30103 DFC4 SWI2 RMB 2 ; SOFTWARE INTERRUPT VECTOR #20104 DFC6 FIRQ RMB 2 ; FAST INTERRUPT VECTOR0105 DFC8 IRQ RMB 2 ; INTERRUPT VECTOR0106 DFCA SWI RMB 2 ; SOFTWARE INTERRUPT VECTOR0107 DFCC SVCVO RMB 2 ; SUPERVISOR CALL VECTOR ORGIN0108 DFCE SVCVL RMB 2 ; SUPERVISOR CALL VECTOR LIMIT0109 IFD DATOPT0110 LRARAM RMB 16 ; LRA ADDRESSES0111 ENDIF DATOPT0111 ENDIF DATOPT0112 DFD0 CPORT RMB 2 ; RE-VECTORABLE CONTROL PORT0113 DFD2 ECHO RMB 1 ; ECHO FLAG0114 DFD3 BPTBL RMB 24 ; BREAKPOINT TABLE BASE ADDR0115 IFD TRAOPT0116 NMISAV RMB 2 ; NMI Jump Vector Backup0117 TRACNT RMB 2 ; Trace Count0118 ENDIF TRAOPT0118 ENDIF TRAOPT0119 IFD VDUOPT0120 *0121 **************************************************0122 * VDU8 DISPLAY DRIVER VARIABLES *0123 **************************************************0124 *0125 **** ALWAYS KEEP COLADX AND ROWADX TOGETHER ******0126 COLADX RMB 1 ; CURSOR COLUMN0127 ROWADX RMB 1 ; CURSOR ROW0128 **************************************************0129 *0130 NEWROW RMB 1 ; NEW ROW TEMP FOR ESCAPE0131 ESCFLG RMB 1 ; ESCAPE SEQUENCE ACTIVE0132 ENDIF VDUOPT0132 ENDIF VDUOPT0133 IFD DG640OPT0134 *0135 ***************************************************0136 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES *0137 ***************************************************0138 *0139 ***** ALWAYS KEEP THESE TWO BYTES TOGETHER *****0140 COLADX RMB 1 ; CURSOR COLUMN0141 ROWADX RMB 1 ; CURSOR ROW0142 *************************************************0143 CURSOR RMB 2 ; ABSOLUTE SCREEN ADDRESS0144 NEWROW RMB 1 ; NEW ROW TEMP FOR ESCAPE0145 ESCFLG RMB 1 ; ESCAPE SEQUENCE ACTIVE0146 ENDIF DG640OPT0146 ENDIF DG640OPT0147 *0148 *0149 ***************************************************0150 * START OF ROM *0151 ***************************************************0152 *0153 F800 ORG MONROM0154 F800 F8 14 FDB MONITOR0155 F802 F8 48 FDB NEXTCMD0156 F804 FC 04 FDB INCH0157 F806 FB FE FDB INCHE0158 F808 FC 13 FDB INCHEK0159 F80A FC 21 FDB OUTCH0160 F80C FA F6 FDB PDATA0161 F80E FA 85 FDB PCRLF0162 F810 FA 81 FDB PSTRNG0163 F812 FC F9 FDB LRA0164 *0165 IFD ADSOPT0166 FDB PCHK ; CHECK FOR PRINTER INPUT0167 FDB PINIZ ; INITIATE PRINTER0168 FDB POUTCH ; OUTPUT CH. TO PRINTER0169 FDB VINIZ0170 FDB VOUTCH0171 FDB ACINIZ0172 FDB AOUTCH0173 ENDIF ADSOPT0173 ENDIF ADSOPT0174 *0175 * MONITOR0176 *0177 * VECTOR ADDRESS STRING IS.....0178 * $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF0179 *0180 F814 8E FC 7C MONITOR LDX #RAMVEC ; POINT TO VECTOR ADDR. STRING0181 F817 10 8E DF C0 LDY #STACK ; POINT TO RAM VECTOR LOCATION0182 F81B C6 10 LDB #$10 ; BYTES TO MOVE = 160183 F81D A6 80 LOOPA LDA ,X+ ; GET VECTOR BYTE0184 F81F A7 A0 STA ,Y+ ; PUT VECTORS IN RAM / $DFC0-$DFCF0185 F821 5A DECB ; SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE0186 F822 26 F9 BNE LOOPA ; CONTINUE UNTIL ALL VECTORS MOVED0187 *0188 * CONTENTS FROM TO FUNCTION0189 * $F8A1 $FE40 $DFC0 USER-V0190 * $F8A1 $FE42 $DFC2 SWI3-V0191 * $F8A1 $FE44 $DFC4 SWI2-V0192 * $F8A1 $FE46 $DFC6 FIRQ-V0193 * $F8A1 $FE48 $DFC8 IRQ-V0194 * $FAB0 $FE4A $DFCA SWI-V0195 * $FFFF $FE4C $DFCC SVC-VO0196 * $FFFF $FE4E $DFCE SVC-VL0197 *Symbol 'ACIAS' undefined Pass 20198 F824 8E 00 00 LDX #ACIAS0199 F827 BF DF D0 STX CPORT ; STORE ADDR. IN RAM0200 F82A 17 01 42 LBSR XBKPNT ; CLEAR OUTSTANDING BREAKPOINTS0201 F82D C6 0C LDB #12 ; CLEAR 12 BYTES ON STACK0202 F82F 6F E2 CLRSTK CLR ,-S0203 F831 5A DECB0204 F832 26 FB BNE CLRSTK0205 F834 30 8C DD LEAX MONITOR,PCR ; SET PC TO SBUG-E ENTRY0206 F837 AF 6A STX 10,S ; ON STACK0207 F839 86 D0 LDA #$D0 ; PRESET CONDITION CODES ON STACK0208 F83B A7 E4 STA ,S0209 F83D 1F 43 TFR S,U0210 F83F 17 03 F4 LBSR IOINIZ ; INITIALIZE CONTROL PORT0211 F842 8E FC 8C LDX #MSG1 ; POINT TO MONITOR MESSAGE0212 F845 17 02 AE LBSR PDATA ; PRINT MSG0213 *0214 IFD DATOPT0215 LDX #LRARAM ; POINT TO LRA RAM STORAGE AREA0216 CLRA START ; TOTAL AT ZERO0217 LDB #13 ; TOTAL UP ALL ACTIVE RAM MEMORY0218 FNDREL TST B,X ; TEST FOR RAM AT NEXT LOC.0219 BEQ RELPAS ; IF NO RAM GO TO NEXT LOC.0220 ADDA #4 ; ELSE ADD 4K TO TOTAL0221 DAA ; ADJ. TOTAL FOR DECIMAL0222 RELPAS DECB ; SUB. 1 FROM LOCS. TO TEST0223 BPL FNDREL ; PRINT TOTAL OF RAM0224 LBSR OUT2H ; OUTPUT HEX BYTE AS ASCII0225 LDX #MSG2 ; POINT TO MSG 'K' CR/LF + 3 NULS0226 LBSR PDATA ; PRINT MSG0227 ENDIF DATOPT0227 ENDIF DATOPT0228 *0229 IFD TRAOPT0230 LBSR TRAINZ0231 ENDIF TRAOPT0231 ENDIF TRAOPT0232 *0233 ***** NEXTCMD *****0234 *0235 F848 8E FC AD NEXTCMD LDX #MSG3 ; POINT TO MSG ">"0236 F84B 17 02 33 LBSR PSTRNG ; PRINT MSG0237 F84E 17 03 B3 LBSR INCH ; GET ONE CHAR. FROM TERMINAL0238 F851 84 7F ANDA #$7F ; STRIP PARITY FROM CHAR.0239 F853 81 0D CMPA #$0D ; IS IT CARRIAGE RETURN ?0240 F855 27 F1 BEQ NEXTCMD ; IF CR THEN GET ANOTHER CHAR.0241 F857 1F 89 TFR A,B ; PUT CHAR. IN "B" ACCUM.0242 F859 81 20 CMPA #$20 ; IS IT CONTROL OR DATA CHAR ?0243 F85B 2C 09 BGE PRTCMD ; IF CMD CHAR IS DATA, PRNT IT0244 F85D 86 5E LDA #'^ ; ELSE CNTRL CHAR CMD SO...0245 F85F 17 03 BF LBSR OUTCH ; PRINT "^"0246 F862 1F 98 TFR B,A ; RECALL CNTRL CMD CHAR0247 F864 8B 40 ADDA #$40 ; CONVERT IT TO ASCII LETTER0248 F866 17 03 B8 PRTCMD LBSR OUTCH ; PRNT CMD CHAR0249 F869 17 03 B3 LBSR OUT1S ; PRNT SPACE0250 F86C C1 60 CMPB #$600251 F86E 2F 02 BLE NXTCH00252 F870 C0 20 SUBB #$200253 *0254 ***** DO TABLE LOOKUP *****0255 * FOR COMMAND FUNCTIONS0256 *0257 F872 8E FC 49 NXTCH0 LDX #JMPTAB ; POINT TO JUMP TABLE0258 F875 E1 80 NXTCHR CMPB ,X+ ; DOES COMMAND MATCH TABLE ENTRY ?0259 F877 27 0F BEQ JMPCMD ; BRANCH IF MATCH FOUND0260 F879 30 02 LEAX 2,X ; POINT TO NEXT ENTRY IN TABLE0261 F87B 8C FC 7C CMPX #TABEND ; REACHED END OF TABLE YET ?0262 F87E 26 F5 BNE NXTCHR ; IF NOT END, CHECK NEXT ENTRY0263 F880 8E FC AF LDX #MSG4 ; POINT TO MSG "WHAT?"0264 F883 17 02 70 LBSR PDATA ; PRINT MSG0265 F886 20 C0 BRA NEXTCMD ; IF NO MATCH, PRMPT FOR NEW CMD0266 F888 AD 94 JMPCMD JSR [,X] ; JUMP TO COMMAND ROUTINE0267 F88A 20 BC BRA NEXTCMD ; PROMPT FOR NEW COMMAND0268 *0269 * "G" GO OR CONTINUE0270 *0271 F88C 1F 34 GO TFR U,S0272 F88E 3B RTI RTI0273 *0274 ***** "M" MEMORY EXAMINE AND CHANGE *****0275 *0276 F88F 17 02 EB MEMCHG LBSR IN1ADR ; INPUT ADDRESS0277 F892 29 2D BVS CHRTN ; IF NOT HEX, RETURN0278 F894 1F 12 TFR X,Y ; SAVE ADDR IN "Y"0279 F896 8E FC B5 MEMC2 LDX #MSG5 ; POINT TO MSG " - "0280 F899 17 01 E5 LBSR PSTRNG ; PRINT MSG0281 F89C 1F 21 TFR Y,X ; FETCH ADDRESS0282 F89E 17 03 25 LBSR OUT4H ; PRINT ADDR IN HEX0283 F8A1 17 03 7B LBSR OUT1S ; OUTPUT SPACE0284 F8A4 A6 A4 LDA ,Y ; GET CONTENTS OF CURRENT ADDR.0285 F8A6 17 03 25 LBSR OUT2H ; OUTPUT CONTENTS IN ASCII0286 F8A9 17 03 73 LBSR OUT1S ; OUTPUT SPACE0287 F8AC 17 02 DE LBSR BYTE ; LOOP WAITING FOR OPERATOR INPUT0288 F8AF 28 11 BVC CHANGE ; IF VALID HEX GO CHANGE MEM. LOC.0289 F8B1 81 08 CMPA #8 ; IS IT A BACKSPACE (CNTRL H)?0290 F8B3 27 E1 BEQ MEMC2 ; PROMPT OPERATOR AGAIN0291 F8B5 81 18 CMPA #$18 ; IS IT A CANCEL (CNTRL X)?0292 F8B7 27 DD BEQ MEMC2 ; PROMPT OPERATOR AGAIN0293 F8B9 81 5E CMPA #'^ ; IS IT AN UP ARROW?0294 F8BB 27 17 BEQ BACK ; DISPLAY PREVIOUS BYTE0295 F8BD 81 0D CMPA #$D ; IS IT A CR?0296 F8BF 26 0F BNE FORWRD ; DISPLAY NEXT BYTE0297 F8C1 39 CHRTN RTS ; EXIT ROUTINE0298 *0299 *0300 F8C2 A7 A4 CHANGE STA ,Y ; CHANGE BYTE IN MEMORY0301 F8C4 A1 A4 CMPA ,Y ; DID MEMORY BYTE CHANGE?0302 F8C6 27 08 BEQ FORWRD ; $F9720303 F8C8 17 03 54 LBSR OUT1S ; OUTPUT SPACE0304 F8CB 86 3F LDA #'? ; LOAD QUESTION MARK0305 F8CD 17 03 51 LBSR OUTCH ; PRINT IT0306 F8D0 31 21 FORWRD LEAY 1,Y ; POINT TO NEXT HIGHER MEM LOCATION0307 F8D2 20 C2 BRA MEMC2 ; PRINT LOCATION & CONTENTS0308 F8D4 31 3F BACK LEAY -1,Y ; POINT TO LAST MEM LOCATION0309 F8D6 20 BE BRA MEMC2 ; PRINT LOCATION & CONTENTS0310 *0311 * "S" DISPLAY STACK0312 * HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM0313 ** CURRENT STACK POINTER TO INTERNAL STACK LIMIT.0314 *0315 F8D8 17 02 22 DISSTK LBSR PRTSP ; PRINT CURRENT STACK POINTER0316 F8DB 1F 32 TFR U,Y0317 F8DD 8E DF C0 LDX #STACK ; LOAD INTERNAL STACK AS UPPER LIMIT0318 F8E0 30 1F LEAX -1,X ; POINT TO CURRENT STACK0319 F8E2 20 05 BRA MDUMP1 ; ENTER MEMORY DUMP OF STACK CONTENTS0320 *0321 * "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII0322 * AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG.0323 * UPPER ADDRESS IN X-REG.0324 * IF HEX ADDRESSES ARE INVALID (V)=1.0325 *0326 F8E4 17 02 8B MEMDUMP LBSR IN2ADR ; INPUT ADDRESS BOUNDRIES0327 F8E7 29 06 BVS EDPRTN ; NEW COMMAND IF ILLEGAL HEX0328 F8E9 34 20 MDUMP1 PSHS Y ; COMPARE LOWER TO UPPER BOUNDS0329 F8EB AC E1 CMPX ,S++ ; LOWER BOUNDS > UPPER BOUNDS?0330 F8ED 24 01 BCC AJDUMP ; IF NOT, DUMP HEX AND ASCII0331 F8EF 39 EDPRTN RTS ;0332 *0333 * ADJUST LOWER AND UPPER ADDRESS LIMITS0334 * TO EVEN 16 BYTE BOUNDRIES.0335 *0336 * IF LOWER ADDR = $45320337 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530.0338 *0339 * IF UPPER ADDR = $45670340 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570.0341 *0342 * ENTER WITH LOWER ADDRESS IN X-REG.0343 * -UPPER ADDRESS ON TOP OF STACK.0344 *0345 F8F0 1F 10 AJDUMP TFR X,D ; GET UPPER ADDR IN D-REG0346 F8F2 C3 00 10 ADDD #$10 ; ADD 16 TO UPPER ADDRESS0347 F8F5 C4 F0 ANDB #$F0 ; MASK TO EVEN 16 BYTE BOUNDRY0348 F8F7 34 06 PSHS A,B ; SAVE ON STACK AS UPPER DUMP LIMIT0349 F8F9 1F 20 TFR Y,D ; $F9A5 GET LOWER ADDRESS IN D-REG0350 F8FB C4 F0 ANDB #$F0 ; MASK TO EVEN 16 BYTE BOUNDRY0351 F8FD 1F 01 TFR D,X ; PUT IN X-REG AS LOWER DUMP LIMIT0352 F8FF AC E4 NXTLIN CMPX ,S ; COMPARE LOWER TO UPPER LIMIT0353 F901 27 05 BEQ SKPDMP ; IF EQUAL SKIP HEX-ASCII DUMP0354 F903 17 03 0D LBSR INCHEK ; CHECK FOR INPUT FROM KEYBOARD0355 F906 27 03 BEQ EDUMP0356 F908 32 62 SKPDMP LEAS 2,S ; READJUST STACK IF NOT DUMPING0357 F90A 39 RTS ;0358 *0359 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS0360 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS.0361 *0362 F90B 34 10 EDUMP PSHS X ; PUSH LOWER ADDR LIMIT ON STACK0363 F90D 8E FC B5 LDX #MSG5 ; POINT TO MSG " - "0364 F910 17 01 6E LBSR PSTRNG ; PRINT MSG0365 F913 AE E4 LDX ,S ; LOAD LOWER ADDR FROM TOP OF STACK0366 F915 17 02 AE LBSR OUT4H ; PRINT THE ADDRESS0367 F918 17 03 02 LBSR OUT2S ; 2 SPACES0368 F91B C6 10 LDB #$10 ; LOAD COUNT OF 16 BYTES TO DUMP0369 F91D A6 80 ELOOP LDA ,X+ ; GET FROM MEMORY HEX BYTE TO PRINT0370 F91F 17 02 AC LBSR OUT2H ; OUTPUT HEX BYTE AS ASCII0371 F922 17 02 FA LBSR OUT1S ; OUTPUT SPACE0372 F925 5A DECB ; $F9D1 DECREMENT BYTE COUNT0373 F926 26 F5 BNE ELOOP ; CONTINUE TIL 16 HEX BYTES PRINTED0374 *0375 * PRINT 16 ASCII CHARACTERS0376 * IF NOT PRINTABLE OR NOT VALID0377 * ASCII PRINT A PERIOD (.)0378 F928 17 02 F2 LBSR OUT2S ; 2 SPACES0379 F92B AE E1 LDX ,S++ ; GET LOW LIMIT FRM STACK - ADJ STACK0380 F92D C6 10 LDB #$10 ; SET ASCII CHAR TO PRINT = 160381 F92F A6 80 EDPASC LDA ,X+ ; GET CHARACTER FROM MEMORY0382 F931 81 20 CMPA #$20 ; IF LESS THAN $20, NON-PRINTABLE?0383 F933 25 04 BCS PERIOD ; IF SO, PRINT PERIOD INSTEAD0384 F935 81 7E CMPA #$7E ; IS IT VALID ASCII?0385 F937 23 02 BLS PRASC ; IF SO PRINT IT0386 F939 86 2E PERIOD LDA #'. ; LOAD A PERIOD (.)0387 F93B 17 02 E3 PRASC LBSR OUTCH ; PRINT ASCII CHARACTER0388 F93E 5A DECB ; DECREMENT COUNT0389 F93F 26 EE BNE EDPASC0390 F941 20 BC BRA NXTLIN0391 *0392 ***** "B" SET BREAKPOINT *****0393 *0394 F943 17 02 37 BRKPNT LBSR IN1ADR ; GET BREAKPOINT ADDRESS0395 F946 29 1E BVS EXITBP ; EXIT IF INVALID HEX ADDR.0396 F948 8C DF C0 CMPX #STACK ; ADDRESS ILLEGAL IF >=$DFC00397 F94B 24 1A BCC BPERR ; IF ERROR PRINT (?), EXIT0398 F94D 34 10 PSHS X ; $FA82 PUSH BP ADDRESS ON STACK0399 F94F 8E FF FF LDX #$FFFF ; LOAD DUMMY ADDR TO TEST BP TABLE0400 F952 8D 55 BSR BPTEST ; TEST BP TABLE FOR FREE SPACE0401 F954 35 10 PULS X ; POP BP ADDRESS FROM STACK0402 F956 27 0F BEQ BPERR ; (Z) SET, OUT OF BP TABLE SPACE0403 F958 A6 84 LDA ,X ; GET DATA AT BREAKPOINT ADDRESS0404 F95A 81 3F CMPA #$3F ; IS IT A SWI?0405 F95C 27 09 BEQ BPERR ; IF SWI ALREADY, INDICATE ERROR0406 F95E A7 A0 STA ,Y+ ; SAVE DATA BYTE IN BP TABLE0407 F960 AF A4 STX ,Y ; SAVE BP ADDRESS IN BP TABLE0408 F962 86 3F LDA #$3F ; LOAD A SWI ($3F)0409 F964 A7 84 STA ,X ; SAVE SWI AT BREAKPOINT ADDRESS0410 F966 39 EXITBP RTS ;0411 *0412 * INDICATE ERROR SETTING BREAKPOINT0413 *0414 F967 17 02 B5 BPERR LBSR OUT1S ; OUTPUT SPACE0415 F96A 86 3F LDA #'? ; LOAD (?), INDICATE BREAKPOINT ERROR0416 F96C 16 02 B2 LBRA OUTCH ; PRINT "?"0417 *0418 *** "X" CLEAR OUTSTANDING BREAKPOINTS ***0419 *0420 F96F 10 8E DF D3 XBKPNT LDY #BPTBL ; POINT TO BREAKPOINT TABLE0421 F973 C6 08 LDB #8 ; LOAD BREAKPOINT COUNTER0422 F975 8D 18 XBPLP BSR RPLSWI ; REMOVE USED ENTRY IN BP TABLE0423 F977 5A DECB $FAAC ; DECREMENT BP COUNTER0424 F978 26 FB BNE XBPLP ; END OF BREAKPOINT TABLE?0425 F97A 39 RTS0426 *0427 ***** SWI ENTRY POINT *****0428 *0429 F97B 1F 43 SWIE TFR S,U ; TRANSFER STACK TO USER POINTER0430 F97D AE 4A LDX 10,U ; LOAD PC FROM STACK INTO X-REG0431 F97F 30 1F LEAX -1,X ; ADJUST ADDR DOWN 1 BYTE.0432 F981 8D 26 BSR BPTEST ; FIND BREAKPOINT IN BP TABLE0433 F983 27 04 BEQ REGPR ; IF FOUND, REPLACE DATA AT BP ADDR0434 F985 AF 4A STX 10,U ; SAVE BREAKPOINT ADDR IN STACK0435 F987 8D 06 BSR RPLSWI ; GO REPLACE SWI WITH ORIGINAL DATA0436 F989 17 01 C8 REGPR LBSR REGSTR ; GO PRINT REGISTERS0437 *0438 IFD TRAOPT0439 LDX #00440 STX TRACNT0441 ENDIF TRAOPT0441 ENDIF TRAOPT0442 *0443 F98C 16 FE B9 LBRA NEXTCMD ; GET NEXT COMMAND0444 *0445 F98F AE 21 RPLSWI LDX 1,Y ; LOAD BP ADDRESS FROM BP TABLE0446 F991 8C DF C0 CMPX #STACK ; COMPARE TO TOP AVAILABLE USER MEMORY0447 F994 24 0A BCC FFSTBL ; GO RESET TABLE ENTRY TO $FF'S0448 F996 A6 84 LDA ,X ; GET DATA FROM BP ADDRESS0449 F998 81 3F CMPA #$3F ; IS IT SWI?0450 F99A 26 04 BNE FFSTBL ; IF NOT, RESET TABLE ENTRY TO $FF'S0451 F99C A6 A4 LDA ,Y ; GET ORIGINAL DATA FROM BP TABLE0452 F99E A7 84 STA ,X ; $FAD3 RESTORE DATA AT BP ADDRESS0453 F9A0 86 FF FFSTBL LDA #$FF ; LOAD $FF IN A-ACC0454 F9A2 A7 A0 STA ,Y+ ; RESET BREAKPOINT TABLE DATA TO $FF'S0455 F9A4 A7 A0 STA ,Y+ ; RESET BREAKPOINT TABLE ADDR TO $FF'S0456 F9A6 A7 A0 STA ,Y+0457 F9A8 39 RTS0458 *0459 ** SEARCH BREAKPOINT TABLE FOR MATCH **0460 *0461 F9A9 10 8E DF D3 BPTEST LDY #BPTBL ; POINT TO BREAKPOINT TABLE0462 F9AD C6 08 LDB #8 ; LOAD BREAKPOINT COUNTER0463 F9AF A6 A0 FNDBP LDA ,Y+ ; LOAD DATA BYTE0464 F9B1 AC A1 CMPX ,Y++ ; COMPARE ADDRESS, IS IT SAME?0465 F9B3 27 04 BEQ BPADJ ; IF SO, ADJUST POINTER FOR TABLE ENTRY0466 F9B5 5A DECB ; IF NOT, DECREMENT BREAKPOINT COUNTER0467 F9B6 26 F7 BNE FNDBP ; AND LOOK FOR NEXT POSSIBLE MATCH0468 F9B8 39 RTS ;0469 *0470 *0471 F9B9 31 3D BPADJ LEAY -3,Y ; MOVE POINTER TO BEGIN OF BP ENTRY0472 F9BB 39 RTS0473 *0474 IFD TRAOPT0475 *0476 ** TRACE from address AAAA BB bytes0477 *0478 TRACE LBSR ALTPC1 ; SET UP NEW PC0479 BVS TREXIT ; ADDRESS ERROR, EXIT0480 LBSR OUT1S0481 LBSR IN1ADR ; Fetch Byte Count0482 BVS TREXIT ; Byte Count error, EXIT0483 STX TRACNT0484 *0485 LDX NMI ; Save NMI Vector0486 STX NMISAV0487 LDX #NMIE ; Set up NMI for Tracing0488 STX NMI0489 LBSR TRAINZ ; Initialise Hardware0490 BRA TRACEG ; Start Trace0491 TREXIT RTS0492 *0493 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB0494 * CRA1 = 1 CA1 Rising edge IRQ0495 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register0496 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 10497 * CRA4 = 1 ] CA2 = Set/Reset output0498 * CRA5 = 1 ]0499 * CRA6 = X CA2 Input Interrupt Flag0500 * CRA7 = X CA1 Interrupt Flag0501 *0502 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB0503 * CRB1 = 1 CB1 Rising edge IRQ0504 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register0505 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 10506 * CRB4 = 1 ] CB2 = Set/Reset output0507 * CRB5 = 1 ]0508 * CRB6 = X CB2 Input Interrupt Flag0509 * CRB7 = X CB1 Interrupt Flag0510 *0511 *0512 ** TRACE NMI ENTRY POINT0513 *0514 NMIE TFR S,U0515 LDA #$36 ; Disable Interrupt, CA2 Low0516 STA TACTRL0517 LDA TADATA ; Clear Interrupt flag by reading data port0518 *0519 LBSR REGSTR ; DUMP REGISTERS0520 *0521 LDX 10,U ; TEST IF NEXT INSTRUCTION IS A SWI0522 LDA ,X0523 CMPA #$3F0524 BEQ TRACEX ; EXIT ON SWI0525 *0526 LDX TRACNT ; CHECK IF TRACE COUNT EXPIRED0527 BEQ TRACEX ; YES, GO BACK TO THE MONITOR0528 LEAX -1,X ; ECREMENT TRACE COUNT0529 STX TRACNT0530 *0531 ** TRACE GO (RESUME SINGLE STEP)0532 *0533 TRACEG TFR U,S ; SET UP PROGRAM STACK POINTER0534 LDA #TRADEL ; SET UP TIMER DELAY (NUMB CYCLES FOR RTI+1)0535 STA TADATA0536 LDA #$36 ; LOAD STROBE LOW0537 STA TACTRL0538 LDA TADATA ; CLEAR INTERRUPT0539 LDA #$36 ; RELEASE RESET0540 STA TBCTRL0541 LDA #$3F ; RELEASE LOAD, ENABLE CA1 NMI, CA1 RISING EDGE0542 STA TACTRL0543 RTI ; GO EXECUTE INSTRUCTION0544 *0545 TRACEX LDX NMISAV ; Restore NMI vector0546 STX NMI0547 LBRA NEXTCMD ; Jump back to the command loop.0548 *0549 ** TRACE HARDWARE INITIALISATION0550 *0551 TRAINZ LDA #$32 ; SELECT DDRA, CA2 LOW, NMI DISABLED0552 STA TACTRL0553 LDA #$3A ; SELECT DDRB, CB2 HIGH, FIRQ DISABLED0554 STA TBCTRL0555 LDA #$FF ; PORTA = OUTPUT0556 STA TADATA0557 LDA #$00 ; PORTB = INPUT0558 STA TBDATA0559 LDA #$36 ; SELECT OUTPUT REGISTER A, CA2 LOW0560 STA TACTRL0561 LDA #$3E ; SELECT OUTPUT REGISTER B, CB2 HIGH0562 STA TBCTRL0563 RTS0564 *0565 ENDIF TRAOPT0565 ENDIF TRAOPT0566 IFD MFDCOPT0567 *0568 ** "U" MINI DISK BOOT0569 *0570 MINBOOT TST CMDFDC0571 CLR DRVFDC0572 LDX #$00000573 LOOP LEAX $01,X0574 CMPX #$00000575 BNE LOOP0576 LDA #$0F0577 STA CMDFDC0578 BSR DELAY0579 LOOP1 LDB CMDFDC0580 BITB #$010581 BNE LOOP10582 LDA #$010583 STA SECFDC0584 BSR DELAY0585 LDA #$8C0586 STA CMDFDC0587 BSR DELAY0588 LDX #$C0000589 BRA LOOP30590 LOOP2 BITB #$020591 BEQ LOOP30592 LDA DATFDC0593 STA ,X+0594 LOOP3 LDB CMDFDC0595 BITB #$010596 BNE LOOP20597 BITB #$2C0598 BEQ LOOP40599 RTS0600 *0601 LOOP4 LDX #$C0000602 STX $0A,U0603 TFR U,S0604 RTI0605 *0606 DELAY LDB #$040607 LOOP5 DECB0608 BNE LOOP50609 RTS0610 ENDIF MFDCOPT0610 ENDIF MFDCOPT0611 *0612 IFD DMAFOPT0613 *0614 *** "D" DISK BOOT FOR DMAF2 ***0615 *0616 DBOOT LDA #$DE0617 STA DRVREG0618 LDA #$FF0619 STA PRIREG ; $FAF80620 STA CCREG0621 STA AAAREG0622 STA BBBREG0623 TST CCREG0624 LDA #$D80625 STA COMREG0626 LBSR DLY0627 DBOOT0 LDA COMREG0628 BMI DBOOT00629 LDA #$090630 STA COMREG0631 LBSR DLY0632 *0633 DISKWT LDA COMREG ; FETCH DRIVE STATUS0634 BITA #1 ; TEST BUSY BIT0635 BNE DISKWT ; LOOP UNTIL NOT BUSY0636 *0637 BITA #$100638 BNE DBOOT0639 *0640 LDX #$C000 ; LOGICAL ADDR. = $C0000641 BSR LRA ; GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR.0642 ORA #$100643 STA CCCREG0644 TFR X,D0645 COMA ;0646 COMB ;0647 STD ADDREG0648 LDX #$FEFF ; LOAD DMA BYTE COUNT = $1000649 STX CNTREG ; STORE IN COUNT REGISTER0650 LDA #$FF ; LOAD THE CHANNEL REGISTER0651 STA CCREG0652 LDA #$FE ; SET CHANNEL 00653 STA PRIREG0654 LDA #1 ; SET SECTOR TO "1"0655 STA SECREG ; ISSUE COMMAND0656 LDA #$8C ; SET SINGLE SECTOR READ0657 STA COMREG ; ISSUE COMMAND0658 BSR DLY0659 *0660 * THE FOLLOWING CODE TESTS THE STATUS OF THE0661 * CHANNEL CONTROL REGISTER. IF "D7" IS NOT0662 * ZERO THEN IT WILL LOOP WAITING FOR "D7"0663 * TO GO TO ZERO. IF AFTER 65,536 TRIES IT0664 * IS STILL A ONE THE BOOT OPERATION WILL0665 * BE STARTED OVER FROM THE BEGINING.0666 *0667 CLRB ;0668 DBOOT1 PSHS B ; $FB550669 CLRB ;0670 DBOOT2 TST CCREG0671 BPL DBOOT30672 DECB ;0673 BNE DBOOT20674 PULS B0675 DECB0676 BNE DBOOT10677 BRA DBOOT0678 DBOOT3 PULS B0679 LDA COMREG0680 BITA #$1C0681 BEQ DBOOT40682 RTS ;0683 *0684 *0685 DBOOT4 LDB #$DE0686 STB DRVREG0687 LDX #$C0000688 STX 10,U0689 TFR U,S ; $FB7B0690 RTI ;0691 ENDIF DMAFOPT0691 ENDIF DMAFOPT0692 *0693 IFD CF8OPT0694 *0695 * COMPACT FLASH BOOT0696 *0697 CFBOOT BSR WAITRDY0698 LDA #HEADLBA0699 STA CF_HEAD0700 BSR WAITRDY0701 LDA #FEAT8BIT0702 STA CF_FEATURE0703 LDA #CMDFEATURE0704 STA CF_COMAND0705 BSR WAITRDY0706 *0707 * READ SECTORS FROM CF0708 *0709 CFREAD LDA #$010710 STA CF_SECCNT0711 CLRA0712 STA CF_SECNUM0713 STA CF_CYLLO0714 STA CF_CYLHI0715 *0716 LDA #CMDREAD ; IDE READ MULTIPLE0717 STA CF_COMAND0718 BSR WAITRDY0719 LDX #$C0000720 *0721 * READ LOOP0722 *0723 RDLOOP BSR WAITDRQ0724 LDA CF_DATA0725 STA ,X+0726 CMPX #$C2000727 BNE RDLOOP0728 *0729 LDX #$C0000730 STX $0A,U0731 TFR U,S0732 RTI0733 *0734 * WAIT UNTIL READY0735 *0736 WAITRDY LDA CF_STATUS0737 BITA #BUSY0738 BNE WAITRDY0739 LDA CF_STATUS0740 BITA #DRDY0741 BEQ WAITRDY0742 RTS0743 *0744 * WAIT FOR DATA REQUEST0745 *0746 WAITDRQ LDA CF_STATUS0747 BITA #DRQ0748 BEQ WAITDRQ0749 RTS0750 ENDIF CF8OPT0750 ENDIF CF8OPT0751 *0752 IFD IDEOPT0753 *0754 * XESS 16 BIT IDE BOOT0755 *0756 IDEBOOT LDD #AUXRESET0757 STD CF_AUX0758 LDD #AUXRSTREL0759 STD CF_AUX0760 LDD #HEADLBA0761 STD CF_HEAD0762 BSR WAITRDY0763 *0764 * READ SECTORS FROM CF0765 *0766 LDD #$010767 STD CF_SECCNT0768 CLRB0769 STD CF_SECNUM0770 STD CF_CYLLO0771 STD CF_CYLHI0772 *0773 LDB #CMDREAD ; IDE READ MULTIPLE0774 STD CF_COMAND0775 BSR WAITRDY0776 LDX #$C0000777 *0778 * READ LOOP0779 *0780 RDLOOP BSR WAITDRQ0781 LDD CF_DATA0782 STB ,X+0783 CMPX #$C1000784 BNE RDLOOP0785 *0786 LDX #$C0000787 STX $0A,U0788 TFR U,S0789 RTI0790 *0791 * WAIT UNTIL READY0792 *0793 WAITRDY LDD CF_STATUS0794 BITB #BUSY0795 BNE WAITRDY0796 LDD CF_STATUS0797 BITB #DRDY0798 BEQ WAITRDY0799 RTS0800 *0801 * WAIT FOR DATA REQUEST0802 *0803 WAITDRQ LDD CF_STATUS0804 BITB #DRQ0805 BEQ WAITDRQ0806 RTS0807 ENDIF IDEOPT0807 ENDIF IDEOPT0808 *0809 IFD RTCOPT0810 *0811 * CLOCK INTER FACE UTILITY0812 *0813 * TIME <Hours> <Minuits> <Seconds>0814 * If no argument is specified, the current time0815 * will be displayed.0816 *0817 * READ A REGISTER FROM THE COUNTER.0818 * The X Index rgister points to the register0819 * to be read. The Status Register is checked0820 * before and after the register is read before0821 * returning a value in accumulator A0822 *0823 RDCLK TST CLKSTA0824 BNE RDCLK0825 RDCLK1 LDA 0,X0826 TST CLKSTA0827 BNE RDCLK10828 RTS0829 *0830 * MAIN PROGRAM:0831 *0832 TIMSET LDX #COUNTR ; POINT TO TIMER0833 LBSR BYTE ; READ HOURS0834 BVS SHOWTM ; NO ARG, DISP TIME0835 STA HOUR,X0836 LBSR OUT1S0837 LBSR BYTE ; READ MINUITES0838 BVS SHOWTM0839 STA MINUIT,X0840 LBSR OUT1S0841 LBSR BYTE ; SECONDS.0842 BVS SHOWTM0843 STA SECOND,X0844 *0845 * DISPLAY CURRENT TIME0846 *0847 SHOWTM LBSR PCRLF0848 LDX #COUNTR+HOUR0849 LDB #30850 SHOWLP BSR RDCLK0851 LBSR OUT2H0852 LDA #':0853 LBSR OUTCH0854 LEAX -1,X0855 DECB0856 BNE SHOWLP0857 RTS0858 *0859 * INITIATE CLOCK.0860 * MASK INTERRUPTS.0861 *0862 CLKINZ CLR CINTCR ; MASK ALL INTERRUPTS0863 TST CINTSR ; CLEAR ANY INTERRUPTS0864 RTS0865 ENDIF RTCOPT0865 ENDIF RTCOPT0866 IFD DATOPT0867 *0868 ***** LRA LOAD REAL ADDRESS *****0869 *0870 * THE FOLLOWING CODE LOADS THE 20-BIT0871 * PHYSICAL ADDRESS OF A MEMORY BYTE0872 * INTO THE "A" AND "X" REGISTERS. THIS0873 * ROUTINE IS ENTERED WITH THE LOGICAL0874 * ADDRESS OF A MEMORY BYTE IN THE "IX"0875 * REGISTER. EXIT IS MADE WITH THE HIGH-0876 * ORDER FOUR BITS OF THE 20-BIT PHYSICAL0877 * ADDRESS IN THE "A" REGISTER, AND THE0878 * LOW-ORDER 16-BITS OF THE 20-BIT0879 * PHYSICAL ADDRESS IN THE "IX" REGISTER.0880 * ALL OTHER REGISTERS ARE PRESERVED.0881 * THIS ROUTINE IS REQUIRED SINCE THE0882 * DMAF1 AND DMAF2 DISK CONTROLLERS MUST0883 * PRESENT PHYSICAL ADDRESSES ON THE0884 * SYSTEM BUS.0885 *0886 LRA PSHS A,B,X,Y ; PUSH REGISTERS ON STACK0887 LDA 2,S ; GET MSB LOGICAL ADDR FRM X REG ON STACK0888 LSRA ;0889 LSRA ; ADJ FOR INDEXED INTO0890 LSRA ; CORRESPONDING LOCATION0891 LSRA ; IN LRA TABLE0892 LDY #LRARAM ; LOAD LRA TABLE BASE ADDRESS0893 LDB A,Y ; GET PHYSICAL ADDR. DATA FROM LRA TABLE0894 LSRB ; ADJ. REAL ADDR. TO REFLECT EXTENDED0895 LSRB ; PHYSICAL ADDRESS.0896 LSRB ; EXTENDED MS 4-BITS ARE RETURNED0897 LSRB ; IN THE "A" ACCUMULATOR0898 STB ,S ; MS 4 BITS IN A ACCUM. STORED ON STACK0899 LDB A,Y ; LOAD REAL ADDRESS DATA FROM LRA TABLE0900 COMB ; COMP TO ADJ FOR PHYSICAL ADDR. IN X REG0901 ASLB ; ADJ DATA FOR RELOCATION IN X REG0902 ASLB ;0903 ASLB ; $FB970904 ASLB ;0905 LDA 2,S ; GET MS BYTE OF LOGICAL ADDR.0906 ANDA #$0F ; MASK MS NIBBLE OF LOGICAL ADDRESS0907 STA 2,S ; SAVE IT IN X REG ON STACK0908 ORB 2,S ; SET MS BYTE IN X REG TO ADJ PHY ADDR.0909 *0910 * PLUS LS NIBBLE OF LOGICAL ADDRESS0911 *0912 STB 2,S ; SAVE AS LS 16 BITS OF PHY ADDR IN X REG ON STACK0913 PULS A,B,X,Y,PC ; POP REGS. FROM STACK0914 ENDIF DATOPT0914 ENDIF DATOPT0915 *0916 * DELAY LOOP0917 *0918 F9BC 34 04 DLY PSHS B ; SAVE CONTENTS OF "B"0919 F9BE C6 20 LDB #$20 ; GET LOOP DELAY VALUE0920 F9C0 5A SUB1 DECB ; SUBTRACT ONE FROM VALUE0921 F9C1 26 FD BNE SUB1 ; LOOP UNTIL ZERO0922 F9C3 35 84 PULS B,PC ; RESTORE CONTENTS OF "B"0923 * RTS ;0924 *0925 ***** "L" LOAD MIKBUG TAPE *****0926 *0927 F9C5 BD FC 36 LOAD JSR ACINIZ0928 F9C8 86 11 LDA #$11 ; LOAD 'DC1' CASS. READ ON CODE0929 F9CA 17 02 54 LBSR OUTCH ; OUTPUT IT TO TERMINAL PORT0930 F9CD 7F DF D2 CLR ECHO ; TURN OFF ECHO FLAG0931 F9D0 17 02 26 LOAD1 LBSR ECHON ; INPUT 8 BIT BYTE WITH NO ECHO0932 F9D3 81 53 LOAD2 CMPA #'S ; IS IT AN "S", START CHARACTER ?0933 F9D5 26 F9 BNE LOAD1 ; IF NOT, DISCARD AND GET NEXT CHAR.0934 F9D7 17 02 1F LBSR ECHON0935 F9DA 81 39 CMPA #'9 ; IS IT A "9" , END OF FILE CHAR ?0936 F9DC 27 3D BEQ LOAD21 ; IF SO, EXIT LOAD0937 F9DE 81 31 CMPA #'1 ; IS IT A "1" , FILE LOAD CHAR ?0938 F9E0 26 F1 BNE LOAD2 ; IF NOT, LOOK FOR START CHAR.0939 F9E2 17 01 A8 LBSR BYTE ; INPUT BYTE COUNT0940 F9E5 34 02 PSHS A ; PUSH COUNT ON STACK0941 F9E7 29 26 BVS LODERR ; (V) C-CODE SET, ILLEGAL HEX0942 F9E9 17 01 91 LBSR IN1ADR ; INPUT LOAD ADDRESS0943 F9EC 29 21 BVS LODERR ; (V) C-CODE SET, ADDR NOT HEX0944 F9EE 34 10 PSHS X ; PUSH ADDR ON STACK0945 F9F0 E6 E0 LDB ,S+ ; LOAD MSB OF ADDR AS CHECKSUM BYTE0946 F9F2 EB E0 ADDB ,S+ ; ADD LSB OF ADDR TO CHECKSUM0947 F9F4 EB E4 ADDB ,S ; ADD BYTE COUNT BYTE TO CHECKSUM0948 F9F6 6A E4 DEC ,S ; $FC37 DECREMENT BYTE COUNT 2 TO BYPASS0949 F9F8 6A E4 DEC ,S ; ADDRESS BYTES.0950 F9FA 34 04 LOAD10 PSHS B ; PUSH CHECKSUM ON STACK0951 F9FC 17 01 8E LBSR BYTE ; INPUT DATA BYTE (2 HEX CHAR)0952 F9FF 35 04 PULS B ; POP CHECKSUM FROM STACK0953 FA01 29 0C BVS LODERR ; (V) SET, DATA BYTE NOT HEX0954 FA03 34 02 PSHS A ; PUSH DATA BYTE ON STACK0955 FA05 EB E0 ADDB ,S+ ; ADD DATA TO CHECKSUM, AUTO INC STACK0956 FA07 6A E4 DEC ,S ; DECREMENT BYTE COUNT 10957 FA09 27 05 BEQ LOAD16 ; IF BYTE COUNT ZERO, TEST CHECKSUM0958 FA0B A7 80 STA ,X+ ; SAVE DATA BYTE IN MEMORY0959 FA0D 20 EB BRA LOAD10 ; GET NEXT DATA BYTE0960 FA0F 5F LODERR CLRB ; ERROR CONDITION, ZERO CHECKSUM ;0961 FA10 35 02 LOAD16 PULS A ; ADJUST STACK (REMOVE BYTE COUNT)0962 FA12 C1 FF CMPB #$FF ; CHECKSUM OK?0963 FA14 27 BA BEQ LOAD1 ; IF SO, LOAD NEXT LINE0964 FA16 86 3F LDA #'? ; LOAD (?) ERROR INDICATOR0965 FA18 17 02 06 LBSR OUTCH ; OUTPUT IT TO TERMINAL0966 FA1B 73 DF D2 LOAD21 COM ECHO ; TURN ECHO ON0967 FA1E 86 13 LDA #$13 ; $FC5F LOAD 'DC3' CASS. READ OFF CODE0968 FA20 16 01 FE LBRA OUTCH ; OUTPUT IT0969 *0970 ***** "P" PUNCH MIKBUG TAPE *****0971 *0972 FA23 6F E2 PUNCH CLR ,-S ; CLEAR RESERVED BYTE ON STACK0973 FA25 17 01 4A LBSR IN2ADR ; GET BEGIN AND END ADDRESS0974 FA28 34 30 PSHS X,Y ; SAVE ADDRESSES ON STACK0975 FA2A 29 4D BVS PUNEXT ; (V) C-CODE SET, EXIT PUNCH0976 FA2C AC 62 CMPX 2,S ; COMPARE BEGIN TO END ADDR0977 FA2E 25 49 BCS PUNEXT ; IF BEGIN GREATER THAN END, EXIT PUNCH0978 FA30 30 01 LEAX 1,X ; INCREMENT END ADDRESS0979 FA32 AF E4 STX ,S ; STORE END ADDR ON STACK0980 FA34 BD FC 36 JSR ACINIZ0981 FA37 86 12 LDA #$12 ; LOAD 'DC2' PUNCH ON CODE0982 FA39 17 01 E5 LBSR OUTCH ; OUTPUT IT TO TERMINAL0983 FA3C EC E4 PUNCH2 LDD ,S ; LOAD END ADDR IN D-ACC0984 FA3E A3 62 SUBD 2,S ; SUBTRACT BEGIN FROM END0985 FA40 27 06 BEQ PUNCH3 ; SAME, PUNCH 32 BYTES DEFAULT0986 FA42 10 83 00 20 CMPD #$20 ; LESS THAN 32 BYTES?0987 FA46 23 02 BLS PUNCH4 ; PUNCH THAT MANY BYTES0988 FA48 C6 20 PUNCH3 LDB #$20 ; LOAD BYTE COUNT OF 32.0989 FA4A E7 64 PUNCH4 STB 4,S ; STORE ON STACK AS BYTE COUNT0990 FA4C 8E FC F6 LDX #MSG20 ; POINT TO MSG "S1"0991 FA4F 17 00 2F LBSR PSTRNG ; PRINT MSG0992 FA52 CB 03 ADDB #3 ; ADD 3 BYTES TO BYTE COUNT0993 FA54 1F 98 TFR B,A ; GET BYTE COUNT IN A-ACC TO PUNCH0994 FA56 17 01 75 LBSR OUT2H ; OUTPUT BYTE COUNT0995 FA59 AE 62 LDX 2,S ; LOAD BEGIN ADDRESS0996 FA5B 17 01 68 LBSR OUT4H ; PUNCH ADDRESS0997 FA5E EB 62 ADDB 2,S ; ADD ADDR MSB TO CHECKSUM0998 FA60 EB 63 ADDB 3,S ; ADD ADDR LSB TO CHECKSUM0999 FA62 EB 84 PUNCHL ADDB ,X ; ADD DATA BYTE TO CHECKSUM1000 FA64 A6 80 LDA ,X+ ; LOAD DATA BYTE TO PUNCH1001 FA66 17 01 65 LBSR OUT2H ; OUTPUT DATA BYTE1002 FA69 6A 64 DEC 4,S ; DECREMENT BYTE COUNT1003 FA6B 26 F5 BNE PUNCHL ; NOT DONE, PUNCH NEXT BYTE1004 FA6D 53 COMB 1's ; COMPLIMENT CHECKSUM BYTE1005 FA6E 1F 98 TFR B,A ; GET IT IN A-ACC TO PUNCH1006 FA70 17 01 5B LBSR OUT2H ; OUTPUT CHECKSUM BYTE1007 FA73 AF 62 STX 2,S ; SAVE X-REG IN STACK AS NEW PUNCH ADDR1008 FA75 AC E4 CMPX ,S ; COMPARE IT TO END ADDR1009 FA77 26 C3 BNE PUNCH2 ; $FCB5 PUNCH NOT DONE, CONT.1010 FA79 86 14 PUNEXT LDA #$14 ; LOAD 'DC4' PUNCH OFF CODE1011 FA7B 17 01 A3 LBSR OUTCH ; OUTPUT IT1012 FA7E 32 65 LEAS 5,S ; READJUST STACK POINTER1013 FA80 39 RTS ;1014 *1015 * PRINT STRING PRECEEDED BY A CR & LF.1016 *1017 FA81 8D 02 PSTRNG BSR PCRLF ; PRINT CR/LF1018 FA83 20 71 BRA PDATA ; PRINT STRING POINTED TO BY IX1019 *1020 * PCRLF1021 *1022 FA85 34 10 PCRLF PSHS X ; SAVE IX1023 FA87 8E FC A7 LDX #MSG2+1 ; POINT TO MSG CR/LF + 3 NULS1024 FA8A 17 00 69 LBSR PDATA ; PRINT MSG1025 FA8D 35 90 PULS X,PC ; RESTORE IX & RETURN1026 *1027 * LONG BRANCHES TO COMMON ROUTINES1028 *1029 FA8F 16 01 8D JOUT1S LBRA OUT1S1030 FA92 16 00 F8 JBYTE LBRA BYTE1031 FA95 16 00 E5 JIN1ADR LBRA IN1ADR1032 *1033 * ALTER "PC" PROGRAM COUNTER1034 *1035 FA98 17 00 91 ALTRPC LBSR PRTPC ; $FCF5 PRINT MSG " PC = "1036 FA9B 8D F2 ALTPC1 BSR JOUT1S ; OUTPUT SPACE1037 FA9D 8D F6 BSR JIN1ADR ; GET NEW CONTENTS FOR "PC"1038 FA9F 29 02 BVS ALTPCD ; EXIT IF INVALID HEX1039 FAA1 AF 4A STX 10,U ; POKE IN NEW CONTENTS1040 FAA3 39 ALTPCD RTS ;1041 *1042 * ALTER "U" USER STACK POINTER1043 *1044 FAA4 8D 61 ALTRU BSR PRTUS ; $FCCA PRINT MSG " US = "1045 FAA6 8D E7 BSR JOUT1S ; OUTPUT SPACE1046 FAA8 8D EB BSR JIN1ADR ; GET NEW CONTENTS FOR "US"1047 FAAA 29 02 BVS ALTUD ; EXIT IF INVALID HEX1048 FAAC AF 48 STX 8,U ; POKE IN NEW CONTENTS1049 FAAE 39 ALTUD RTS ;1050 *1051 * ALTER "Y" INDEX REGISTER1052 *1053 FAAF 8D 72 ALTRY BSR PRTIY ; PRINT MSG " IY = "1054 FAB1 8D DC BSR JOUT1S ; OUTPUT SPACE1055 FAB3 8D E0 BSR JIN1ADR ; GET NEW CONTENTS FOR "IY"1056 FAB5 29 02 BVS ALTYD ; EXIT IF INVALID HEX1057 FAB7 AF 46 STX 6,U ; $F8F0 POKE IN NEW CONTENTS1058 FAB9 39 ALTYD RTS ;1059 *1060 * ALTER "X" INDEX REGISTER1061 *1062 FABA 8D 5E ALTRX BSR PRTIX ; $FCE0 PRINT MSG " IX = "1063 FABC 8D D1 BSR JOUT1S ; OUTPUT SPACE1064 FABE 8D D5 BSR JIN1ADR1065 FAC0 29 02 BVS ALTXD1066 FAC2 AF 44 STX 4,U1067 FAC4 39 ALTXD RTS ;1068 *1069 * ALTER "DP" DIRECT PAGE REGISTER1070 *1071 FAC5 8D 49 ALTRDP BSR PRTDP ; $FCD5 PRINT MSG " DP = "1072 FAC7 8D C6 BSR JOUT1S ; OUTPUT SPACE1073 FAC9 8D C7 BSR JBYTE ; INPUT BYTE (2 HEX CHAR)1074 FACB 29 02 BVS ALTDPD1075 FACD A7 43 STA 3,U1076 FACF 39 ALTDPD RTS ;1077 *1078 * ALTER "B" ACCUMULATOR1079 *1080 FAD0 8D 6C ALTRB BSR PRTB ; $FD09 PRINT MSG " B = "1081 FAD2 8D BB BSR JOUT1S ; OUTPUT SPACE1082 FAD4 8D BC BSR JBYTE ; INPUT BYTE (2 HEX CHAR)1083 FAD6 29 02 BVS ALTBD1084 FAD8 A7 42 STA 2,U1085 FADA 39 ALTBD RTS ; $F91C1086 *1087 * ALTER "A" ACCUMULATOR1088 *1089 FADB 8D 58 ALTRA BSR PRTA ; $FCFF RINT MSG " A = "1090 FADD 8D B0 BSR JOUT1S ; OUTPUT SPACE1091 FADF 8D B1 BSR JBYTE ; INPUT BYTE (2 HEX CHAR)1092 FAE1 29 02 BVS ALTAD1093 FAE3 A7 41 STA 1,U1094 FAE5 39 ALTAD RTS ;1095 *1096 * ALTER "CC" REGISTER1097 *1098 FAE6 8D 5F ALTRCC BSR PRTCC ; $FD13 PRINT MSG " CC: "1099 FAE8 8D A5 BSR JOUT1S ; OUTPUT SPACE1100 FAEA 8D A6 BSR JBYTE ; INPUT BYTE (2 HEX CHAR)1101 FAEC 29 04 BVS ALTCCD1102 FAEE 8A 80 ORA #$80 ; SETS "E" FLAG IN PRINT LIST1103 FAF0 A7 C4 STA ,U1104 FAF2 39 ALTCCD RTS ;1105 *1106 * PDATA1107 *1108 FAF3 17 01 2B PRINT LBSR OUTCH1109 FAF6 A6 80 PDATA LDA ,X+ ; GET 1st CHAR. TO PRINT1110 FAF8 81 04 CMPA #4 ; IS IT EOT?1111 FAFA 26 F7 BNE PRINT ; IF NOT EOT PRINT IT1112 FAFC 39 RTS ;1113 *1114 * PRINT REGISTERS1115 *1116 FAFD 8E FC B9 PRTSP LDX #MSG10 ; POINT TO MSG "SP="1117 FB00 8D F4 BSR PDATA ; PRINT MSG1118 FB02 1F 31 TFR U,X1119 FB04 16 00 BF JOUT4H LBRA OUT4H1120 *1121 FB07 8E FC C5 PRTUS LDX #MSG12 ; POINT TO MSG "US="1122 FB0A 8D EA BSR PDATA ; PRINT MSG1123 FB0C AE 48 LDX 8,U1124 FB0E 20 F4 BRA JOUT4H1125 *1126 FB10 8E FC D7 PRTDP LDX #MSG15 ; POINT TO MSG "DP="1127 FB13 8D E1 BSR PDATA ; PRINT MSG1128 FB15 A6 43 LDA 3,U1129 FB17 16 00 B4 JOUT2H LBRA OUT2H ; OUTPUT HEX BYTE AS ASCII1130 *1131 FB1A 8E FC D1 PRTIX LDX #MSG14 ; POINT TO MSG "IX="1132 FB1D 8D D7 BSR PDATA ; PRINT MSG1133 FB1F AE 44 LDX 4,U ; $FCE61134 FB21 20 E1 BRA JOUT4H1135 *1136 FB23 8E FC CB PRTIY LDX #MSG13 ; POINT TO MSG "IY="1137 FB26 8D CE BSR PDATA ; PRINT MSG1138 FB28 AE 46 LDX 6,U1139 FB2A 20 D8 BRA JOUT4H1140 *1141 FB2C 8E FC BF PRTPC LDX #MSG11 ; POINT TO MSG "PC="1142 FB2F 8D C5 BSR PDATA ; PRINT MSG1143 FB31 AE 4A LDX 10,U1144 FB33 20 CF BRA JOUT4H1145 *1146 FB35 8E FC DD PRTA LDX #MSG16 ; POINT TO MSG "A="1147 FB38 8D BC BSR PDATA ; PRINT MSG1148 FB3A A6 41 LDA 1,U1149 FB3C 20 D9 BRA JOUT2H ; OUTPUT HEX BYTE AS ASCII1150 *1151 FB3E 8E FC E2 PRTB LDX #MSG17 ; POINT TO MSG "B="1152 FB41 8D B3 BSR PDATA ; PRINT MSG1153 FB43 A6 42 LDA 2,U1154 FB45 20 D0 BRA JOUT2H ; OUTPUT HEX BYTE AS ASCII1155 *1156 FB47 8E FC E7 PRTCC LDX #MSG18 ; POINT TO MSG "CC:"1157 FB4A 8D AA BSR PDATA ; PRINT MSG1158 FB4C A6 C4 LDA ,U1159 FB4E 8E FC EE LDX #MSG19 ; POINT TO MSG "EFHINZVC"1160 FB51 16 00 90 LBRA BIASCI ; OUTPUT IN BINARY/ASCII FORMAT1161 *1162 * "R" DISPLAY REGISTERS1163 *1164 FB54 8E FC B5 REGSTR LDX #MSG5 ; POINT TO MSG " - "1165 FB57 17 FF 27 LBSR PSTRNG ; PRINT MSG1166 FB5A 8D A1 BSR PRTSP ; $FCBF1167 FB5C 8D A9 BSR PRTUS ; $FCCA1168 FB5E 8D B0 BSR PRTDP ; $FCD51169 FB60 8D B8 BSR PRTIX ; $FCE01170 FB62 8D BF BSR PRTIY ; $FCEB1171 FB64 8E FC B5 LDX #MSG5 ; POINT TO MSG " - "1172 FB67 17 FF 17 LBSR PSTRNG ; PRINT MSG1173 FB6A 8D C0 BSR PRTPC ; $FCF51174 FB6C 8D C7 BSR PRTA ; $FCFF1175 FB6E 8D CE BSR PRTB ; $FD091176 FB70 20 D5 BRA PRTCC ; $FD131177 *1178 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE1179 * OPERATOR TO INPUT TWO VALID HEX ADDRESSES.1180 * THE FIRST ADDRESS INPUT IS RETURNED IN "IY".1181 * THE SECOND IS RETURNED IN "IX". THE "V" BIT1182 * IN THE C-CODE REG. IS SET IF AN INVALID HEX1183 * ADDRESS IS INPUT.1184 *1185 FB72 8D 09 IN2ADR BSR IN1ADR ; GET FIRST ADDRESS1186 FB74 29 4D BVS NOTHEX ; EXIT IF NOT VALID HEX1187 FB76 1F 12 TFR X,Y ; SAVE FIRST ADDR. IN "IY"1188 FB78 86 2D LDA #'-1189 FB7A 17 00 A4 LBSR OUTCH ; PRINT " - "1190 *1191 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE1192 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE1193 * ADDRESS IS RETURNED IN THE "X" REGISTER.1194 *1195 FB7D 8D 0E IN1ADR BSR BYTE ; INPUT BYTE (2 HEX CHAR)1196 FB7F 29 42 BVS NOTHEX ; EXIT IF NOT VALID HEX1197 FB81 1F 01 TFR D,X1198 FB83 8D 08 BSR BYTE ; INPUT BYTE (2 HEX CHAR)1199 FB85 29 3C BVS NOTHEX1200 FB87 34 10 PSHS X1201 FB89 A7 61 STA 1,S1202 FB8B 35 90 PULS X,PC1203 *1204 ***** INPUT BYTE (2 HEX CHAR.) *****1205 *1206 FB8D 8D 11 BYTE BSR INHEX ; GET HEX LEFT1207 FB8F 29 32 BVS NOTHEX ; EXIT IF NOT VALID HEX1208 FB91 48 ASLA ;1209 FB92 48 ASLA ;1210 FB93 48 ASLA ; SHIFT INTO LEFT NIBBLE1211 FB94 48 ASLA ;1212 FB95 1F 89 TFR A,B ; PUT HEXL IN "B"1213 FB97 8D 07 BSR INHEX ; GET HEX RIGHT1214 FB99 29 28 BVS NOTHEX ; EXIT IF NOT VALID HEX1215 FB9B 34 04 PSHS B ; PUSH HEXL ON STACK1216 FB9D AB E0 ADDA ,S+ ; ADD HEXL TO HEXR AND ADJ. STK1217 FB9F 39 RTS ; RETURN WITH HEX L&R IN "A"1218 *1219 *1220 FBA0 8D 57 INHEX BSR ECHON ; INPUT ASCII CHAR.1221 FBA2 81 30 CMPA #'0 ; IS IT > OR = "0" ?1222 FBA4 25 1D BCS NOTHEX ; IF LESS IT AIN'T HEX1223 FBA6 81 39 CMPA #'9 ; IS IT < OR = "9" ?1224 FBA8 22 03 BHI INHEXA ; IF > MAYBE IT'S ALPHA1225 FBAA 80 30 SUBA #$30 ; ASCII ADJ. NUMERIC1226 FBAC 39 RTS ;1227 *1228 *1229 FBAD 81 41 INHEXA CMPA #'A ; IS IT > OR = "A"1230 FBAF 25 12 BCS NOTHEX ; IF LESS IT AIN'T HEX1231 FBB1 81 46 CMPA #'F ; IS IT < OR = "F" ?1232 FBB3 22 03 BHI INHEXL ; IF > IT AIN'T HEX1233 FBB5 80 37 SUBA #'A-10 ; ($37) ASCII ADJ. ALPHA1234 FBB7 39 RTS ;1235 *1236 FBB8 81 61 INHEXL CMPA #'a ; IS IT > OR = "a"1237 FBBA 25 07 BCS NOTHEX ; IF LESS IT AIN'T HEX1238 FBBC 81 66 CMPA #'f ; IS IT < "f"1239 FBBE 22 03 BHI NOTHEX ; IF > IT AIN'T HEX1240 FBC0 80 57 SUBA #'a-10 ; ($57) ADJUST TO LOWER CASE1241 FBC2 39 RTS ;1242 *1243 *1244 FBC3 1A 02 NOTHEX ORCC #2 ; SET (V) FLAG IN C-CODES REGISTER1245 FBC5 39 RTS ;1246 *1247 *1248 FBC6 34 10 OUT4H PSHS X ; PUSH X-REG. ON THE STACK1249 FBC8 35 02 PULS A ; POP MS BYTE OF X-REG INTO A-ACC.1250 FBCA 8D 02 BSR OUTHL ; OUTPUT HEX LEFT1251 FBCC 35 02 PULS A ; POP LS BYTE OF X-REG INTO A-ACC.1252 FBCE OUTHL EQU *1253 FBCE 34 02 OUT2H PSHS A ; SAVE IT BACK ON STACK1254 FBD0 44 LSRA ; CONVERT UPPER HEX NIBBLE TO ASCII1255 FBD1 44 LSRA ;1256 FBD2 44 LSRA ;1257 FBD3 44 LSRA ;1258 FBD4 8D 04 BSR XASCII ; PRINT HEX NIBBLE AS ASCII1259 FBD6 35 02 OUTHR PULS A ; CONVERT LOWER HEX NIBBLE TO ASCII1260 FBD8 84 0F ANDA #$0F ; STRIP LEFT NIBBLE1261 FBDA 8B 30 XASCII ADDA #$30 ; ASCII ADJ1262 FBDC 81 39 CMPA #$39 ; IS IT < OR = "9" ?1263 FBDE 2F 02 BLE OUTC ; IF LESS, OUTPUT IT1264 FBE0 8B 07 ADDA #7 ; IF > MAKE ASCII LETTER1265 FBE2 20 3D OUTC BRA OUTCH ; OUTPUT CHAR1266 *1267 * BINARY / ASCII --- THIS ROUTINE1268 * OUTPUTS A BYTE IN ENHANCED1269 * BINARY FORMAT. THE ENHANCEMENT1270 * IS DONE BY SUBSTITUTING ASCII1271 * LETTERS FOR THE ONES IN THE BYTE.1272 * THE ASCII ENHANCEMENT LETTERS1273 * ARE OBTAINED FROM THE STRING1274 * POINTED TO BY THE INDEX REG. "X".1275 *1276 FBE4 34 02 BIASCI PSHS A ; SAVE "A" ON STACK1277 FBE6 C6 08 LDB #8 ; PRESET LOOP# TO BITS PER BYTE1278 FBE8 A6 80 OUTBA LDA ,X+ ; GET LETTER FROM STRING1279 FBEA 68 E4 ASL ,S ; TEST BYTE FOR "1" IN B71280 FBEC 25 02 BCS PRTBA ; IF ONE PRINT LETTER1281 FBEE 86 2D LDA #'- ; IF ZERO PRINT "-"1282 FBF0 8D 2F PRTBA BSR OUTCH ; PRINT IT1283 FBF2 8D 2B BSR OUT1S ; PRINT SPACE1284 FBF4 5A DECB ; SUB 1 FROM #BITS YET TO PRINT1285 FBF5 26 F1 BNE OUTBA1286 FBF7 35 82 PULS A,PC1287 *1288 IFD EXTOPT1289 *1290 * EXTENDED USER COMMANDS1291 *1292 USRCMD JMP [MONEXT+EXTCMD]1293 ENDIF EXTOPT1293 ENDIF EXTOPT1294 *1295 *1296 FBF9 7D DF D2 ECHON TST ECHO ; IS ECHO REQUIRED ?1297 FBFC 27 06 BEQ INCH ; ECHO NOT REQ. IF CLEAR1298 *1299 * INCHE1300 *1301 * GETS CHARACTER FROM TERMINAL AND1302 * ECHOS SAME. THE CHARACTER IS RETURNED1303 * IN THE "A" ACCUMULATOR WITH THE PARITY1304 * BIT MASKED OFF. ALL OTHER REGISTERS1305 * ARE PRESERVED.1306 *1307 FBFE 8D 04 INCHE BSR INCH ; GET CHAR FROM TERMINAL1308 FC00 84 7F ANDA #$7F ; STRIP PARITY FROM CHAR.1309 FC02 20 1D BRA OUTCH ; ECHO CHAR TO TERMINAL1310 *1311 * INCH1312 *1313 * GET CHARACTER FROM TERMINAL. RETURN1314 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE1315 * ALL OTHER REGISTERS. THE INPUT CHARACTER1316 * IS 8 BITS AND IS NOT ECHOED.1317 *1318 *1319 FC04 34 10 INCH PSHS X ; SAVE IX1320 IFD HFCOPT1321 LDA #$11 ; SET RTS* LOW, REQUEST FAR END TO TX1322 STA [CPORT]1323 ENDIF HFCOPT1323 ENDIF HFCOPT1324 FC06 BE DF D0 GETSTA LDX CPORT ; POINT TO TERMINAL PORT1325 FC09 A6 84 LDA ,X ; FETCH PORT STATUS1326 FC0B 85 01 BITA #1 ; TEST READY BIT, RDRF ?1327 IFD PS2OPT1328 BNE GETST11329 LDX #PS2KBD1330 LDA ,X1331 BITA #11332 ENDIF PS2OPT1332 ENDIF PS2OPT1333 FC0D 27 F7 BEQ GETSTA ; IF NOT RDY, THEN TRY AGAIN1334 FC0F GETST1 EQU *1335 IFD HFCOPT1336 LDA #$51 ; SET RTS* HIGH, STOP FAR END FROM TXING, UNTIL NEXT INPUT1337 STA [CPORT]1338 ENDIF HFCOPT1338 ENDIF HFCOPT1339 FC0F A6 01 LDA 1,X ; FETCH CHAR1340 FC11 35 90 PULS X,PC ; RESTORE IX1341 *1342 * INCHEK1343 *1344 * CHECK FOR A CHARACTER AVAILABLE FROM1345 * THE TERMINAL. THE SERIAL PORT IS CHECKED1346 * FOR READ READY. ALL REGISTERS ARE1347 * PRESERVED, AND THE "Z" BIT WILL BE1348 * CLEAR IF A CHARACTER CAN BE READ.1349 *1350 *1351 FC13 34 02 INCHEK PSHS A ; SAVE A ACCUM1352 IFD HFCOPT1353 LDA #$11 ; SET RTS* LOW, REQUEST FAR END TO TX1354 STA [CPORT]1355 ENDIF HFCOPT1355 ENDIF HFCOPT1356 FC15 A6 9F DF D0 LDA [CPORT] ; FETCH PORT STATUS1357 FC19 85 01 BITA #1 ; TEST READY BIT, RDRF ?1358 IFD PS2OPT1359 BNE INCHEK11360 LDA PS2KBD1361 BITA #1 ; TEST READY BIT< RDRF ?1362 ENDIF PS2OPT1362 ENDIF PS2OPT1363 FC1B 35 82 INCHEK1 PULS A,PC ; RESTORE A ACCUM.1364 *1365 FC1D 8D 00 OUT2S BSR OUT1S ; OUTPUT 2 SPACES1366 FC1F 86 20 OUT1S LDA #$20 ; OUTPUT 1 SPACE1367 *1368 *1369 * OUTCH1370 *1371 * OUTPUT CHARACTER TO TERMINAL.1372 * THE CHAR. TO BE OUTPUT IS1373 * PASSED IN THE A REGISTER.1374 * ALL REGISTERS ARE PRESERVED.1375 *1376 OUTCH IFD VDUOPT1377 BSR VOUTCH1378 ENDIF VDUOPT1378 ENDIF VDUOPT1379 IFD DG640OPT1380 BSR VOUTCH1381 ENDIF DG640OPT1381 ENDIF DG640OPT1382 FC21 34 12 AOUTCH PSHS A,X ; SAVE A ACCUM AND IX1383 FC23 BE DF D0 LDX CPORT ; GET ADDR. OF TERMINAL1384 FC26 A6 84 FETSTA LDA ,X ; FETCH PORT STATUS1385 FC28 85 02 BITA #2 ; TEST TDRE, OK TO XMIT ?1386 FC2A 27 FA BEQ FETSTA ; IF NOT LOOP UNTIL RDY1387 FC2C 85 08 BITA #8 ; CLEAR TO SEND ?1388 FC2E 26 F6 BNE FETSTA ; NO, LOOP UNTIL CLEAR1389 FC30 35 02 PULS A ; GET CHAR. FOR XMIT1390 FC32 A7 01 STA 1,X ; XMIT CHAR.1391 FC34 35 90 PULS X,PC ; RESTORE IX1392 *1393 * IO INITIALIZATION1394 *1395 FC36 IOINIZ EQU *1396 IFD VDUOPT1397 BSR VINIZ1398 ENDIF VDUOPT1398 ENDIF VDUOPT1399 IFD DG640OPT1400 BSR VINIZ1401 ENDIF DG640OPT1401 ENDIF DG640OPT1402 FC36 BE DF D0 ACINIZ LDX CPORT ; POINT TO CONTROL PORT ADDRESS1403 FC39 86 03 LDA #3 ; RESET ACIA PORT CODE1404 FC3B A7 84 STA ,X ; STORE IN CONTROL REGISTER1405 FC3D 86 51 LDA #$51 ; SET 8 DATA, 2 STOP AN 0 PARITY RTS* HIGH1406 FC3F A7 84 STA ,X ; STORE IN CONTROL REGISTER1407 FC41 6D 01 TST 1,X ; ANYTHING IN DATA REGISTER?1408 FC43 86 FF LDA #$FF ; TURN ON ECHO FLAG1409 FC45 B7 DF D2 STA ECHO1410 FC48 39 RTS1411 *1412 IFD VDUOPT1413 *1414 ***************************************************1415 * VDU8 ADM3A REGISTER-MAPPED EMULATOR *1416 * *1417 * 80 x 25 Characters1418 *1419 ***************************************************1420 *1421 ***************************************************1422 * INITIALIZE EMULATOR *1423 ***************************************************1424 *1425 VINIZ LDX #VDU1426 LDD #01427 STD COLADX ; AND ROWADX1428 STA VDUCOL,X1429 STB VDUROW,X1430 STB VDUOFF,X1431 STD NEWROW ; AND ESCFLG1432 LDB #$021433 STB VDUATT,X1434 CLR ESCFLG1435 LDA #$1B ; SEND ESCAPE1436 BSR VOUTCH1437 LDA #'Y ; CLEAR TO END OF SCREEN1438 *1439 ** VIDEO OUTPUT ROUTINE1440 *1441 VOUTCH PSHS A,B,X ; SAVE REGISTERS1442 LDX #VDU ; POINT TO VDU REGISTERS1443 *1444 ** CHECK FOR ESCAPE SEQUENCE1445 *1446 TST ESCFLG ; ESCAPE ACTIVE?1447 BEQ SOROU1 ; BRANCH IF NOT1448 BSR ESCAPE ; ELSE DO ESCAPE1449 BRA RETURN ; AND RETURN1450 *1451 ** CHECK FOR CONTROL CHARACTERS1452 *1453 SOROU1 CMPA #$20 ; CONTROL CODES?1454 BHS SOROU21455 BSR CONTRL ; BRANCH IF SO1456 BRA RETURN1457 *1458 ** OUTPUT TEXT CHARACTER1459 *1460 SOROU2 STA VDUCHR,X ; DISPLAY CHARACTER1461 LBSR NEWCOL ; UPDATE COLUMN1462 *1463 ** DISPLAY CURSOR AND RETURN1464 *1465 RETURN PULS A,B,X,PC ; RESTORE REGISTERS AND RETURN1466 *1467 ***************************************************1468 * CONTROL CODE HANDLERS *1469 ***************************************************1470 *1471 CONTRL CMPA #$08 ; CTRL H - BACKSPACE ?1472 BEQ BACKSP1473 CMPA #$1B ; ESCAPE SEQUENCE?1474 BEQ SETESC1475 CMPA #$1A ; CTRL Z - Clear Screen1476 LBEQ CLRSCR1477 CMPA #$16 ; CTRL ^ - Home1478 BEQ HOME1479 CMPA #$0D ; CTRL M - RETURN?1480 LBEQ CRETN1481 CMPA #$0C ; CTRL L - CHAR RIGHT1482 BEQ CHRIGHT1483 CMPA #$0B ; CTRL K - MOVE UP ONE LINE1484 BEQ LINEUP1485 CMPA #$0A ; CTRL J - LINE FEED1486 BNE RETESC ; NONE OF THESE, RETURN1487 *1488 ***************************************** LINE FEED1489 *1490 LINEFD LDD COLADX ; GET CURRENT COLUMN AND ROW1491 INCB ; BUMP ROW1492 CMPB #NUMLIN ; SCROLL TIME?1493 BNE NEWCUR ; POSITION CURSOR IF NOT1494 LBRA SCROLL ; ELSE SCROLL IT1495 *1496 ***************************************** LINE FEED1497 *1498 LINEUP LDD COLADX ; GET CURRENT COLUMN AND ROW1499 TSTB ; AT TOP OF SCREEN ?1500 BEQ RETESC ; Yes, Ignore1501 DECB ; No, Decrement ROW1502 BRA NEWCUR ; POSITION CURSOR1503 *1504 *********************************** BACK SPACE1505 *1506 BACKSP LDA COLADX1507 BEQ RETESC ; RETURN1508 DECA1509 BRA POSCOL ; POSITION CURSOR1510 *1511 *********************************** CURSOR RIGHT1512 *1513 CHRIGHT LDA COLADX1514 INCA1515 CMPA #LINLEN1516 BEQ RETESC1517 BRA POSCOL1518 *1519 *********************************** CURSOR RIGHT1520 *1521 HOME LDD #0 ; HOME - POSITION TOP OF SCREEN1522 BRA NEWCUR1523 *1524 ***************************************************1525 * ESCAPE HANDLERS *1526 ***************************************************1527 *1528 ESCAPE LDB ESCFLG ; GET FLAG1529 CMPB #'= ; SETTING CURSOR?1530 BEQ ESCCUR ; BRANCH IF SO1531 CMPA #'Y ; CLEAR TO END OF SCREEN?1532 BEQ ESCCLS1533 CMPA #'T ; CLEAR TO END OF LINE?1534 BEQ ESCCLL1535 CMPA #'= ; STARTING CURSOR SET?1536 BNE CLRESC ; BRANCH IF NOT1537 *1538 ***************************** START ESCAPE SEQUENCE1539 *1540 SETESC STA ESCFLG ; ELSE START CURSORING1541 RTS ; AND RETURN1542 *1543 CLRESC CLR ESCFLG ; NO OTHERS SUPPORTED1544 RETESC RTS ; SO RETURN1545 *1546 ********************************* SET SCREEN CURSOR1547 *1548 ESCCUR TST NEWROW ; ROW SET?1549 BNE ESCCU1 ; BRANCH IF SO1550 STA NEWROW ; ELSE SET NEW ROW1551 RTS ; AND RETURN1552 *1553 ESCCU1 CLR ESCFLG1554 SUBA #$20 ; ADJUST COLUMN ADDRESS1555 CMPA #LINLEN-1 ;CHECK FOR ACCEPTABLE COLUM1556 BHI RETESC ; NOT OK, DO NOTHING1557 *1558 ESCCU2 LDB NEWROW1559 CLR NEWROW1560 SUBB #$20 ; ADJUST TO ROW ADDRESS1561 CMPB #NUMLIN-1 ; CHECK FOR ACCEPTABLE ROW1562 BHI RETESC ; ELSE RETURN DOING NOTHING1563 BRA NEWCUR ; GO SET NEW CURSOR IF SO1564 *1565 ****************** CLEAR FROM CURSOR TO END OF LINE1566 *1567 CLRSCR LDD #0 ; CLEAR FROM TOP OF SCREEN1568 BSR NEWCUR1569 ESCCLL LDA COLADX1570 LDB #$20 ; AND CLEAR CHAR1571 ESCCL1 STB VDUCHR,X ; DISPLAY TEXT1572 INCA1573 STA VDUCOL,X1574 CMPA #LINLEN ; UNTIL END OF LINE1575 BNE ESCCL11576 CLR ESCFLG1577 RTS1578 *1579 *********************************** CARRIAGE RETURN1580 *1581 CRETN CLRA ; SET COLUMN ZERO1582 POSCOL LDB ROWADX ; GET CURRENT ROW1583 *1584 *********** GENERATE NEW CURSOR POSITION AND RETURN1585 *1586 NEWCUR STD COLADX ; SAVE NEW ROW AND COLUMN1587 STA VDUCOL,X ; SET NEW COLUMN1588 STB VDUROW,X ; SET NEW ROW1589 RTS ; AND RETURN1590 *1591 ********************* UPDATE CURRENT COLUMN AND ROW1592 *1593 NEWCOL LDD COLADX ; GET ROW AND COLUMN1594 INCA ; BUMP COLUMN1595 CMPA #LINLEN ; ROLL?1596 BNE NEWCUR ; BRANCH IF NOT1597 CLRA ; ELSE RESET TO ZERO1598 INCB ; AND BUMP ROW1599 CMPB #NUMLIN1600 BNE NEWCUR1601 DECB ; BOTTOM ROW1602 BSR NEWCUR1603 *1604 ********************************* SCROLL THE SCREEN1605 *1606 SCROLL LDB VDUOFF,X1607 INCB1608 CMPB #NUMLIN1609 BLO SCROL11610 CLRB1611 SCROL1 STB VDUOFF,X1612 *1613 **************** CLEAR FROM CURSOR TO END OF SCREEN1614 *1615 ESCCLS LDB COLADX ; GET CURSOR1616 LDA #$20 ; GET A SPACE1617 ESCCLS1 STB COLADX1618 STB VDUCOL,X1619 STA VDUCHR,X1620 INCB1621 CMPB #LINLEN1622 BNE ESCCLS11623 *1624 LDB ROWADX1625 INCB1626 CMPB #NUMLIN1627 BEQ ESCCLS21628 STB ROWADX1629 STB VDUROW,X1630 CLRB1631 BRA ESCCLS11632 *1633 ESCCLS2 CLRB1634 STB COLADX1635 STB VDUCOL,X1636 STB ESCFLG1637 RTS1638 ENDIF VDUOPT1638 ENDIF VDUOPT1639 *1640 IFD DG640OPT1641 ***************************************************1642 * TELEVIDEO-TYPE MEMORY-MAPPED EMULATOR *1643 * *1644 * FOR HARD-WIRED MEMORY-MAPPED DISPLAYS USING THE *1645 * HIGH ORDER BIT OF EACH BYTE FOR REVERSE VIDEO *1646 * CURSORING (SUCH AS THE THOMAS INSTRUMENTATION *1647 * 16x64 BOARD). *1648 ***************************************************1649 *1650 ***************************************************1651 * INITIALIZE EMULATOR *1652 ***************************************************1653 *1654 VINIZ LDX #01655 STX COLADX ; AND ROWADX1656 STX NEWROW ; AND ESCFLG1657 LDX #SCREEN ; POINT TO SCREEN1658 STX CURSOR ; SET PROGRAM CURSOR1659 LDA #$1B ; SEND ESCAPE1660 BSR VOUTCH1661 LDA #'Y ; CLEAR TO END OF SCREEN1662 *1663 ** VIDEO OUTPUT ROUTINE1664 *1665 VOUTCH PSHS A,B,X ; SAVE REGISTERS1666 *1667 ** CLEAR CURSOR1668 *1669 LDX CURSOR1670 LDB 0,X1671 ANDB #$7F1672 STB 0,X1673 *1674 ** CHECK FOR ESCAPE SEQUENCE1675 *1676 TST ESCFLG ; ESCAPE ACTIVE?1677 BEQ SOROU1 ; BRANCH IF NOT1678 BSR ESCAPE ; ELSE DO ESCAPE1679 BRA RETURN ; AND RETURN1680 *1681 ** CHECK FOR CONTROL CHARACTERS1682 *1683 SOROU1 CMPA #$20 ; CONTROL CODES?1684 BHS SOROU21685 BSR CONTRL ; BRANCH IF SO1686 BRA RETURN1687 *1688 ** OUTPUT TEXT CHARACTER1689 *1690 SOROU2 LDX CURSOR ; ELSE GET CURSOR1691 STA 0,X ; DISPLAY CHARACTER1692 LBSR NEWCOL ; UPDATE COLUMN1693 *1694 ** DISPLAY CURSOR AND RETURN1695 *1696 RETURN LDX CURSOR ; AND DISPLAY IT1697 LDB ,X1698 ORB #$80 ; WITH REVID1699 STB ,X1700 PULS A,B,X,PC ; RESTORE REGISTERS AND RETURN1701 *1702 ***************************************************1703 * CONTROL CODE HANDLERS *1704 ***************************************************1705 *1706 CONTRL CMPA #$08 ; CTRL H - BACKSPACE ?1707 LBEQ BACKSP1708 CMPA #$1B ; ESCAPE SEQUENCE?1709 LBEQ SETESC1710 CMPA #$D ; CTRL M - RETURN?1711 LBEQ CRETN1712 CMPA #$0A ; CTRL J - LINE FEED1713 BNE RETESC ; NONE OF THESE, RETURN1714 *1715 ***************************************** LINE FEED1716 *1717 LINEFD LDD COLADX ; GET CURRENT COLUMN AND ROW1718 INCB ; BUMP ROW1719 CMPB #NUMLIN ; SCROLL TIME?1720 LBNE NEWCUR ; POSITION CURSOR IF NOT1721 LBRA SCROLL ; ELSE SCROLL IT1722 *1723 ***************************************** LINE FEED1724 *1725 LINEUP LDD COLADX ; GET CURRENT COLUMN AND ROW1726 TSTB ; AT TOP OF SCREEN ?1727 BEQ RETESC ; YES, RETURN1728 DECB ; NO, DECREMENT ROW1729 LBRA NEWCUR ; POSITION CURSOR1730 *1731 *********************************** BACK SPACE1732 *1733 BACKSP LDA COLADX ; GET CURRENT COLUMN AND ROW1734 BEQ RETESC ; IF AT TOP LEFT CORNER RETURN1735 DECA ; OTHERWISE BACK STEP ONE CHARACTER1736 LBRA POSCOL ; POSITION CURSOR1737 *1738 *********************************** CURSOR RIGHT1739 *1740 CHRIGHT LDA COLADX ; GET CURRENT COLUMN AND ROW1741 INCA ; MOVE RIGHT ONE CHARACTER1742 CMPA #LINLEN ; ARE WE AT THE END OF THE LINE ?1743 BEQ RETESC ; YES, RETURN1744 LBRA POSCOL ; NO, POSITION CURSOR1745 *1746 ***************************************************1747 * ESCAPE HANDLERS *1748 ***************************************************1749 *1750 ESCAPE LDB ESCFLG ; ARE WE IN AN ESCAPE SEQUENCE ?1751 CMPB #'= ; ARE WE SETTING CURSOR?1752 BEQ ESCCUR ; YES BRANCH TO SET CURSOR1753 CMPA #'Y ; CLEAR TO END OF SCREEN?1754 LBEQ ESCCLS ; YES, CLEAR SCREEN1755 CMPA #'T ; CLEAR TO END OF LINE?1756 BEQ ESCCLL ; YES, CLEAR LINE1757 CMPA #'E ; INSERT LINE?1758 BEQ ESCINL1759 CMPA #'R ; DELETE LINE?1760 BEQ ESCDLL1761 CMPA #'= ; STARTING CURSOR SET?1762 BNE CLRESC ; BRANCH IF NOT1763 *1764 ***************************** START ESCAPE SEQUENCE1765 *1766 SETESC STA ESCFLG ; ELSE START CURSORING1767 RTS ; AND RETURN1768 *1769 CLRESC CLR ESCFLG ; NO OTHERS SUPPORTED1770 RETESC RTS ; SO RETURN1771 *1772 ********************************* SET SCREEN CURSOR1773 *1774 ESCCUR TST NEWROW ; ROW SET?1775 BNE ESCCU1 ; BRANCH IF SO1776 STA NEWROW ; ELSE SET NEW ROW1777 RTS ; AND RETURN1778 *1779 ESCCU1 CLR ESCFLG1780 SUBA #$20 ; ADJUST COLUMN ADDRESS1781 CMPA #LINLEN-1 ; CHECK FOR ACCEPTABLE COLUM1782 BHI RETESC ; NOT OK, DO NOTHING1783 *1784 ESCCU2 LDB NEWROW1785 CLR NEWROW1786 SUBB #$20 ; ADJUST TO ROW ADDRESS1787 CMPB #NUMLIN-1 ; CHECK FOR ACCEPTABLE ROW1788 BHI RETESC ; ELSE RETURN DOING NOTHING1789 BRA NEWCUR ; GO SET NEW CURSOR IF SO1790 *1791 *************************** DELETE LINE FROM SCREEN1792 *1793 ESCDLL BSR CRETN ; GO COL. ZERO1794 LDB ROWADX1795 CMPB #NUMLIN-11796 BEQ SCROL31797 BRA SCROL1 ; AND DELETE THIS LINE1798 *1799 *************************** INSERT LINE INTO SCREEN1800 *1801 ESCINL BSR CRETN ; GO TO COL. ZERO1802 LDB ROWADX1803 CMPB #NUMLIN-11804 BEQ ESCCLL1805 *1806 ** SCROLL SCREEN DOWN FROM CURSOR1807 *1808 LDX #SCREEN+SCNLEN-LINLEN1809 ESCIN0 LDA ,-X1810 STA LINLEN,X1811 LDA SCNLEN,X1812 STA SCNLEN+LINLEN,X1813 CMPX CURSOR1814 BNE ESCIN01815 *1816 ****************** CLEAR FROM CURSOR TO END OF LINE1817 *1818 ESCCLL LDA COLADX ; GET CURRENT COLUMN1819 LDX CURSOR ; GET CURSOR1820 LDB #$20 ; AND CLEAR CHAR1821 ESCLL1 STB SCNLEN,X ; CLEAR ATTRIBUTE1822 STB ,X+ ; CLEAR TEXT1823 INCA1824 CMPA #LINLEN ; UNTIL END OF LINE1825 BNE ESCLL11826 CLR ESCFLG1827 RTS1828 *1829 *********************************** CARRIAGE RETURN1830 *1831 CRETN CLRA ; SET COLUMN ZERO1832 POSCOL LDB ROWADX ; GET CURRENT ROW1833 *1834 *********** GENERATE NEW CURSOR POSITION AND RETURN1835 *1836 NEWCUR STD COLADX ; SAVE NEW ROW AND COLUMN1837 LDA #LINLEN ; ELSE ADD A LINE1838 MUL ; LINLEN * ROWADX1839 ADDB COLADX1840 ADCA #01841 ADDD #SCREEN ; ADD SCREEN BASE.1842 STD CURSOR ; SAVE NEW CURSOR1843 TFR D,X ; GET CURSOR IN X1844 RTS ; AND RETURN1845 *1846 ********************* UPDATE CURRENT COLUMN AND ROW1847 *1848 NEWCOL LDD COLADX ; GET ROW AND COLUMN1849 INCA ; BUMP COLUMN1850 CMPA #LINLEN ; ROLL?1851 BNE NEWCUR ; BRANCH IF NOT1852 CLRA ; ELSE RESET TO ZERO1853 INCB ; AND BUMP ROW1854 CMPB #NUMLIN1855 BNE NEWCUR1856 DECB ; BOTTOM ROW1857 BSR NEWCUR1858 *1859 ********************************* SCROLL THE SCREEN1860 *1861 SCROLL LDX #SCREEN ; POINT TO SCREEN1862 SCROL1 LDA SCNLEN+LINLEN,X1863 STA SCNLEN,X1864 LDA LINLEN,X ; MOVE TWO BYTES1865 STA ,X+ ; UP ONE LINE1866 CMPX #SCREEN+SCNLEN-LINLEN1867 BNE SCROL1 ; LOOP UNTIL DONE1868 BRA SCROL31869 *1870 **************** CLEAR FROM CURSOR TO END OF SCREEN1871 *1872 ESCCLS LDX CURSOR ; GET CURSOR1873 SCROL3 LDA #$20 ; GET A SPACE1874 SCROL2 STA SCNLEN,X ; CLEAR ATTRIBUTES1875 STA ,X+ ; AND TEXT1876 CMPX #SCREEN+SCNLEN1877 BNE SCROL2 ; UNTIL DONE1878 CLR ESCFLG1879 RTS1880 ENDIF DG640OPT1880 ENDIF DG640OPT1881 *1882 IFD PRTOPT1883 *************************************1884 *1885 ** PRINTER DRIVER ROUTINES1886 *1887 *************************************1888 *1889 ** PINIZ - INITIATE PRINTER PORT1890 *1891 PINIZ PSHS B1892 LDD #DIRMSK*256+$04 ; ACCA=DIRMSK ACCB=$041893 STD PADATA ; SET DDR AND SELECT DATA1894 *1895 ** RESET PRINTER1896 *1897 LDB #PRESET1898 STB PADATA1899 RESTLP INCB ; DELAY FOR RESET1900 BNE RESTLP1901 STA PADATA ; ACCA=DIRMSK1902 *1903 ** INITALIZE PORT B (DATA PORT)1904 *1905 LDA #$2A1906 STA PBCTRL1907 LDD #$FF2E ; ACCA=$FF ACCB =%001011101908 STD PBDATA ; PBDREG PBCTRL1909 *1910 ** SELECT 66 LINES/PAGE1911 *1912 LDA #$1B1913 BSR POUTCH1914 LDA #'C1915 BSR POUTCH1916 LDA #661917 PULS B1918 *************************************1919 *1920 ** OUTPUT A CHARACTER TO THE PRINTER1921 *1922 *************************************1923 POUTCH PSHS B1924 LDB PBDATA ; CLEAR INTERRUPT BIT1925 *1926 ** WAIT TILL NOT BUSY1927 *1928 BUSYLP LDB PADATA1929 BITB #PERROR1930 BEQ PEXIT1931 TSTB1932 BMI BUSYLP1933 *1934 ** NOW OUTPUT CHARACTER1935 *1936 STA PBDATA1937 PEXIT PULS B,PC1938 *************************************1939 *1940 ** PCHK TEST IFD PRINTER READY1941 *1942 *************************************1943 PCHK TST PBCTRL ; TEST STATE OF CRB71944 RTS ; SET ON ACKNOWLEDGE1945 ENDIF PRTOPT1945 ENDIF PRTOPT1946 *************************************1947 *1948 * MONITOR KEYBOARD COMMAND JUMP TABLE1949 *1950 *************************************1951 *1952 FC49 JMPTAB EQU *1953 FC49 01 FCB 1 " ^A "1954 FC4A FA DB FDB ALTRA1955 FC4C 02 FCB 2 " ^B "1956 FC4D FA D0 FDB ALTRB1957 FC4F 03 FCB 3 " ^C "1958 FC50 FA E6 FDB ALTRCC1959 FC52 04 FCB 4 " ^D "1960 FC53 FA C5 FDB ALTRDP1961 FC55 10 FCB $10 " ^P "1962 FC56 FA 98 FDB ALTRPC1963 FC58 15 FCB $15 " ^U "1964 FC59 FA A4 FDB ALTRU1965 FC5B 18 FCB $18 " ^X "1966 FC5C FA BA FDB ALTRX1967 FC5E 19 FCB $19 " ^Y "1968 FC5F FA AF FDB ALTRY1969 *1970 FC61 42 FCC 'B'1971 FC62 F9 43 FDB BRKPNT1972 FC64 45 FCC 'E'1973 FC65 F8 E4 FDB MEMDUMP1974 FC67 47 FCC 'G'1975 FC68 F8 8C FDB GO1976 FC6A 4C FCC 'L'1977 FC6B F9 C5 FDB LOAD1978 FC6D 50 FCC 'P'1979 FC6E FA 23 FDB PUNCH1980 FC70 4D FCC 'M'1981 FC71 F8 8F FDB MEMCHG1982 FC73 52 FCC 'R'1983 FC74 FB 54 FDB REGSTR1984 FC76 53 FCC 'S'1985 FC77 F8 D8 FDB DISSTK1986 FC79 58 FCC 'X'1987 FC7A F9 6F FDB XBKPNT1988 IFD MFDCOPT1989 FCC 'D' ; *** SWTPC USES 'U' FOR MINIBOOT1990 FDB MINBOOT1991 ENDIF MFDCOPT1991 ENDIF MFDCOPT1992 IFD CF8OPT1993 FCC 'D' ; *** FPGA 8 BIT USES 'D' FOR CFBOOT1994 FDB CFBOOT1995 ENDIF CF8OPT1995 ENDIF CF8OPT1996 IFD IDEOPT1997 FCC 'D' ; *** XESS FPGA 16 BIT IDE USES 'D' FOR IDEBOOT1998 FDB IDEBOOT1999 ENDIF IDEOPT1999 ENDIF IDEOPT2000 IFD DMAFOPT2001 FCC 'U' ; *** SWTPC USES 'D' FOR DMAF2 BOOT2002 FDB DBOOT2003 ENDIF DMAFOPT2003 ENDIF DMAFOPT2004 IFD EXTOPT2005 FCC 'U' ; *** IF FPGA, 'U' IS FOR USER2006 FDB USRCMD2007 ENDIF EXTOPT2007 ENDIF EXTOPT2008 IFD RTCOPT2009 FCC 'T'2010 FDB TIMSET2011 ENDIF RTCOPT2011 ENDIF RTCOPT2012 IFD TRAOPT2013 FCC "T"2014 FDB TRACE2015 ENDIF TRAOPT2015 ENDIF TRAOPT2016 *2017 FC7C TABEND EQU *2018 *2019 * ** 6809 VECTOR ADDRESSES **2020 *2021 * FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES2022 * FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY2023 * ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE2024 * RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO2025 * HIS OWN ROUTINES IF HE SO DESIRES.2026 *2027 *2028 FC7C F9 7B RAMVEC FDB SWIE ; USER-V2029 FC7E F8 8E FDB RTI ; SWI3-V2030 FC80 F8 8E FDB RTI ; SWI2-V2031 FC82 F8 8E FDB RTI ; FIRQ-V2032 FC84 F8 8E FDB RTI ; IRQ-V2033 FC86 F9 7B FDB SWIE ; SWI-V2034 FC88 FF FF FDB $FFFF ; SVC-VO2035 FC8A FF FF FDB $FFFF ; SVC-VL2036 *2037 * PRINTABLE MESSAGE STRINGS2038 *2039 FC8C 0D 0A 00 00 00 MSG1 FCB $D,$A,$0,$0,$0 * 0, CR/LF, 02040 FC91 53 79 73 30 39 42 FCC 'Sys09Bug 1.7 FOR '75 67 20 31 2E 3720 46 4F 52 202041 IFD SWTOPT2042 FCC 'SWTPC'2043 ENDIF SWTOPT2043 ENDIF SWTOPT2044 IFD ADSOPT2045 FCC 'ADS6809'2046 ENDIF ADSOPT2046 ENDIF ADSOPT2047 IFD B3SOPT2048 FCC 'B3-S2+'2049 ENDIF B3SOPT2049 ENDIF B3SOPT2050 IFD B5XOPT2051 FCC 'B5-X300'2052 ENDIF B5XOPT2052 ENDIF B5XOPT2053 IFD S3SOPT2054 FCC 'S3STARTER'2055 ENDIF S3SOPT2055 ENDIF S3SOPT2056 IFD S3EOPT2057 FCC 'S3E'2058 ENDIF S3EOPT2058 ENDIF S3EOPT2059 IFD XESOPT2060 FCC 'XESS'2061 ENDIF XESOPT2061 ENDIF XESOPT2062 IFD ATLYSOPT2063 FCC 'Atlys'2064 ENDIF ATLYSOPT2064 ENDIF ATLYSOPT2065 IFD DE270OPT2066 FCC 'DE2-70'2067 ENDIF DE270OPT2067 ENDIF DE270OPT2068 FCA2 20 2D 20 FCC ' - '2069 FCA5 04 FCB 42070 FCA6 4B 0D 0A 00 00 00 MSG2 FCB 'K,$0D,$0A,$00,$00,$00,$04 ; K,<CR>,<LF>,3 NULS,<EOT>042071 FCAD 3E MSG3 FCC '>'2072 FCAE 04 FCB 42073 FCAF 57 48 41 54 3F MSG4 FCC 'WHAT?'2074 FCB4 04 FCB 42075 FCB5 20 2D 20 MSG5 FCC ' - '2076 FCB8 04 FCB 4'2077 FCB9 20 20 53 50 3D MSG10 FCC ' SP='2078 FCBE 04 FCB 42079 FCBF 20 20 50 43 3D MSG11 FCC ' PC='2080 FCC4 04 FCB 42081 FCC5 20 20 55 53 3D MSG12 FCC ' US='2082 FCCA 04 FCB 42083 FCCB 20 20 49 59 3D MSG13 FCC ' IY='2084 FCD0 04 FCB 42085 FCD1 20 20 49 58 3D MSG14 FCC ' IX='2086 FCD6 04 FCB 42087 FCD7 20 20 44 50 3D MSG15 FCC ' DP='2088 FCDC 04 FCB 42089 FCDD 20 20 41 3D MSG16 FCC ' A='2090 FCE1 04 FCB 42091 FCE2 20 20 42 3D MSG17 FCC ' B='2092 FCE6 04 FCB 42093 FCE7 20 20 43 43 3A 20 MSG18 FCC ' CC: '2094 FCED 04 FCB 42095 FCEE 45 46 48 49 4E 5A MSG19 FCC 'EFHINZVC'56 432096 FCF6 53 31 MSG20 FCC 'S1'2097 FCF8 04 FCB 42098 IFD DATOPT2099 *2100 * POWER UP/ RESET/ NMI ENTRY POINT2101 *2102 ORG $FF002103 *2104 *2105 START LDX #IC11 ; POINT TO DAT RAM IC112106 LDA #$0F ; GET COMPLIMENT OF ZERO2107 *2108 *2109 * INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F2110 * OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS2111 * IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE2112 * OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA2113 * STORED IN IT.2114 *2115 *2116 DATLP STA ,X+ ; STORE & POINT TO NEXT RAM LOCATION2117 DECA ; GET COMP. VALUE FOR NEXT LOCATION2118 BNE DATLP ; ALL 16 LOCATIONS INITIALIZED ?2119 *2120 * NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER2121 * ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL2122 * PHYSICAL ADDRESSES.2123 *2124 LDA #$F02125 STA ,X ; STORE $F0 AT $FFFF2126 LDX #$D0A0 ; ASSUME RAM TO BE AT $D000-$DFFF2127 LDY #TSTPAT ; LOAD TEST DATA PATTERN INTO "Y"2128 TSTRAM LDU ,X ; SAVE DATA FROM TEST LOCATION2129 STY ,X ; STORE TEST PATTERN AT $D0A02130 CMPY ,X ; IS THERE RAM AT THIS LOCATION ?2131 BEQ CNVADR ; IF MATCH THERE'S RAM, SO SKIP2132 LEAX -$1000,X ; ELSE POINT 4K LOWER2133 CMPX #$F0A0 ; DECREMENTED PAST ZER0 YET ?2134 BNE TSTRAM ; IF NOT CONTINUE TESTING FOR RAM2135 BRA START ; ELSE START ALL OVER AGAIN2136 *2137 *2138 * THE FOLLOWING CODE STORES THE COMPLEMENT OF2139 * THE MS CHARACTER OF THE FOUR CHARACTER HEX2140 * ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED2141 * BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT2142 * IS STORED IN RAM IN THE LOCATION THAT IS2143 * ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---,2144 * THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND2145 * WHEN TESTING LOCATION $70A0, MEANING THERE2146 * IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE2147 * $8000-$DFFF, THEN THE COMPLEMENT OF THE2148 * "7" IN THE $70A0 WILL BE STORED IN2149 * THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS2150 * AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND2151 * BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE2152 * 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE2153 * RAM THAT IS PHYSICALLY ADDRESSED AT $7---2154 * WILL RESPOND AND APPEAR TO THE 6809 THAT IT2155 * IS AT $D--- SINCE THAT IS THE ADDRESS THE2156 * 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK2157 * OF RAM RESPONDS.2158 *2159 *2160 CNVADR STU ,X ; RESTORE DATA AT TEST LOCATION2161 TFR X,D ; PUT ADDR. OF PRESENT 4K BLOCK IN D2162 COMA ; COMPLEMENT MSB OF THAT ADDRESS2163 LSRA ; PUT MS 4 BITS OF ADDRESS IN2164 LSRA ; LOCATION D0-D3 TO ALLOW STORING2165 LSRA ; IT IN THE DYNAMIC ADDRESS2166 LSRA ; TRANSLATION RAM.2167 STA $FFFD ; STORE XLATION FACTOR IN DAT "D"2168 *2169 LDS #STACK ; INITIALIZE STACK POINTER2170 *2171 *2172 * THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES2173 * OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK2174 * OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS2175 * IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION2176 * TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF2177 * THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO2178 * RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---....2179 *2180 * 0 1 2 3 4 5 6 7 8 9 A B C D E F2181 * 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- --2182 *2183 * ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE2184 * CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING....2185 *2186 * 0 1 2 3 4 5 6 7 8 9 A B C D E F2187 * 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F02188 *2189 *2190 * HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF2191 * HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL2192 * ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK2193 * PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT2194 * IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C0002195 * WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D0002196 * RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE2197 * MEMORY ADDRESSED AS FOLLOWS....2198 *2199 * 0 1 2 3 4 5 6 7 8 9 A B C D E F2200 * 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- --2201 *2202 *2203 LDY #LRARAM ; POINT TO LOGICAL/REAL ADDR. TABLE2204 STA 13,Y ; STORE $D--- XLATION FACTOR AT $DFDD2205 CLR 14,Y ; CLEAR $DFDE2206 LDA #$F0 ; DESTINED FOR IC8 AN MEM EXPANSION ?2207 STA 15,Y ; STORE AT $DFDF2208 LDA #$0C ; PRESET NUMBER OF BYTES TO CLEAR2209 CLRLRT CLR A,Y ; CLEAR $DFDC THRU $DFD02210 DECA ; SUB. 1 FROM BYTES LEFT TO CLEAR2211 BPL CLRLRT ; CONTINUE IF NOT DONE CLEARING2212 FNDRAM LEAX -$1000,X ; POINT TO NEXT LOWER 4K OF RAM2213 CMPX #$F0A0 ; TEST FOR DECREMENT PAST ZERO2214 BEQ FINTAB ; SKIP IF FINISHED2215 LDU ,X ; SAVE DATA AT CURRENT TEST LOCATION2216 LDY #TSTPAT ; LOAD TEST DATA PATTERN INTO Y REG.2217 STY ,X ; STORE TEST PATT. INTO RAM TEST LOC.2218 CMPY ,X ; VERIFY RAM AT TEST LOCATION2219 BNE FNDRAM ; IF NO RAM GO LOOK 4K LOWER2220 STU ,X ; ELSE RESTORE DATA TO TEST LOCATION2221 LDY #LRARAM ; POINT TO LOGICAL/REAL ADDR. TABLE2222 TFR X,D ; PUT ADDR. OF PRESENT 4K BLOCK IN D2223 LSRA ; PUT MS 4 BITS OF ADDR. IN LOC. D0-D32224 LSRA ; TO ALLOW STORING IT IN THE DAT RAM.2225 LSRA2226 LSRA2227 TFR A,B ; SAVE OFFSET INTO LRARAM TABLE2228 EORA #$0F ; INVERT MSB OF ADDR. OF CURRENT 4K BLK2229 STA B,Y ; SAVE TRANSLATION FACTOR IN LRARAM TABLE2230 BRA FNDRAM ; GO TRANSLATE ADDR. OF NEXT 4K BLK2231 FINTAB LDA #$F1 ; DESTINED FOR IC8 AND MEM EXPANSION ?2232 LDY #LRARAM ; POINT TO LRARAM TABLE2233 STA 14,Y ; STORE $F1 AT $DFCE2234 *2235 * THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF2236 * RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES2237 * THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT2238 * LOGICALLY RESPONDS TO THE ADDRESS $C---.2239 *2240 *2241 LDA #$0C ; PRESET NUMBER HEX "C"2242 FINDC LDB A,Y ; GET ENTRY FROM LRARAM TABLE2243 BNE FOUNDC ; BRANCH IF RAM THIS PHYSICAL ADDR.2244 DECA ; ELSE POINT 4K LOWER2245 BPL FINDC ; GO TRY AGAIN2246 BRA XFERTF2247 FOUNDC CLR A,Y ; CLR XLATION FACTOR OF 4K BLOCK FOUND2248 STB $0C,Y ; GIVE IT XLATION FACTOR MOVING IT TO $C---2249 *2250 * THE FOLLOWING CODE ADJUSTS THE TRANSLATION2251 * FACTORS SUCH THAT ALL REMAINING RAM WILL2252 * RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL2253 * ADDRESSES FROM $0000 AND UP....2254 *2255 CLRA ; START AT ZERO2256 TFR Y,X ; START POINTER "X" START OF "LRARAM" TABLE.2257 COMPRS LDB A,Y ; GET ENTRY FROM "LRARAM" TABLE2258 BEQ PNTNXT ; IF IT'S ZER0 SKIP2259 CLR A,Y ; ELSE ERASE FROM TABLE2260 STB ,X+ ; AND ENTER ABOVE LAST ENTRY- BUMP2261 PNTNXT INCA ; GET OFFSET TO NEXT ENTRY2262 CMPA #$0C ; LAST ENTRY YET ?2263 BLT COMPRS2264 *2265 * THE FOLLOWING CODE TRANSFER THE TRANSLATION2266 * FACTORS FROM THE LRARAM TABLE TO IC11 ON2267 * THE MP-09 CPU CARD.2268 *2269 XFERTF LDX #IC11 ; POINT TO DAT RAM IC112270 LDB #$10 ; GET NO. OF BYTES TO MOVE2271 FETCH LDA ,Y+ ; GET BYTE AND POINT TO NEXT2272 STA ,X+ ; POKE XLATION FACTOR IN IC112273 DECB ; SUB 1 FROM BYTES TO MOVE2274 BNE FETCH ; CONTINUE UNTIL 16 MOVED2275 *2276 ELSE2277 FCF9 39 LRA RTS2278 FCFA 10 CE DF C0 START LDS #STACK ; INITIALIZE STACK POINTER2279 FCFE 5F CLRB2280 ENDIF DATOPT2281 *2282 FCFF 53 COMB ; SET "B" NON-ZERO2283 FD00 F7 DF D2 STB ECHO ; TURN ON ECHO FLAG2284 FD03 16 FB 0E LBRA MONITOR ; INITIALIZATION IS COMPLETE2285 *2286 ** INTERRUPT JUMP VECTORS2287 *2288 FD06 6E 9F DF C0 V1 JMP [STACK]2289 FD0A 6E 9F DF C4 V2 JMP [SWI2]2290 FD0E 6E 9F DF C6 V3 JMP [FIRQ]2291 FD12 6E 9F DF C8 V4 JMP [IRQ]2292 FD16 6E 9F DF CA V5 JMP [SWI]2293 *2294 * SWI3 ENTRY POINT2295 *2296 FD1A 1F 43 SWI3E TFR S,U2297 FD1C AE 4A LDX 10,U *$FFC82298 FD1E E6 80 LDB ,X+2299 FD20 AF 4A STX 10,U2300 FD22 4F CLRA2301 FD23 58 ASLB2302 FD24 49 ROLA2303 FD25 BE DF CC LDX SVCVO2304 FD28 8C FF FF CMPX #$FFFF2305 FD2B 27 0F BEQ SWI3Z2306 FD2D 30 8B LEAX D,X2307 FD2F BC DF CE CMPX SVCVL2308 FD32 22 08 BHI SWI3Z2309 FD34 34 10 PSHS X2310 FD36 EC C4 LDD ,U2311 FD38 AE 44 LDX 4,U2312 FD3A 6E F1 JMP [,S++]2313 FD3C 37 1F SWI3Z PULU A,B,X,CC,DP2314 FD3E EE 42 LDU 2,U2315 FD40 6E 9F DF C2 JMP [SWI3]2316 *2317 * 6809 VECTORS2318 *2319 FFF0 ORG $FFF02320 FFF0 FD 06 FDB V1 USER-V2321 FFF2 FD 1A FDB SWI3E SWI3-V2322 FFF4 FD 0A FDB V2 SWI2-V2323 FFF6 FD 0E FDB V3 FIRQ-V2324 FFF8 FD 12 FDB V4 IRQ-V2325 FFFA FD 16 FDB V5 SWI-V2326 FFFC FD 06 FDB V1 NMI-V2327 FFFE FC FA FDB START RESTART-V0005 END START0006 ENDProgram + Init Data = 2898 bytesError count = 0ACIAC1 0000ACIAD1 0001ACINIZ FC36ACIRST 01F7ACK 0006AJDUMP F8F0ALTAD FAE5ALTBD FADAALTCCD FAF2ALTDPD FACFALTPC1 FA9BALTPCD FAA3ALTRA FADBALTRB FAD0ALTRCC FAE6ALTRDP FAC5ALTRPC FA98ALTRU FAA4ALTRX FABAALTRY FAAFALTUD FAAEALTXD FAC4ALTYD FAB9AOUTCH FC21ATLOPT 00FFBACK F8D4BIASCI FBE4BLKNUM 0104BLOAD0 070DBLOAD1 071BBLOAD2 0731BLOAD3 0745BOOT 0700BPADJ F9B9BPERR F967BPTBL DFD3BPTEST F9A9BRKPNT F943BSSTACK C0FFBUFFER 0200BYTCNT 0105BYTE FB8DCAN 0018CFLAG 0001CHANGE F8C2CHKDRV 053BCHKSUM 0103CHRTN F8C1CLRSTK F82FCPORT DFD0DELCNT 0108DELCON 04E2DFL1 0115DFL2 0122DFL3 0136DFL4 01A0DISFOS 0085DISSTK F8D8DLY F9BCDNS 0707DRNUM 070CDRVNUM 0100DRVS2 0536DRVSEL 052FECHO DFD2ECHON FBF9EDPASC F92FEDPRTN F8EFEDUMP F90BEFLAG 0080ELOOP F91DEOT 0004EXITBP F966EXTEND 0035EXTTAB 002CFETSTA FC26FFLAG 0040FFSTBL F9A0FIRQ DFC6FNDBP F9AFFORWRD F8D0GETCH 0752GETCH2 0758GETCH4 0767GETST1 FC0FGETSTA FC06GO F88CGOFLEX 076AHFLAG 0020IFLAG 0010IN1ADR FB7DIN2ADR FB72INCH FC04INCHE FBFEINCHEK FC13INCHEK1 FC1BINCHEV F806INCHKV F808INCHV F804INHEX FBA0INHEXA FBADINHEXL FBB8INITDR 04B2INTER 0200INTER0 020BINTER1 0219INTER2 021EINTEST 01F2IOINIZ FC36IRQ DFC8JBYTE FA92JIN1ADR FA95JMPCMD F888JMPEXT 002AJMPTAB FC49JOUT1S FA8FJOUT2H FB17JOUT4H FB04LADR 070ALOAD F9C5LOAD1 F9D0LOAD10 F9FALOAD16 FA10LOAD2 F9D3LOAD21 FA1BLODERR FA0FLOOPA F81DLRA FCF9LRAV F812MAXSEC 010CMAXTRK 010BMDUMP1 F8E9MEMC2 F896MEMCHG F88FMEMDUMP F8E4MESS6 00AEMONIO E000MONITOR F814MONITV F800MONRAM DFC0MONROM F800MSG1 FC8CMSG10 FCB9MSG11 FCBFMSG12 FCC5MSG13 FCCBMSG14 FCD1MSG15 FCD7MSG16 FCDDMSG17 FCE2MSG18 FCE7MSG19 FCEEMSG2 FCA6MSG20 FCF6MSG3 FCADMSG4 FCAFMSG5 FCB5MSGWHAT 0035NAK 0015NEXTCMD F848NEXTEXT 0002NFLAG 0008NMI DFC0NOTHEX FBC3NXTCH0 F872NXTCHR F875NXTCMV F802NXTEX0 0016NXTEX1 0019NXTLIN F8FFOUT1S FC1FOUT2H FBCEOUT2S FC1DOUT4H FBC6OUTBA FBE8OUTC FBE2OUTCH FC21OUTCHV F80AOUTHL FBCEOUTHR FBD6OUTTE1 0233OUTTE2 0241OUTTER 0231PCLKHI 0001PCLKLO 0000PCRLF FA85PCRLFV F80EPDATA FAF6PDATA0 0246PDATA1 0248PDATAV F80CPERIOD F939PRASC F93BPRINT FAF3PROMREG E0C0PRSTHI 0002PRSTLO 0000PRTA FB35PRTB FB3EPRTBA FBF0PRTCC FB47PRTCMD F866PRTDP FB10PRTIX FB1APRTIY FB23PRTPC FB2CPRTSP FAFDPRTUS FB07PSTRGV F810PSTRNG FA81PUNCH FA23PUNCH2 FA3CPUNCH3 FA48PUNCH4 FA4APUNCHL FA62PUNEXT FA79RAMVEC FC7CRCHAR 0046RCHAR1 004BRCHAR2 004FRCHAR3 005ERDLP1 04F7READ 0787READ1 0797READSC 04E6REGPR F989REGSTR FB54RESTR1 04C7RF3 01D7RMAXSEC 00FFRMAXTRK 0100RPLSWI F98FRTI F88ERTOTSEC FE01SCHAR 0062SCHAR1 0069SCHAR2 006DSCHAR3 007FSCT 0706SCTBUF C300SECTOR 0102SEEK 076DSEEKTS 04CCSKPDMP F908SOH 0001STACK DFC0START FCFASUB1 F9C0SVCVL DFCESVCVO DFCCSWI DFCASWI2 DFC4SWI3 DFC2SWI3E FD1ASWI3Z FD3CSWIE F97BSYNCHI AA55SYNCLO FF00TABEND FC7CTADR 0708TRACK 0101TRK 0705UBSUB 003EUFEXIT 01ECUFMSG1 00CBUFSUB 00E6UFSUB1 00EFUXERR 03FFUXEXIT 03F9UXLOOP 03ADUXMES0 024FUXMES1 0268UXMES2 027AUXMSG3 0289UXMSG4 029AUXSUB 02B1UXSUB1 02BDUXSUB2 02EAV1 FD06V2 FD0AV3 FD0EV4 FD12V5 FD16VFLAG 0002VOLMSG 00DDWRITSC 050AWRTLP1 051CWTDRQ 07B7WTRDY 07A8XACK 04A9XASCII FBDAXBKPNT F96FXBPLP F975XBYTE0 040AXBYTE1 0419XREAD 0405XSTATE 0106XSTBL 0442XSTBLE 044DXSTCK 0483XSTCK1 0493XSTCK2 04A0XSTCOM 0458XSTDA 046CXSTDA1 047EXSTST 0422XSTST1 042CXSTST2 0438XSTST3 043FZFLAG 0004
Go to most recent revision | Compare with Previous | Blame | View Log