* NAM SBUG18 MP-09 MONITOR
|
* NAM SBUG18 MP-09 MONITOR
|
OPT l
|
OPT l
|
PAGE
|
PAGE
|
*
|
*
|
* MONITOR PROGRAM FOR THE SOUTHWEST TECHNICAL
|
* MONITOR PROGRAM FOR THE SOUTHWEST TECHNICAL
|
* PRODUCTS MP-09 CPU BOARD AS COMMENTED BY....
|
* PRODUCTS MP-09 CPU BOARD AS COMMENTED BY....
|
*
|
*
|
* ALLEN CLARK WALLACE WATSON
|
* ALLEN CLARK WALLACE WATSON
|
* 2502 REGAL OAKS LANE 4815 EAST 97th AVE.
|
* 2502 REGAL OAKS LANE 4815 EAST 97th AVE.
|
* LUTZ, FLA. 33549 TEMPLE TERRACE, FLA. 33617
|
* LUTZ, FLA. 33549 TEMPLE TERRACE, FLA. 33617
|
* PH. 813-977-0347 PH. 813-985-1359
|
* PH. 813-977-0347 PH. 813-985-1359
|
*
|
*
|
* MODIFIED TO SBUG09 VER 1.8 BY: RANDY JARRETT
|
* MODIFIED TO SBUG09 VER 1.8 BY: RANDY JARRETT
|
* 2561 NANTUCKET DR APT. E
|
* 2561 NANTUCKET DR APT. E
|
* ATLANTA, GA 30345
|
* ATLANTA, GA 30345
|
* PH. 404-320-1043
|
* PH. 404-320-1043
|
*
|
*
|
*
|
*
|
* *** COMMANDS ***
|
* *** COMMANDS ***
|
*
|
*
|
* CONTROL A = ALTER THE "A" ACCUMULATOR
|
* CONTROL A = ALTER THE "A" ACCUMULATOR
|
* CONTROL B = ALTER THE "B" ACCUMULATOR
|
* CONTROL B = ALTER THE "B" ACCUMULATOR
|
* CONTROL C = ALTER THE CONDITION CODE REGISTER
|
* CONTROL C = ALTER THE CONDITION CODE REGISTER
|
* CONTROL D = ALTER THE DIRECT PAGE REGISTER
|
* CONTROL D = ALTER THE DIRECT PAGE REGISTER
|
* CONTROL P = ALTER THE PROGRAM COUNTER
|
* CONTROL P = ALTER THE PROGRAM COUNTER
|
* CONTROL U = ALTER USER STACK POINTER
|
* CONTROL U = ALTER USER STACK POINTER
|
* CONTROL X = ALTER "X" INDEX REGISTER
|
* CONTROL X = ALTER "X" INDEX REGISTER
|
* CONTROL Y = ALTER "Y" INDEX REGISTER
|
* CONTROL Y = ALTER "Y" INDEX REGISTER
|
* B hhhh = SET BREAKPOINT AT LOCATION $hhhh
|
* B hhhh = SET BREAKPOINT AT LOCATION $hhhh
|
* D = BOOT A SWTPC 8 INCH FLOPPY SYSTEM
|
* D = BOOT A SWTPC 8 INCH FLOPPY SYSTEM
|
* U = BOOT A SWTPC 5 INCH FLOPPY SYSTEM
|
* U = BOOT A SWTPC 5 INCH FLOPPY SYSTEM
|
* E ssss-eeee = EXAMINE MEMORY FROM STARTING ADDRESS ssss
|
* E ssss-eeee = EXAMINE MEMORY FROM STARTING ADDRESS ssss
|
* -TO ENDING ADDRESS eeee.
|
* -TO ENDING ADDRESS eeee.
|
* G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI
|
* G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI
|
* L = LOAD TAPE
|
* L = LOAD TAPE
|
* M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh
|
* M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh
|
* P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR.
|
* P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR.
|
* Q ssss-eeee = TEST MEMORY FROM ssss TO eeee
|
* Q ssss-eeee = TEST MEMORY FROM ssss TO eeee
|
* R = DISPLAY REGISTER CONTENTS
|
* R = DISPLAY REGISTER CONTENTS
|
* S = DISPLAY STACK FROM ssss TO $DFC0
|
* S = DISPLAY STACK FROM ssss TO $DFC0
|
* X = REMOVE ALL BREAKPOINTS
|
* X = REMOVE ALL BREAKPOINTS
|
*
|
*
|
*
|
*
|
TSTPAT EQU $55AA TEST PATTERN
|
TSTPAT EQU $55AA TEST PATTERN
|
*
|
*
|
*
|
*
|
*
|
*
|
ORG $DFC0
|
ORG $DFC0
|
STACK RMB 2 TOP OF INTERNAL STACK / USER VECTOR
|
STACK RMB 2 TOP OF INTERNAL STACK / USER VECTOR
|
SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #3
|
SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #3
|
SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #2
|
SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #2
|
FIRQ RMB 2 FAST INTERRUPT VECTOR
|
FIRQ RMB 2 FAST INTERRUPT VECTOR
|
IRQ RMB 2 INTERRUPT VECTOR
|
IRQ RMB 2 INTERRUPT VECTOR
|
SWI RMB 2 SOFTWARE INTERRUPT VECTOR
|
SWI RMB 2 SOFTWARE INTERRUPT VECTOR
|
SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN
|
SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN
|
SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT
|
SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT
|
LRARAM RMB 16 LRA ADDRESSES
|
LRARAM RMB 16 LRA ADDRESSES
|
CPORT RMB 2 RE-VECTORABLE CONTROL PORT
|
CPORT RMB 2 RE-VECTORABLE CONTROL PORT
|
ECHO RMB 1 ECHO FLAG
|
ECHO RMB 1 ECHO FLAG
|
BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR
|
BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR
|
ACIAS EQU $E004 CONTROL PORT
|
ACIAS EQU $E004 CONTROL PORT
|
Comreg EQU $E018 COMMAND REGISTER
|
Comreg EQU $E018 COMMAND REGISTER
|
Drvreg EQU $E014 DRIVE REGISTER
|
Drvreg EQU $E014 DRIVE REGISTER
|
Secreg EQU $E01A SECTOR REGISTER
|
Secreg EQU $E01A SECTOR REGISTER
|
Datreg EQU $E01B DATA REGISTER
|
Datreg EQU $E01B DATA REGISTER
|
*
|
*
|
ADDREG EQU $F000 ADDRESS REGISTER
|
ADDREG EQU $F000 ADDRESS REGISTER
|
CNTREG EQU $F002 COUNT REGISTER
|
CNTREG EQU $F002 COUNT REGISTER
|
CCREG EQU $F010 CHANNEL CONTROL REGISTER
|
CCREG EQU $F010 CHANNEL CONTROL REGISTER
|
PRIREG EQU $F014 DMA PRIORITY REGISTER
|
PRIREG EQU $F014 DMA PRIORITY REGISTER
|
AAAREG EQU $F015 ???
|
AAAREG EQU $F015 ???
|
BBBREG EQU $F016 ???
|
BBBREG EQU $F016 ???
|
COMREG EQU $F020 1791 COMMAND REGISTER
|
COMREG EQU $F020 1791 COMMAND REGISTER
|
SECREG EQU $F022 SECTOR REGISTER
|
SECREG EQU $F022 SECTOR REGISTER
|
DRVREG EQU $F024 DRIVE SELECT LATCH
|
DRVREG EQU $F024 DRIVE SELECT LATCH
|
CCCREG EQU $F040 ???
|
CCCREG EQU $F040 ???
|
*
|
*
|
IC11 EQU $FFF0 DAT RAM CHIP
|
IC11 EQU $FFF0 DAT RAM CHIP
|
*
|
*
|
ORG $F800
|
ORG $F800
|
FDB MONITOR
|
FDB MONITOR
|
FDB NEXTCMD
|
FDB NEXTCMD
|
FDB INCH
|
FDB INCH
|
FDB INCHE
|
FDB INCHE
|
FDB INCHEK
|
FDB INCHEK
|
FDB OUTCH
|
FDB OUTCH
|
FDB PDATA
|
FDB PDATA
|
FDB PCRLF
|
FDB PCRLF
|
FDB PSTRNG
|
FDB PSTRNG
|
FDB LRA
|
FDB LRA
|
*
|
*
|
* MONITOR
|
* MONITOR
|
*
|
*
|
* VECTOR ADDRESS STRING IS.....
|
* VECTOR ADDRESS STRING IS.....
|
* $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF
|
* $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF
|
*
|
*
|
MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING
|
MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING
|
LDY #STACK POINT TO RAM VECTOR LOCATION
|
LDY #STACK POINT TO RAM VECTOR LOCATION
|
LDB #$10 BYTES TO MOVE = 16
|
LDB #$10 BYTES TO MOVE = 16
|
LOOPA LDA ,X+ GET VECTOR BYTE
|
LOOPA LDA ,X+ GET VECTOR BYTE
|
STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF
|
STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF
|
DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE
|
DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE
|
BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED
|
BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED
|
*
|
*
|
* CONTENTS FROM TO FUNCTION
|
* CONTENTS FROM TO FUNCTION
|
* $F8A1 $FE40 $DFC0 USER-V
|
* $F8A1 $FE40 $DFC0 USER-V
|
* $F8A1 $FE42 $DFC2 SWI3-V
|
* $F8A1 $FE42 $DFC2 SWI3-V
|
* $F8A1 $FE44 $DFC4 SWI2-V
|
* $F8A1 $FE44 $DFC4 SWI2-V
|
* $F8A1 $FE46 $DFC6 FIRQ-V
|
* $F8A1 $FE46 $DFC6 FIRQ-V
|
* $F8A1 $FE48 $DFC8 IRQ-V
|
* $F8A1 $FE48 $DFC8 IRQ-V
|
* $FAB0 $FE4A $DFCA SWI-V
|
* $FAB0 $FE4A $DFCA SWI-V
|
* $FFFF $FE4C $DFCC SVC-VO
|
* $FFFF $FE4C $DFCC SVC-VO
|
* $FFFF $FE4E $DFCE SVC-VL
|
* $FFFF $FE4E $DFCE SVC-VL
|
*
|
*
|
LDX #ACIAS GET CONTROL PORT ADDR.
|
LDX #ACIAS GET CONTROL PORT ADDR.
|
STX CPORT STORE ADDR. IN RAM
|
STX CPORT STORE ADDR. IN RAM
|
LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS
|
LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS
|
LDB #12 CLEAR 12 BYTES ON STACK
|
LDB #12 CLEAR 12 BYTES ON STACK
|
CLRSTK CLR ,-S
|
CLRSTK CLR ,-S
|
DECB
|
DECB
|
BNE CLRSTK
|
BNE CLRSTK
|
LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY
|
LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY
|
STX 10,S ON STACK
|
STX 10,S ON STACK
|
LDA #$D0 PRESET CONDITION CODES ON STACK
|
LDA #$D0 PRESET CONDITION CODES ON STACK
|
STA ,S
|
STA ,S
|
TFR S,U
|
TFR S,U
|
LBSR ACINIZ INITIALIZE CONTROL PORT
|
LBSR ACINIZ INITIALIZE CONTROL PORT
|
LDX #MSG1 POINT TO 'SBUG 1.8' MESSAGE
|
LDX #MSG1 POINT TO 'SBUG 1.8' MESSAGE
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDX #LRARAM POINT TO LRA RAM STORAGE AREA
|
LDX #LRARAM POINT TO LRA RAM STORAGE AREA
|
CLRA START TOTAL AT ZERO
|
CLRA START TOTAL AT ZERO
|
LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY
|
LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY
|
FNDREL TST B,X TEST FOR RAM AT NEXT LOC.
|
FNDREL TST B,X TEST FOR RAM AT NEXT LOC.
|
BEQ RELPAS IF NO RAM GO TO NEXT LOC.
|
BEQ RELPAS IF NO RAM GO TO NEXT LOC.
|
ADDA #4 ELSE ADD 4K TO TOTAL
|
ADDA #4 ELSE ADD 4K TO TOTAL
|
DAA ADJ. TOTAL FOR DECIMAL
|
DAA ADJ. TOTAL FOR DECIMAL
|
RELPAS DECB SUB. 1 FROM LOCS. TO TEST
|
RELPAS DECB SUB. 1 FROM LOCS. TO TEST
|
BPL FNDREL PRINT TOTAL OF RAM
|
BPL FNDREL PRINT TOTAL OF RAM
|
LBSR OUT2H OUTPUT HEX BYTE AS ASCII
|
LBSR OUT2H OUTPUT HEX BYTE AS ASCII
|
LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS
|
LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
*
|
*
|
***** NEXTCMD *****
|
***** NEXTCMD *****
|
*
|
*
|
NEXTCMD LDX #MSG3 POINT TO MSG ">"
|
NEXTCMD LDX #MSG3 POINT TO MSG ">"
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
LBSR INCH GET ONE CHAR. FROM TERMINAL
|
LBSR INCH GET ONE CHAR. FROM TERMINAL
|
ANDA #$7F STRIP PARITY FROM CHAR.
|
ANDA #$7F STRIP PARITY FROM CHAR.
|
CMPA #$0D IS IT CARRIAGE RETURN ?
|
CMPA #$0D IS IT CARRIAGE RETURN ?
|
BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR.
|
BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR.
|
TFR A,B PUT CHAR. IN "B" ACCUM.
|
TFR A,B PUT CHAR. IN "B" ACCUM.
|
CMPA #$20 IS IT CONTROL OR DATA CHAR ?
|
CMPA #$20 IS IT CONTROL OR DATA CHAR ?
|
BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT
|
BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT
|
LDA #'^ ELSE CNTRL CHAR CMD SO...
|
LDA #'^ ELSE CNTRL CHAR CMD SO...
|
LBSR OUTCH PRINT "^"
|
LBSR OUTCH PRINT "^"
|
TFR B,A RECALL CNTRL CMD CHAR
|
TFR B,A RECALL CNTRL CMD CHAR
|
ADDA #$40 CONVERT IT TO ASCII LETTER
|
ADDA #$40 CONVERT IT TO ASCII LETTER
|
PRTCMD LBSR OUTCH PRNT CMD CHAR
|
PRTCMD LBSR OUTCH PRNT CMD CHAR
|
LBSR OUT1S PRNT SPACE
|
LBSR OUT1S PRNT SPACE
|
CMPB #$60
|
CMPB #$60
|
BLE NXTCH0
|
BLE NXTCH0
|
SUBB #$20
|
SUBB #$20
|
*
|
*
|
*
|
*
|
***** DO TABLE LOOKUP *****
|
***** DO TABLE LOOKUP *****
|
* FOR COMMAND FUNCTIONS
|
* FOR COMMAND FUNCTIONS
|
*
|
*
|
*
|
*
|
NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE
|
NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE
|
NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ?
|
NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ?
|
BEQ JMPCMD BRANCH IF MATCH FOUND
|
BEQ JMPCMD BRANCH IF MATCH FOUND
|
LEAX 2,X POINT TO NEXT ENTRY IN TABLE
|
LEAX 2,X POINT TO NEXT ENTRY IN TABLE
|
CMPX #TABEND REACHED END OF TABLE YET ?
|
CMPX #TABEND REACHED END OF TABLE YET ?
|
BNE NXTCHR IF NOT END, CHECK NEXT ENTRY
|
BNE NXTCHR IF NOT END, CHECK NEXT ENTRY
|
LDX #MSG4 POINT TO MSG "WHAT?"
|
LDX #MSG4 POINT TO MSG "WHAT?"
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD
|
BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD
|
JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE
|
JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE
|
BRA NEXTCMD PROMPT FOR NEW COMMAND
|
BRA NEXTCMD PROMPT FOR NEW COMMAND
|
*
|
*
|
* "G" GO OR CONTINUE
|
* "G" GO OR CONTINUE
|
*
|
*
|
GO TFR U,S
|
GO TFR U,S
|
RTI RTI
|
RTI RTI
|
*
|
*
|
* "R" DISPLAY REGISTERS
|
* "R" DISPLAY REGISTERS
|
*
|
*
|
REGSTR LDX #MSG5 POINT TO MSG " - "
|
REGSTR LDX #MSG5 POINT TO MSG " - "
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
LBSR PRTSP $FCBF
|
LBSR PRTSP $FCBF
|
LBSR PRTUS $FCCA
|
LBSR PRTUS $FCCA
|
LBSR PRTDP $FCD5
|
LBSR PRTDP $FCD5
|
LBSR PRTIX $FCE0
|
LBSR PRTIX $FCE0
|
LBSR PRTIY $FCEB
|
LBSR PRTIY $FCEB
|
LDX #MSG5 POINT TO MSG " - "
|
LDX #MSG5 POINT TO MSG " - "
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
LBSR PRTPC $FCF5
|
LBSR PRTPC $FCF5
|
LBSR PRTA $FCFF
|
LBSR PRTA $FCFF
|
LBSR PRTB $FD09
|
LBSR PRTB $FD09
|
LBRA PRTCC $FD13
|
LBRA PRTCC $FD13
|
*
|
*
|
*
|
*
|
* ALTER "PC" PROGRAM COUNTER
|
* ALTER "PC" PROGRAM COUNTER
|
*
|
*
|
*
|
*
|
ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = "
|
ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR IN1ADR GET NEW CONTENTS FOR "PC"
|
LBSR IN1ADR GET NEW CONTENTS FOR "PC"
|
BVS ALTPCD EXIT IF INVALID HEX
|
BVS ALTPCD EXIT IF INVALID HEX
|
STX 10,U POKE IN NEW CONTENTS
|
STX 10,U POKE IN NEW CONTENTS
|
ALTPCD RTS ;
|
ALTPCD RTS ;
|
*
|
*
|
*
|
*
|
* ALTER "U" USER STACK POINTER
|
* ALTER "U" USER STACK POINTER
|
*
|
*
|
*
|
*
|
ALTRU LBSR PRTUS $FCCA PRINT MSG " US = "
|
ALTRU LBSR PRTUS $FCCA PRINT MSG " US = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR IN1ADR
|
LBSR IN1ADR
|
BVS ALTUD
|
BVS ALTUD
|
STX 8,U
|
STX 8,U
|
ALTUD RTS ;
|
ALTUD RTS ;
|
*
|
*
|
*
|
*
|
* ALTER "Y" INDEX REGISTER
|
* ALTER "Y" INDEX REGISTER
|
*
|
*
|
*
|
*
|
ALTRY LBSR PRTIY PRINT MSG " IY = "
|
ALTRY LBSR PRTIY PRINT MSG " IY = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR IN1ADR
|
LBSR IN1ADR
|
BVS ALTYD
|
BVS ALTYD
|
STX 6,U $F8F0
|
STX 6,U $F8F0
|
ALTYD RTS ;
|
ALTYD RTS ;
|
*
|
*
|
*
|
*
|
* ALTER "X" INDEX REGISTER
|
* ALTER "X" INDEX REGISTER
|
*
|
*
|
*
|
*
|
ALTRX LBSR PRTIX $FCE0 PRINT MSG " IX = "
|
ALTRX LBSR PRTIX $FCE0 PRINT MSG " IX = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR IN1ADR
|
LBSR IN1ADR
|
BVS ALTXD
|
BVS ALTXD
|
STX 4,U
|
STX 4,U
|
ALTXD RTS ;
|
ALTXD RTS ;
|
*
|
*
|
*
|
*
|
* ALTER "DP" DIRECT PAGE REGISTER
|
* ALTER "DP" DIRECT PAGE REGISTER
|
*
|
*
|
*
|
*
|
ALTRDP LBSR PRTDP $FCD5 PRINT MSG " DP = "
|
ALTRDP LBSR PRTDP $FCD5 PRINT MSG " DP = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
BVS ALTDPD
|
BVS ALTDPD
|
STA 3,U
|
STA 3,U
|
ALTDPD RTS ;
|
ALTDPD RTS ;
|
*
|
*
|
*
|
*
|
* ALTER "B" ACCUMULATOR
|
* ALTER "B" ACCUMULATOR
|
*
|
*
|
*
|
*
|
ALTRB LBSR PRTB $FD09 PRINT MSG " B = "
|
ALTRB LBSR PRTB $FD09 PRINT MSG " B = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
BVS ALTBD
|
BVS ALTBD
|
STA 2,U
|
STA 2,U
|
ALTBD RTS $F91C
|
ALTBD RTS $F91C
|
*
|
*
|
*
|
*
|
* ALTER "A" ACCUMULATOR
|
* ALTER "A" ACCUMULATOR
|
*
|
*
|
*
|
*
|
ALTRA LBSR PRTA $FCFF RINT MSG " A = "
|
ALTRA LBSR PRTA $FCFF RINT MSG " A = "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
BVS ALTAD
|
BVS ALTAD
|
STA 1,U
|
STA 1,U
|
ALTAD RTS ;
|
ALTAD RTS ;
|
*
|
*
|
*
|
*
|
* ALTER "CC" REGISTER
|
* ALTER "CC" REGISTER
|
*
|
*
|
*
|
*
|
ALTRCC LBSR PRTCC $FD13 PRINT MSG " CC: "
|
ALTRCC LBSR PRTCC $FD13 PRINT MSG " CC: "
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
LBSR BYTE INPUT BYTE (2 HEX CHAR)
|
BVS ALTCCD
|
BVS ALTCCD
|
ORA #$80 SETS "E" FLAG IN PRINT LIST
|
ORA #$80 SETS "E" FLAG IN PRINT LIST
|
STA ,U
|
STA ,U
|
ALTCCD RTS ;
|
ALTCCD RTS ;
|
*
|
*
|
***** "M" MEMORY EXAMINE AND CHANGE *****
|
***** "M" MEMORY EXAMINE AND CHANGE *****
|
*
|
*
|
MEMCHG LBSR IN1ADR INPUT ADDRESS
|
MEMCHG LBSR IN1ADR INPUT ADDRESS
|
BVS CHRTN IF NOT HEX, RETURN
|
BVS CHRTN IF NOT HEX, RETURN
|
TFR X,Y SAVE ADDR IN "Y"
|
TFR X,Y SAVE ADDR IN "Y"
|
MEMC2 LDX #MSG5 POINT TO MSG " - "
|
MEMC2 LDX #MSG5 POINT TO MSG " - "
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
TFR Y,X FETCH ADDRESS
|
TFR Y,X FETCH ADDRESS
|
LBSR OUT4H PRINT ADDR IN HEX
|
LBSR OUT4H PRINT ADDR IN HEX
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LDA ,Y GET CONTENTS OF CURRENT ADDR.
|
LDA ,Y GET CONTENTS OF CURRENT ADDR.
|
LBSR OUT2H OUTPUT CONTENTS IN ASCII
|
LBSR OUT2H OUTPUT CONTENTS IN ASCII
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LBSR BYTE LOOP WAITING FOR OPERATOR INPUT
|
LBSR BYTE LOOP WAITING FOR OPERATOR INPUT
|
BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC.
|
BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC.
|
CMPA #8 IS IT A BACKSPACE (CNTRL H)?
|
CMPA #8 IS IT A BACKSPACE (CNTRL H)?
|
BEQ MEMC2 PROMPT OPERATOR AGAIN
|
BEQ MEMC2 PROMPT OPERATOR AGAIN
|
CMPA #$18 IS IT A CANCEL (CNTRL X)?
|
CMPA #$18 IS IT A CANCEL (CNTRL X)?
|
BEQ MEMC2 PROMPT OPERATOR AGAIN
|
BEQ MEMC2 PROMPT OPERATOR AGAIN
|
CMPA #'^ IS IT AN UP ARROW?
|
CMPA #'^ IS IT AN UP ARROW?
|
BEQ BACK DISPLAY PREVIOUS BYTE
|
BEQ BACK DISPLAY PREVIOUS BYTE
|
CMPA #$D IS IT A CR?
|
CMPA #$D IS IT A CR?
|
BNE FORWRD DISPLAY NEXT BYTE
|
BNE FORWRD DISPLAY NEXT BYTE
|
CHRTN RTS EXIT ROUTINE
|
CHRTN RTS EXIT ROUTINE
|
*
|
*
|
*
|
*
|
CHANGE STA ,Y CHANGE BYTE IN MEMORY
|
CHANGE STA ,Y CHANGE BYTE IN MEMORY
|
CMPA ,Y DID MEMORY BYTE CHANGE?
|
CMPA ,Y DID MEMORY BYTE CHANGE?
|
BEQ FORWRD $F972
|
BEQ FORWRD $F972
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
LDA #'? LOAD QUESTION MARK
|
LDA #'? LOAD QUESTION MARK
|
LBSR OUTCH PRINT IT
|
LBSR OUTCH PRINT IT
|
FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION
|
FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION
|
BRA MEMC2 PRINT LOCATION & CONTENTS
|
BRA MEMC2 PRINT LOCATION & CONTENTS
|
BACK LEAY -1,Y POINT TO LAST MEM LOCATION
|
BACK LEAY -1,Y POINT TO LAST MEM LOCATION
|
BRA MEMC2 PRINT LOCATION & CONTENTS
|
BRA MEMC2 PRINT LOCATION & CONTENTS
|
*
|
*
|
* "S" DISPLAY STACK
|
* "S" DISPLAY STACK
|
* HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM
|
* HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM
|
** CURRENT STACK POINTER TO INTERNAL STACK LIMIT.
|
** CURRENT STACK POINTER TO INTERNAL STACK LIMIT.
|
*
|
*
|
DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER
|
DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER
|
TFR U,Y
|
TFR U,Y
|
LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT
|
LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT
|
LEAX -1,X POINT TO CURRENT STACK
|
LEAX -1,X POINT TO CURRENT STACK
|
BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS
|
BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS
|
*
|
*
|
* "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII
|
* "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII
|
* AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG.
|
* AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG.
|
* UPPER ADDRESS IN X-REG.
|
* UPPER ADDRESS IN X-REG.
|
* IF HEX ADDRESSES ARE INVALID (V)=1.
|
* IF HEX ADDRESSES ARE INVALID (V)=1.
|
*
|
*
|
MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES
|
MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES
|
BVS EDPRTN NEW COMMAND IF ILLEGAL HEX
|
BVS EDPRTN NEW COMMAND IF ILLEGAL HEX
|
MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS
|
MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS
|
CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS?
|
CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS?
|
BCC AJDUMP IF NOT, DUMP HEX AND ASCII
|
BCC AJDUMP IF NOT, DUMP HEX AND ASCII
|
EDPRTN RTS ;
|
EDPRTN RTS ;
|
*
|
*
|
* ADJUST LOWER AND UPPER ADDRESS LIMITS
|
* ADJUST LOWER AND UPPER ADDRESS LIMITS
|
* TO EVEN 16 BYTE BOUNDRIES.
|
* TO EVEN 16 BYTE BOUNDRIES.
|
*
|
*
|
* IF LOWER ADDR = $4532
|
* IF LOWER ADDR = $4532
|
* LOWER BOUNDS WILL BE ADJUSTED TO = $4530.
|
* LOWER BOUNDS WILL BE ADJUSTED TO = $4530.
|
*
|
*
|
* IF UPPER ADDR = $4567
|
* IF UPPER ADDR = $4567
|
* UPPER BOUNDS WILL BE ADJUSTED TO = $4570.
|
* UPPER BOUNDS WILL BE ADJUSTED TO = $4570.
|
*
|
*
|
* ENTER WITH LOWER ADDRESS IN X-REG.
|
* ENTER WITH LOWER ADDRESS IN X-REG.
|
* -UPPER ADDRESS ON TOP OF STACK.
|
* -UPPER ADDRESS ON TOP OF STACK.
|
*
|
*
|
AJDUMP TFR X,D GET UPPER ADDR IN D-REG
|
AJDUMP TFR X,D GET UPPER ADDR IN D-REG
|
ADDD #$10 ADD 16 TO UPPER ADDRESS
|
ADDD #$10 ADD 16 TO UPPER ADDRESS
|
ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY
|
ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY
|
PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT
|
PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT
|
TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG
|
TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG
|
ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY
|
ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY
|
TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT
|
TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT
|
NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT
|
NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT
|
BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP
|
BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP
|
LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD
|
LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD
|
BEQ EDUMP IF NONE, CONTINUE WITH DUMP
|
BEQ EDUMP IF NONE, CONTINUE WITH DUMP
|
SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING
|
SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING
|
RTS ;
|
RTS ;
|
*
|
*
|
* PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS
|
* PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS
|
* FOR EACH LINE THROUGHOUT ADDRESS LIMITS.
|
* FOR EACH LINE THROUGHOUT ADDRESS LIMITS.
|
*
|
*
|
EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK
|
EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK
|
LDX #MSG5 POINT TO MSG " - "
|
LDX #MSG5 POINT TO MSG " - "
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
LDX ,S LOAD LOWER ADDR FROM TOP OF STACK
|
LDX ,S LOAD LOWER ADDR FROM TOP OF STACK
|
LBSR OUT4H PRINT THE ADDRESS LBSR OUT2S PRINT 2 SPACES
|
LBSR OUT4H PRINT THE ADDRESS LBSR OUT2S PRINT 2 SPACES
|
LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP
|
LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP
|
ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT
|
ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT
|
LBSR OUT2H OUTPUT HEX BYTE AS ASCII
|
LBSR OUT2H OUTPUT HEX BYTE AS ASCII
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
DECB $F9D1 DECREMENT BYTE COUNT
|
DECB $F9D1 DECREMENT BYTE COUNT
|
BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED
|
BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED
|
*
|
*
|
* PRINT 16 ASCII CHARACTERS
|
* PRINT 16 ASCII CHARACTERS
|
* IF NOT PRINTABLE OR NOT VALID
|
* IF NOT PRINTABLE OR NOT VALID
|
* ASCII PRINT A PERIOD (.)
|
* ASCII PRINT A PERIOD (.)
|
LBSR OUT2S 2 SPACES
|
LBSR OUT2S 2 SPACES
|
LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK
|
LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK
|
LDB #$10 SET ASCII CHAR TO PRINT = 16
|
LDB #$10 SET ASCII CHAR TO PRINT = 16
|
EDPASC LDA ,X+ GET CHARACTER FROM MEMORY
|
EDPASC LDA ,X+ GET CHARACTER FROM MEMORY
|
CMPA #$20 IF LESS THAN $20, NON-PRINTABLE?
|
CMPA #$20 IF LESS THAN $20, NON-PRINTABLE?
|
BCS PERIOD IF SO, PRINT PERIOD INSTEAD
|
BCS PERIOD IF SO, PRINT PERIOD INSTEAD
|
CMPA #$7E IS IT VALID ASCII?
|
CMPA #$7E IS IT VALID ASCII?
|
BLS PRASC IF SO PRINT IT
|
BLS PRASC IF SO PRINT IT
|
PERIOD LDA #'. LOAD A PERIOD (.)
|
PERIOD LDA #'. LOAD A PERIOD (.)
|
PRASC LBSR OUTCH PRINT ASCII CHARACTER
|
PRASC LBSR OUTCH PRINT ASCII CHARACTER
|
DECB DECREMENT COUNT
|
DECB DECREMENT COUNT
|
BNE EDPASC
|
BNE EDPASC
|
BRA NXTLIN
|
BRA NXTLIN
|
*
|
*
|
***** "Q" MEMORY TEST *****
|
***** "Q" MEMORY TEST *****
|
*
|
*
|
MEMTST CLR ,-S CLEAR BYTE ON STACK
|
MEMTST CLR ,-S CLEAR BYTE ON STACK
|
CLR ,-S CLEAR ANOTHER BYTE
|
CLR ,-S CLEAR ANOTHER BYTE
|
LBSR IN2ADR GET BEGIN(Y) & END(X) ADDR. LIMITS
|
LBSR IN2ADR GET BEGIN(Y) & END(X) ADDR. LIMITS
|
PSHS X,Y SAVE ADDRESSES ON STACK
|
PSHS X,Y SAVE ADDRESSES ON STACK
|
BVS ADJSK6 EXIT IF NOT VALID HEX
|
BVS ADJSK6 EXIT IF NOT VALID HEX
|
CMPX 2,S COMPARE BEGIN TO END ADDR.
|
CMPX 2,S COMPARE BEGIN TO END ADDR.
|
BCS ADJSK6 EXIT IF BEGIN > END ADDR.
|
BCS ADJSK6 EXIT IF BEGIN > END ADDR.
|
LBSR OUT1S OUTPUT SPACE
|
LBSR OUT1S OUTPUT SPACE
|
MEMSET TFR Y,D PUT BEGIN ADDR. IN 'D'-ACCUM.
|
MEMSET TFR Y,D PUT BEGIN ADDR. IN 'D'-ACCUM.
|
ADDD 4,S ADD PASS COUNT TO BEGIN ADDR
|
ADDD 4,S ADD PASS COUNT TO BEGIN ADDR
|
PSHS B ADD LS BYTE TO MS BYTE OF BEGIN ADDR
|
PSHS B ADD LS BYTE TO MS BYTE OF BEGIN ADDR
|
ADDA ,S+
|
ADDA ,S+
|
STA ,Y+ SAVE THIS DATA BYTE AT BEGIN ADDR
|
STA ,Y+ SAVE THIS DATA BYTE AT BEGIN ADDR
|
CMPY ,S COMPARE END TO BEGIN ADDR
|
CMPY ,S COMPARE END TO BEGIN ADDR
|
BCS MEMSET IF BEGIN LOWER, CONTINUE TO SET MEMORY
|
BCS MEMSET IF BEGIN LOWER, CONTINUE TO SET MEMORY
|
LDY 2,S RELOAD BEGIN ADDRESS
|
LDY 2,S RELOAD BEGIN ADDRESS
|
TEST1 TFR Y,D PUT BEGIN ADDR IN 'D'-ACC.
|
TEST1 TFR Y,D PUT BEGIN ADDR IN 'D'-ACC.
|
ADDD 4,S ADD PASS COUNT TO ADDRESS
|
ADDD 4,S ADD PASS COUNT TO ADDRESS
|
PSHS A ADD MS BYTE TO LS BYTE OF ADDRESS
|
PSHS A ADD MS BYTE TO LS BYTE OF ADDRESS
|
ADDB ,S+
|
ADDB ,S+
|
EORB ,Y+ EX-OR THIS DATA WITH DATA IN MEMORY LOC.
|
EORB ,Y+ EX-OR THIS DATA WITH DATA IN MEMORY LOC.
|
BEQ GUDPAS IF (Z) SET, MEMORY BYTE OK
|
BEQ GUDPAS IF (Z) SET, MEMORY BYTE OK
|
LDX #MSG5 POINT TO MSG " - "
|
LDX #MSG5 POINT TO MSG " - "
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
LEAX -1,Y GET ERROR ADDRESS IN X-REG
|
LEAX -1,Y GET ERROR ADDRESS IN X-REG
|
LBSR OUT4H OUTPUT IT
|
LBSR OUT4H OUTPUT IT
|
PSHS X PUSH ERROR ADDR ON STACK
|
PSHS X PUSH ERROR ADDR ON STACK
|
LDX #MSG8 POINT TO MSG " =>"
|
LDX #MSG8 POINT TO MSG " =>"
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
PULS X POP ERROR ADDR FROM STACK
|
PULS X POP ERROR ADDR FROM STACK
|
LBSR LRA GET PHYSICAL ADDR FROM LRA
|
LBSR LRA GET PHYSICAL ADDR FROM LRA
|
LBSR XASCII OUTPUT EXTENDED 4 BITS OF PHYSICAL ADDR
|
LBSR XASCII OUTPUT EXTENDED 4 BITS OF PHYSICAL ADDR
|
LBSR OUT4H OUTPUT LS 16 BITS OF PHYSICAL ADDR
|
LBSR OUT4H OUTPUT LS 16 BITS OF PHYSICAL ADDR
|
LDX #MSG6 POINT TO MSG ", PASS "
|
LDX #MSG6 POINT TO MSG ", PASS "
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDX 4,S LOAD PASS COUNT
|
LDX 4,S LOAD PASS COUNT
|
LBSR OUT4H OUTPUT IT
|
LBSR OUT4H OUTPUT IT
|
LDX #MSG7 POINT TO MSG ", BITS IN ERROR
|
LDX #MSG7 POINT TO MSG ", BITS IN ERROR
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
TFR B,A GET ERROR BYTE INTO A-ACC
|
TFR B,A GET ERROR BYTE INTO A-ACC
|
LDX #MSG9 POINT TO MSG "76543210"
|
LDX #MSG9 POINT TO MSG "76543210"
|
LBSR BIASCI OUTPUT IN BINARY/ASCII FORMAT
|
LBSR BIASCI OUTPUT IN BINARY/ASCII FORMAT
|
LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD $FA56
|
LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD $FA56
|
BNE ADJSK6 IF SO, EXIT MEMORY TEST
|
BNE ADJSK6 IF SO, EXIT MEMORY TEST
|
GUDPAS CMPY ,S COMPARE END ADDR TO BEGIN ADDR
|
GUDPAS CMPY ,S COMPARE END ADDR TO BEGIN ADDR
|
BCS TEST1
|
BCS TEST1
|
LDA #'+ GET "PASS" SYMBOL IF MEMORY PASS OK
|
LDA #'+ GET "PASS" SYMBOL IF MEMORY PASS OK
|
LBSR OUTCH OUTPUT SYMBOL TO TERMINAL
|
LBSR OUTCH OUTPUT SYMBOL TO TERMINAL
|
LBSR INCHEK INPUT FROM KEYBOARD?
|
LBSR INCHEK INPUT FROM KEYBOARD?
|
BNE ADJSK6 IF SO, EXIT MEMORY TEST
|
BNE ADJSK6 IF SO, EXIT MEMORY TEST
|
LDY 2,S LOAD BEGIN ADDRESS
|
LDY 2,S LOAD BEGIN ADDRESS
|
INC 5,S INCREMENT LS BYTE OF PASS COUNT
|
INC 5,S INCREMENT LS BYTE OF PASS COUNT
|
BNE MEMSET IF NOT ZERO, SET NEXT MEMORY BYTE
|
BNE MEMSET IF NOT ZERO, SET NEXT MEMORY BYTE
|
INC 4,S INCREMENT MS BYTE OF PASS COUNT
|
INC 4,S INCREMENT MS BYTE OF PASS COUNT
|
BNE MEMSET DONE WITH 65,535 PASSES OF MEMORY?
|
BNE MEMSET DONE WITH 65,535 PASSES OF MEMORY?
|
ADJSK6 LEAS 6,S ADJ STACK POINTER BY 6
|
ADJSK6 LEAS 6,S ADJ STACK POINTER BY 6
|
RTS
|
RTS
|
*
|
*
|
***** "B" SET BREAKPOINT *****
|
***** "B" SET BREAKPOINT *****
|
*
|
*
|
BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS
|
BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS
|
BVS EXITBP EXIT IF INVALID HEX ADDR.
|
BVS EXITBP EXIT IF INVALID HEX ADDR.
|
CMPX #STACK ADDRESS ILLEGAL IF >=$DFC0
|
CMPX #STACK ADDRESS ILLEGAL IF >=$DFC0
|
BCC BPERR IF ERROR PRINT (?), EXIT
|
BCC BPERR IF ERROR PRINT (?), EXIT
|
PSHS X $FA82 PUSH BP ADDRESS ON STACK
|
PSHS X $FA82 PUSH BP ADDRESS ON STACK
|
LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE
|
LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE
|
BSR BPTEST TEST BP TABLE FOR FREE SPACE
|
BSR BPTEST TEST BP TABLE FOR FREE SPACE
|
PULS X POP BP ADDRESS FROM STACK
|
PULS X POP BP ADDRESS FROM STACK
|
BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE
|
BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE
|
LDA ,X GET DATA AT BREAKPOINT ADDRESS
|
LDA ,X GET DATA AT BREAKPOINT ADDRESS
|
CMPA #$3F IS IT A SWI?
|
CMPA #$3F IS IT A SWI?
|
BEQ BPERR IF SWI ALREADY, INDICATE ERROR
|
BEQ BPERR IF SWI ALREADY, INDICATE ERROR
|
STA ,Y+ SAVE DATA BYTE IN BP TABLE
|
STA ,Y+ SAVE DATA BYTE IN BP TABLE
|
STX ,Y SAVE BP ADDRESS IN BP TABLE
|
STX ,Y SAVE BP ADDRESS IN BP TABLE
|
LDA #$3F LOAD A SWI ($3F)
|
LDA #$3F LOAD A SWI ($3F)
|
STA ,X SAVE SWI AT BREAKPOINT ADDRESS
|
STA ,X SAVE SWI AT BREAKPOINT ADDRESS
|
EXITBP RTS ;
|
EXITBP RTS ;
|
*
|
*
|
* INDICATE ERROR SETTING BREAKPOINT
|
* INDICATE ERROR SETTING BREAKPOINT
|
*
|
*
|
BPERR LBSR OUT1S OUTPUT SPACE
|
BPERR LBSR OUT1S OUTPUT SPACE
|
LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR
|
LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR
|
LBRA OUTCH PRINT "?"
|
LBRA OUTCH PRINT "?"
|
*
|
*
|
*** "X" CLEAR OUTSTANDING BREAKPOINTS ***
|
*** "X" CLEAR OUTSTANDING BREAKPOINTS ***
|
*
|
*
|
XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE
|
XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE
|
LDB #8 LOAD BREAKPOINT COUNTER
|
LDB #8 LOAD BREAKPOINT COUNTER
|
XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE
|
XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE
|
DECB $FAAC DECREMENT BP COUNTER
|
DECB $FAAC DECREMENT BP COUNTER
|
BNE XBPLP END OF BREAKPOINT TABLE?
|
BNE XBPLP END OF BREAKPOINT TABLE?
|
RTS
|
RTS
|
*
|
*
|
***** SWI ENTRY POINT *****
|
***** SWI ENTRY POINT *****
|
*
|
*
|
SWIE TFR S,U TRANSFER STACK TO USER POINTER
|
SWIE TFR S,U TRANSFER STACK TO USER POINTER
|
LDX 10,U LOAD PC FROM STACK INTO X-REG
|
LDX 10,U LOAD PC FROM STACK INTO X-REG
|
LEAX -1,X ADJUST ADDR DOWN 1 BYTE.
|
LEAX -1,X ADJUST ADDR DOWN 1 BYTE.
|
BSR BPTEST FIND BREAKPOINT IN BP TABLE
|
BSR BPTEST FIND BREAKPOINT IN BP TABLE
|
BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR
|
BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR
|
STX 10,U SAVE BREAKPOINT ADDR IN STACK
|
STX 10,U SAVE BREAKPOINT ADDR IN STACK
|
BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA
|
BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA
|
REGPR LBSR REGSTR GO PRINT REGISTERS
|
REGPR LBSR REGSTR GO PRINT REGISTERS
|
LBRA NEXTCMD GET NEXT COMMAND
|
LBRA NEXTCMD GET NEXT COMMAND
|
RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE
|
RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE
|
CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY
|
CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY
|
BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S
|
BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S
|
LDA ,X GET DATA FROM BP ADDRESS
|
LDA ,X GET DATA FROM BP ADDRESS
|
CMPA #$3F IS IT SWI?
|
CMPA #$3F IS IT SWI?
|
BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S
|
BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S
|
LDA ,Y GET ORIGINAL DATA FROM BP TABLE
|
LDA ,Y GET ORIGINAL DATA FROM BP TABLE
|
STA ,X $FAD3 RESTORE DATA AT BP ADDRESS
|
STA ,X $FAD3 RESTORE DATA AT BP ADDRESS
|
FFSTBL LDA #$FF LOAD $FF IN A-ACC
|
FFSTBL LDA #$FF LOAD $FF IN A-ACC
|
STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S
|
STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S
|
STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S
|
STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S
|
STA ,Y+
|
STA ,Y+
|
RTS
|
RTS
|
*
|
*
|
** SEARCH BREAKPOINT TABLE FOR MATCH **
|
** SEARCH BREAKPOINT TABLE FOR MATCH **
|
*
|
*
|
BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE
|
BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE
|
LDB #8 LOAD BREAKPOINT COUNTER
|
LDB #8 LOAD BREAKPOINT COUNTER
|
FNDBP LDA ,Y+ LOAD DATA BYTE
|
FNDBP LDA ,Y+ LOAD DATA BYTE
|
CMPX ,Y++ COMPARE ADDRESS, IS IT SAME?
|
CMPX ,Y++ COMPARE ADDRESS, IS IT SAME?
|
BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY
|
BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY
|
DECB IF NOT, DECREMENT BREAKPOINT COUNTER
|
DECB IF NOT, DECREMENT BREAKPOINT COUNTER
|
BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH
|
BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY
|
BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY
|
RTS
|
RTS
|
*
|
*
|
*** "D" DISK BOOT FOR DMAF2 ***
|
*** "D" DISK BOOT FOR DMAF2 ***
|
*
|
*
|
DBOOT LDA #$DE
|
DBOOT LDA #$DE
|
STA DRVREG
|
STA DRVREG
|
LDA #$FF
|
LDA #$FF
|
STA PRIREG $FAF8
|
STA PRIREG $FAF8
|
STA CCREG
|
STA CCREG
|
STA AAAREG
|
STA AAAREG
|
STA BBBREG
|
STA BBBREG
|
TST CCREG
|
TST CCREG
|
LDA #$D8
|
LDA #$D8
|
STA COMREG
|
STA COMREG
|
LBSR DLY
|
LBSR DLY
|
DBOOT0 LDA COMREG
|
DBOOT0 LDA COMREG
|
BMI DBOOT0
|
BMI DBOOT0
|
LDA #$09
|
LDA #$09
|
STA COMREG
|
STA COMREG
|
LBSR DLY
|
LBSR DLY
|
*
|
*
|
DISKWT LDA COMREG FETCH DRIVE STATUS
|
DISKWT LDA COMREG FETCH DRIVE STATUS
|
BITA #1 TEST BUSY BIT
|
BITA #1 TEST BUSY BIT
|
BNE DISKWT LOOP UNTIL NOT BUSY
|
BNE DISKWT LOOP UNTIL NOT BUSY
|
*
|
*
|
BITA #$10
|
BITA #$10
|
BNE DBOOT
|
BNE DBOOT
|
*
|
*
|
LDX #$C000 LOGICAL ADDR. = $C000
|
LDX #$C000 LOGICAL ADDR. = $C000
|
BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR.
|
BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR.
|
ORA #$10
|
ORA #$10
|
STA CCCREG
|
STA CCCREG
|
TFR X,D
|
TFR X,D
|
COMA ;
|
COMA ;
|
COMB ;
|
COMB ;
|
STD ADDREG
|
STD ADDREG
|
LDX #$FEFF LOAD DMA BYTE COUNT = $100
|
LDX #$FEFF LOAD DMA BYTE COUNT = $100
|
STX CNTREG STORE IN COUNT REGISTER
|
STX CNTREG STORE IN COUNT REGISTER
|
LDA #$FF LOAD THE CHANNEL REGISTER
|
LDA #$FF LOAD THE CHANNEL REGISTER
|
STA CCREG
|
STA CCREG
|
LDA #$FE SET CHANNEL 0
|
LDA #$FE SET CHANNEL 0
|
STA PRIREG
|
STA PRIREG
|
LDA #1 SET SECTOR TO "1"
|
LDA #1 SET SECTOR TO "1"
|
STA SECREG ISSUE COMMAND
|
STA SECREG ISSUE COMMAND
|
LDA #$8C SET SINGLE SECTOR READ
|
LDA #$8C SET SINGLE SECTOR READ
|
STA COMREG ISSUE COMMAND
|
STA COMREG ISSUE COMMAND
|
BSR DLY
|
BSR DLY
|
*
|
*
|
* THE FOLLOWING CODE TESTS THE STATUS OF THE
|
* THE FOLLOWING CODE TESTS THE STATUS OF THE
|
* CHANNEL CONTROL REGISTER. IF "D7" IS NOT
|
* CHANNEL CONTROL REGISTER. IF "D7" IS NOT
|
* ZERO THEN IT WILL LOOP WAITING FOR "D7"
|
* ZERO THEN IT WILL LOOP WAITING FOR "D7"
|
* TO GO TO ZERO. IF AFTER 65,536 TRIES IT
|
* TO GO TO ZERO. IF AFTER 65,536 TRIES IT
|
* IS STILL A ONE THE BOOT OPERATION WILL
|
* IS STILL A ONE THE BOOT OPERATION WILL
|
* BE STARTED OVER FROM THE BEGINING.
|
* BE STARTED OVER FROM THE BEGINING.
|
*
|
*
|
CLRB ;
|
CLRB ;
|
DBOOT1 PSHS B $FB55
|
DBOOT1 PSHS B $FB55
|
CLRB ;
|
CLRB ;
|
DBOOT2 TST CCREG
|
DBOOT2 TST CCREG
|
BPL DBOOT3
|
BPL DBOOT3
|
DECB ;
|
DECB ;
|
BNE DBOOT2
|
BNE DBOOT2
|
PULS B
|
PULS B
|
DECB
|
DECB
|
BNE DBOOT1
|
BNE DBOOT1
|
BRA DBOOT
|
BRA DBOOT
|
DBOOT3 PULS B
|
DBOOT3 PULS B
|
LDA COMREG
|
LDA COMREG
|
BITA #$1C
|
BITA #$1C
|
BEQ DBOOT4
|
BEQ DBOOT4
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
DBOOT4 LDB #$DE
|
DBOOT4 LDB #$DE
|
STB DRVREG
|
STB DRVREG
|
LDX #$C000
|
LDX #$C000
|
STX 10,U
|
STX 10,U
|
TFR U,S $FB7B
|
TFR U,S $FB7B
|
RTI ;
|
RTI ;
|
*
|
*
|
***** LRA LOAD REAL ADDRESS *****
|
***** LRA LOAD REAL ADDRESS *****
|
*
|
*
|
* THE FOLLOWING CODE LOADS THE 20-BIT
|
* THE FOLLOWING CODE LOADS THE 20-BIT
|
* PHYSICAL ADDRESS OF A MEMORY BYTE
|
* PHYSICAL ADDRESS OF A MEMORY BYTE
|
* INTO THE "A" AND "X" REGISTERS. THIS
|
* INTO THE "A" AND "X" REGISTERS. THIS
|
* ROUTINE IS ENTERED WITH THE LOGICAL
|
* ROUTINE IS ENTERED WITH THE LOGICAL
|
* ADDRESS OF A MEMORY BYTE IN THE "IX"
|
* ADDRESS OF A MEMORY BYTE IN THE "IX"
|
* REGISTER. EXIT IS MADE WITH THE HIGH-
|
* REGISTER. EXIT IS MADE WITH THE HIGH-
|
* ORDER FOUR BITS OF THE 20-BIT PHYSICAL
|
* ORDER FOUR BITS OF THE 20-BIT PHYSICAL
|
* ADDRESS IN THE "A" REGISTER, AND THE
|
* ADDRESS IN THE "A" REGISTER, AND THE
|
* LOW-ORDER 16-BITS OF THE 20-BIT
|
* LOW-ORDER 16-BITS OF THE 20-BIT
|
* PHYSICAL ADDRESS IN THE "IX" REGISTER.
|
* PHYSICAL ADDRESS IN THE "IX" REGISTER.
|
* ALL OTHER REGISTERS ARE PRESERVED.
|
* ALL OTHER REGISTERS ARE PRESERVED.
|
* THIS ROUTINE IS REQUIRED SINCE THE
|
* THIS ROUTINE IS REQUIRED SINCE THE
|
* DMAF1 AND DMAF2 DISK CONTROLLERS MUST
|
* DMAF1 AND DMAF2 DISK CONTROLLERS MUST
|
* PRESENT PHYSICAL ADDRESSES ON THE
|
* PRESENT PHYSICAL ADDRESSES ON THE
|
* SYSTEM BUS.
|
* SYSTEM BUS.
|
*
|
*
|
LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK
|
LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK
|
LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK
|
LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK
|
LSRA ;
|
LSRA ;
|
LSRA ADJ FOR INDEXED INTO
|
LSRA ADJ FOR INDEXED INTO
|
LSRA CORRESPONDING LOCATION
|
LSRA CORRESPONDING LOCATION
|
LSRA IN LRA TABLE
|
LSRA IN LRA TABLE
|
LDY #LRARAM LOAD LRA TABLE BASE ADDRESS
|
LDY #LRARAM LOAD LRA TABLE BASE ADDRESS
|
LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE
|
LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE
|
LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED
|
LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED
|
LSRB PHYSICAL ADDRESS.
|
LSRB PHYSICAL ADDRESS.
|
LSRB EXTENDED MS 4-BITS ARE RETURNED
|
LSRB EXTENDED MS 4-BITS ARE RETURNED
|
LSRB IN THE "A" ACCUMULATOR
|
LSRB IN THE "A" ACCUMULATOR
|
STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK
|
STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK
|
LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE
|
LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE
|
COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG
|
COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG
|
ASLB ADJ DATA FOR RELOCATION IN X REG
|
ASLB ADJ DATA FOR RELOCATION IN X REG
|
ASLB ;
|
ASLB ;
|
ASLB $FB97
|
ASLB $FB97
|
ASLB ;
|
ASLB ;
|
LDA 2,S GET MS BYTE OF LOGICAL ADDR.
|
LDA 2,S GET MS BYTE OF LOGICAL ADDR.
|
ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS
|
ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS
|
STA 2,S SAVE IT IN X REG ON STACK
|
STA 2,S SAVE IT IN X REG ON STACK
|
ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR.
|
ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR.
|
*
|
*
|
* PLUS LS NIBBLE OF LOGICAL ADDRESS
|
* PLUS LS NIBBLE OF LOGICAL ADDRESS
|
STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG
|
STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG
|
* ON STACK
|
* ON STACK
|
PULS A,B,X,Y POP REGS. FROM STACK
|
PULS A,B,X,Y POP REGS. FROM STACK
|
RTS ;
|
RTS ;
|
*
|
*
|
* DELAY LOOP
|
* DELAY LOOP
|
*
|
*
|
DLY PSHS B SAVE CONTENTS OF "B"
|
DLY PSHS B SAVE CONTENTS OF "B"
|
LDB #$20 GET LOOP DELAY VALUE
|
LDB #$20 GET LOOP DELAY VALUE
|
SUB1 DECB SUBTRACT ONE FROM VALUE
|
SUB1 DECB SUBTRACT ONE FROM VALUE
|
BNE SUB1 LOOP UNTIL ZERO
|
BNE SUB1 LOOP UNTIL ZERO
|
PULS B RESTORE CONTENTS OF "B"
|
PULS B RESTORE CONTENTS OF "B"
|
RTS ;
|
RTS ;
|
*
|
*
|
***** "U" MINIDISK BOOT *****
|
***** "U" MINIDISK BOOT *****
|
*
|
*
|
MINBOOT TST Comreg
|
MINBOOT TST Comreg
|
CLR Drvreg SELECT DRIVE 0
|
CLR Drvreg SELECT DRIVE 0
|
*
|
*
|
* DELAY BEFORE ISSUING RESTORE COMMAND
|
* DELAY BEFORE ISSUING RESTORE COMMAND
|
LDB #3
|
LDB #3
|
LDX #0
|
LDX #0
|
LOOP LEAX 1,X $FBBB
|
LOOP LEAX 1,X $FBBB
|
CMPX #0
|
CMPX #0
|
BNE LOOP
|
BNE LOOP
|
DECB $FBC2
|
DECB $FBC2
|
BNE LOOP
|
BNE LOOP
|
*
|
*
|
LDA #$0F *LOAD HEAD, VERIFY, 20msec/step
|
LDA #$0F *LOAD HEAD, VERIFY, 20msec/step
|
STA Comreg ISSUE RESTORE COMMAND
|
STA Comreg ISSUE RESTORE COMMAND
|
BSR DELAY
|
BSR DELAY
|
LOOP1 LDB Comreg $FBCC
|
LOOP1 LDB Comreg $FBCC
|
BITB #1
|
BITB #1
|
BNE LOOP1 LOOP UNTIL THRU
|
BNE LOOP1 LOOP UNTIL THRU
|
LDA #1
|
LDA #1
|
STA Secreg SET SECTOR REGISTER TO ONE
|
STA Secreg SET SECTOR REGISTER TO ONE
|
BSR DELAY
|
BSR DELAY
|
LDA #$8C LOAD HEAD, DELAY 10msec,
|
LDA #$8C LOAD HEAD, DELAY 10msec,
|
STA Comreg AND READ SINGLE RECORD
|
STA Comreg AND READ SINGLE RECORD
|
BSR DELAY
|
BSR DELAY
|
LDX #$C000
|
LDX #$C000
|
BRA LOOP3
|
BRA LOOP3
|
*
|
*
|
LOOP2 BITB #2 $FBE6 DRQ?
|
LOOP2 BITB #2 $FBE6 DRQ?
|
BEQ LOOP3
|
BEQ LOOP3
|
LDA Datreg
|
LDA Datreg
|
STA ,X+
|
STA ,X+
|
*
|
*
|
LOOP3 LDB Comreg FETCH STATUS
|
LOOP3 LDB Comreg FETCH STATUS
|
BITB #1 BUSY?
|
BITB #1 BUSY?
|
BNE LOOP2
|
BNE LOOP2
|
BITB #$2C CRC ERROR OR LOST DATA?
|
BITB #$2C CRC ERROR OR LOST DATA?
|
BEQ LOOP4
|
BEQ LOOP4
|
RTS ;
|
RTS ;
|
LOOP4 LDX #$C000 $FBFB
|
LOOP4 LDX #$C000 $FBFB
|
STX 10,U
|
STX 10,U
|
TFR U,S
|
TFR U,S
|
RTI ;
|
RTI ;
|
*
|
*
|
* DELAY
|
* DELAY
|
*
|
*
|
DELAY LDB #$20
|
DELAY LDB #$20
|
LOOP5 DECB ;
|
LOOP5 DECB ;
|
BNE LOOP5
|
BNE LOOP5
|
RTS ;
|
RTS ;
|
*
|
*
|
***** "L" LOAD MIKBUG TAPE *****
|
***** "L" LOAD MIKBUG TAPE *****
|
*
|
*
|
LOAD LDA #$11 LOAD 'DC1' CASS. READ ON CODE
|
LOAD LDA #$11 LOAD 'DC1' CASS. READ ON CODE
|
LBSR OUTCH OUTPUT IT TO TERMINAL PORT
|
LBSR OUTCH OUTPUT IT TO TERMINAL PORT
|
CLR ECHO TURN OFF ECHO FLAG
|
CLR ECHO TURN OFF ECHO FLAG
|
LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO
|
LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO
|
LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ?
|
LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ?
|
BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR.
|
BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR.
|
LBSR ECHON
|
LBSR ECHON
|
CMPA #'9 IS IT A "9" , END OF FILE CHAR ?
|
CMPA #'9 IS IT A "9" , END OF FILE CHAR ?
|
BEQ LOAD21 IF SO, EXIT LOAD
|
BEQ LOAD21 IF SO, EXIT LOAD
|
CMPA #'1 IS IT A "1" , FILE LOAD CHAR ?
|
CMPA #'1 IS IT A "1" , FILE LOAD CHAR ?
|
BNE LOAD2 IF NOT, LOOK FOR START CHAR.
|
BNE LOAD2 IF NOT, LOOK FOR START CHAR.
|
LBSR BYTE INPUT BYTE COUNT
|
LBSR BYTE INPUT BYTE COUNT
|
PSHS A PUSH COUNT ON STACK
|
PSHS A PUSH COUNT ON STACK
|
BVS LODERR (V) C-CODE SET, ILLEGAL HEX
|
BVS LODERR (V) C-CODE SET, ILLEGAL HEX
|
LBSR IN1ADR INPUT LOAD ADDRESS
|
LBSR IN1ADR INPUT LOAD ADDRESS
|
BVS LODERR (V) C-CODE SET, ADDR NOT HEX
|
BVS LODERR (V) C-CODE SET, ADDR NOT HEX
|
PSHS X PUSH ADDR ON STACK
|
PSHS X PUSH ADDR ON STACK
|
LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE
|
LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE
|
ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM
|
ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM
|
ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM
|
ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM
|
DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS
|
DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS
|
DEC ,S ADDRESS BYTES.
|
DEC ,S ADDRESS BYTES.
|
LOAD10 PSHS B PUSH CHECKSUM ON STACK
|
LOAD10 PSHS B PUSH CHECKSUM ON STACK
|
LBSR BYTE INPUT DATA BYTE (2 HEX CHAR)
|
LBSR BYTE INPUT DATA BYTE (2 HEX CHAR)
|
PULS B POP CHECKSUM FROM STACK
|
PULS B POP CHECKSUM FROM STACK
|
BVS LODERR (V) SET, DATA BYTE NOT HEX
|
BVS LODERR (V) SET, DATA BYTE NOT HEX
|
PSHS A PUSH DATA BYTE ON STACK
|
PSHS A PUSH DATA BYTE ON STACK
|
ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK
|
ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK
|
DEC ,S DECREMENT BYTE COUNT 1
|
DEC ,S DECREMENT BYTE COUNT 1
|
BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM
|
BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM
|
STA ,X+ SAVE DATA BYTE IN MEMORY
|
STA ,X+ SAVE DATA BYTE IN MEMORY
|
BRA LOAD10 GET NEXT DATA BYTE
|
BRA LOAD10 GET NEXT DATA BYTE
|
LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ;
|
LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ;
|
LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT)
|
LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT)
|
CMPB #$FF CHECKSUM OK?
|
CMPB #$FF CHECKSUM OK?
|
BEQ LOAD IF SO, LOAD NEXT LINE
|
BEQ LOAD IF SO, LOAD NEXT LINE
|
LDA #'? LOAD (?) ERROR INDICATOR
|
LDA #'? LOAD (?) ERROR INDICATOR
|
LBSR OUTCH OUTPUT IT TO TERMINAL
|
LBSR OUTCH OUTPUT IT TO TERMINAL
|
LOAD21 COM ECHO TURN ECHO ON
|
LOAD21 COM ECHO TURN ECHO ON
|
LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE
|
LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE
|
LBRA OUTCH OUTPUT IT
|
LBRA OUTCH OUTPUT IT
|
*
|
*
|
***** "P" PUNCH MIKBUG TAPE *****
|
***** "P" PUNCH MIKBUG TAPE *****
|
*
|
*
|
PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK
|
PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK
|
LBSR IN2ADR GET BEGIN AND END ADDRESS
|
LBSR IN2ADR GET BEGIN AND END ADDRESS
|
PSHS X,Y SAVE ADDRESSES ON STACK
|
PSHS X,Y SAVE ADDRESSES ON STACK
|
BVS PUNEXT (V) C-CODE SET, EXIT PUNCH
|
BVS PUNEXT (V) C-CODE SET, EXIT PUNCH
|
CMPX 2,S COMPARE BEGIN TO END ADDR
|
CMPX 2,S COMPARE BEGIN TO END ADDR
|
BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH
|
BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH
|
LEAX 1,X INCREMENT END ADDRESS
|
LEAX 1,X INCREMENT END ADDRESS
|
STX ,S STORE END ADDR ON STACK
|
STX ,S STORE END ADDR ON STACK
|
LDA #$12 LOAD 'DC2' PUNCH ON CODE
|
LDA #$12 LOAD 'DC2' PUNCH ON CODE
|
LBSR OUTCH OUTPUT IT TO TERMINAL
|
LBSR OUTCH OUTPUT IT TO TERMINAL
|
PUNCH2 LDD ,S LOAD END ADDR IN D-ACC
|
PUNCH2 LDD ,S LOAD END ADDR IN D-ACC
|
SUBD 2,S SUBTRACT BEGIN FROM END
|
SUBD 2,S SUBTRACT BEGIN FROM END
|
BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT
|
BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT
|
CMPD #$20 LESS THAN 32 BYTES?
|
CMPD #$20 LESS THAN 32 BYTES?
|
BLS PUNCH4 PUNCH THAT MANY BYTES
|
BLS PUNCH4 PUNCH THAT MANY BYTES
|
PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32.
|
PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32.
|
PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT
|
PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT
|
LDX #MSG20 POINT TO MSG "S1"
|
LDX #MSG20 POINT TO MSG "S1"
|
LBSR PSTRNG PRINT MSG
|
LBSR PSTRNG PRINT MSG
|
ADDB #3 ADD 3 BYTES TO BYTE COUNT
|
ADDB #3 ADD 3 BYTES TO BYTE COUNT
|
TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH
|
TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH
|
LBSR OUT2H OUTPUT BYTE COUNT
|
LBSR OUT2H OUTPUT BYTE COUNT
|
LDX 2,S LOAD BEGIN ADDRESS
|
LDX 2,S LOAD BEGIN ADDRESS
|
LBSR OUT4H PUNCH ADDRESS
|
LBSR OUT4H PUNCH ADDRESS
|
ADDB 2,S ADD ADDR MSB TO CHECKSUM
|
ADDB 2,S ADD ADDR MSB TO CHECKSUM
|
ADDB 3,S ADD ADDR LSB TO CHECKSUM
|
ADDB 3,S ADD ADDR LSB TO CHECKSUM
|
PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM
|
PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM
|
LDA ,X+ LOAD DATA BYTE TO PUNCH
|
LDA ,X+ LOAD DATA BYTE TO PUNCH
|
LBSR OUT2H OUTPUT DATA BYTE
|
LBSR OUT2H OUTPUT DATA BYTE
|
DEC 4,S DECREMENT BYTE COUNT
|
DEC 4,S DECREMENT BYTE COUNT
|
BNE PUNCHL NOT DONE, PUNCH NEXT BYTE
|
BNE PUNCHL NOT DONE, PUNCH NEXT BYTE
|
COMB 1's COMPLIMENT CHECKSUM BYTE
|
COMB 1's COMPLIMENT CHECKSUM BYTE
|
TFR B,A GET IT IN A-ACC TO PUNCH
|
TFR B,A GET IT IN A-ACC TO PUNCH
|
LBSR OUT2H OUTPUT CHECKSUM BYTE
|
LBSR OUT2H OUTPUT CHECKSUM BYTE
|
STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR
|
STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR
|
CMPX ,S COMPARE IT TO END ADDR
|
CMPX ,S COMPARE IT TO END ADDR
|
BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT.
|
BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT.
|
PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE
|
PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE
|
LBSR OUTCH OUTPUT IT
|
LBSR OUTCH OUTPUT IT
|
LEAS 5,S READJUST STACK POINTER
|
LEAS 5,S READJUST STACK POINTER
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
PRTSP LDX #MSG10 POINT TO MSG "SP="
|
PRTSP LDX #MSG10 POINT TO MSG "SP="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
TFR U,X
|
TFR U,X
|
LBRA OUT4H
|
LBRA OUT4H
|
PRTUS LDX #MSG12 POINT TO MSG "US="
|
PRTUS LDX #MSG12 POINT TO MSG "US="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDX 8,U
|
LDX 8,U
|
LBRA OUT4H
|
LBRA OUT4H
|
PRTDP LDX #MSG15 POINT TO MSG "DP="
|
PRTDP LDX #MSG15 POINT TO MSG "DP="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDA 3,U
|
LDA 3,U
|
LBRA OUT2H OUTPUT HEX BYTE AS ASCII
|
LBRA OUT2H OUTPUT HEX BYTE AS ASCII
|
PRTIX LDX #MSG14 POINT TO MSG "IX="
|
PRTIX LDX #MSG14 POINT TO MSG "IX="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDX 4,U $FCE6
|
LDX 4,U $FCE6
|
LBRA OUT4H
|
LBRA OUT4H
|
PRTIY LDX #MSG13 POINT TO MSG "IY="
|
PRTIY LDX #MSG13 POINT TO MSG "IY="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDX 6,U
|
LDX 6,U
|
LBRA OUT4H
|
LBRA OUT4H
|
PRTPC LDX #MSG11 POINT TO MSG "PC="
|
PRTPC LDX #MSG11 POINT TO MSG "PC="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDX 10,U
|
LDX 10,U
|
BRA OUT4H
|
BRA OUT4H
|
PRTA LDX #MSG16 POINT TO MSG "A="
|
PRTA LDX #MSG16 POINT TO MSG "A="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDA 1,U
|
LDA 1,U
|
BRA OUT2H OUTPUT HEX BYTE AS ASCII
|
BRA OUT2H OUTPUT HEX BYTE AS ASCII
|
PRTB LDX #MSG17 POINT TO MSG "B="
|
PRTB LDX #MSG17 POINT TO MSG "B="
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDA 2,U
|
LDA 2,U
|
BRA OUT2H OUTPUT HEX BYTE AS ASCII
|
BRA OUT2H OUTPUT HEX BYTE AS ASCII
|
PRTCC LDX #MSG18 POINT TO MSG "CC:"
|
PRTCC LDX #MSG18 POINT TO MSG "CC:"
|
LBSR PDATA PRINT MSG
|
LBSR PDATA PRINT MSG
|
LDA ,U
|
LDA ,U
|
LDX #MSG19 POINT TO MSG "EFHINZVC"
|
LDX #MSG19 POINT TO MSG "EFHINZVC"
|
BRA BIASCI OUTPUT IN BINARY/ASCII FORMAT
|
BRA BIASCI OUTPUT IN BINARY/ASCII FORMAT
|
*
|
*
|
* THE FOLLOWING ROUTINE LOOPS WAITING FOR THE
|
* THE FOLLOWING ROUTINE LOOPS WAITING FOR THE
|
* OPERATOR TO INPUT TWO VALID HEX ADDRESSES.
|
* OPERATOR TO INPUT TWO VALID HEX ADDRESSES.
|
* THE FIRST ADDRESS INPUT IS RETURNED IN "IY".
|
* THE FIRST ADDRESS INPUT IS RETURNED IN "IY".
|
* THE SECOND IS RETURNED IN "IX". THE "V" BIT
|
* THE SECOND IS RETURNED IN "IX". THE "V" BIT
|
* IN THE C-CODE REG. IS SET IF AN INVALID HEX
|
* IN THE C-CODE REG. IS SET IF AN INVALID HEX
|
* ADDRESS IS INPUT.
|
* ADDRESS IS INPUT.
|
*
|
*
|
IN2ADR BSR IN1ADR GET FIRST ADDRESS
|
IN2ADR BSR IN1ADR GET FIRST ADDRESS
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
TFR X,Y SAVE FIRST ADDR. IN "IY"
|
TFR X,Y SAVE FIRST ADDR. IN "IY"
|
LDA #'-
|
LDA #'-
|
LBSR OUTCH PRINT " - "
|
LBSR OUTCH PRINT " - "
|
*
|
*
|
* THE FOLLOWING ROUTINE LOOPS WAITING FOR THE
|
* THE FOLLOWING ROUTINE LOOPS WAITING FOR THE
|
* OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE
|
* OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE
|
* ADDRESS IS RETURNED IN THE "X" REGISTER.
|
* ADDRESS IS RETURNED IN THE "X" REGISTER.
|
*
|
*
|
IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR)
|
IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR)
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
TFR D,X
|
TFR D,X
|
BSR BYTE INPUT BYTE (2 HEX CHAR)
|
BSR BYTE INPUT BYTE (2 HEX CHAR)
|
BVS NOTHEX
|
BVS NOTHEX
|
PSHS X
|
PSHS X
|
STA 1,S
|
STA 1,S
|
PULS X
|
PULS X
|
RTS ;
|
RTS ;
|
*
|
*
|
***** INPUT BYTE (2 HEX CHAR.) *****
|
***** INPUT BYTE (2 HEX CHAR.) *****
|
*
|
*
|
BYTE BSR INHEX GET HEX LEFT
|
BYTE BSR INHEX GET HEX LEFT
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
ASLA ;
|
ASLA ;
|
ASLA ;
|
ASLA ;
|
ASLA ; SHIFT INTO LEFT NIBBLE
|
ASLA ; SHIFT INTO LEFT NIBBLE
|
ASLA ;
|
ASLA ;
|
TFR A,B PUT HEXL IN "B"
|
TFR A,B PUT HEXL IN "B"
|
BSR INHEX GET HEX RIGHT
|
BSR INHEX GET HEX RIGHT
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
BVS NOTHEX EXIT IF NOT VALID HEX
|
PSHS B PUSH HEXL ON STACK
|
PSHS B PUSH HEXL ON STACK
|
ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK
|
ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK
|
RTS RETURN WITH HEX L&R IN "A"
|
RTS RETURN WITH HEX L&R IN "A"
|
*
|
*
|
*
|
*
|
INHEX BSR ECHON INPUT ASCII CHAR.
|
INHEX BSR ECHON INPUT ASCII CHAR.
|
CMPA #'0 IS IT > OR = "0" ?
|
CMPA #'0 IS IT > OR = "0" ?
|
BCS NOTHEX IF LESS IT AIN'T HEX
|
BCS NOTHEX IF LESS IT AIN'T HEX
|
CMPA #'9 IS IT < OR = "9" ?
|
CMPA #'9 IS IT < OR = "9" ?
|
BHI INHEXA IF > MAYBE IT'S ALPHA
|
BHI INHEXA IF > MAYBE IT'S ALPHA
|
SUBA #$30 ASCII ADJ. NUMERIC
|
SUBA #$30 ASCII ADJ. NUMERIC
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
INHEXA CMPA #'A IS IT > OR = "A"
|
INHEXA CMPA #'A IS IT > OR = "A"
|
BCS NOTHEX IF LESS IT AIN'T HEX
|
BCS NOTHEX IF LESS IT AIN'T HEX
|
CMPA #'F IS IT < OR = "F" ?
|
CMPA #'F IS IT < OR = "F" ?
|
BHI INHEXL IF > IT AIN'T HEX
|
BHI INHEXL IF > IT AIN'T HEX
|
SUBA #$37 ASCII ADJ. ALPHA
|
SUBA #$37 ASCII ADJ. ALPHA
|
RTS ;
|
RTS ;
|
*
|
*
|
INHEXL CMPA #'a IS IT > OR = "a"
|
INHEXL CMPA #'a IS IT > OR = "a"
|
BCS NOTHEX IF LESS IT AIN'T HEX
|
BCS NOTHEX IF LESS IT AIN'T HEX
|
CMPA #'f IS IT < "f"
|
CMPA #'f IS IT < "f"
|
BHI NOTHEX IF > IT AIN'T HEX
|
BHI NOTHEX IF > IT AIN'T HEX
|
SUBA #$57 ADJUST TO LOWER CASE
|
SUBA #$57 ADJUST TO LOWER CASE
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER
|
NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
OUT4H PSHS X PUSH X-REG. ON THE STACK
|
OUT4H PSHS X PUSH X-REG. ON THE STACK
|
PULS A POP MS BYTE OF X-REG INTO A-ACC.
|
PULS A POP MS BYTE OF X-REG INTO A-ACC.
|
BSR OUTHL OUTPUT HEX LEFT
|
BSR OUTHL OUTPUT HEX LEFT
|
PULS A POP LS BYTE OF X-REG INTO A-ACC.
|
PULS A POP LS BYTE OF X-REG INTO A-ACC.
|
OUTHL EQU *
|
OUTHL EQU *
|
OUT2H PSHS A SAVE IT BACK ON STACK
|
OUT2H PSHS A SAVE IT BACK ON STACK
|
LSRA CONVERT UPPER HEX NIBBLE TO ASCII
|
LSRA CONVERT UPPER HEX NIBBLE TO ASCII
|
LSRA ;
|
LSRA ;
|
LSRA ;
|
LSRA ;
|
LSRA ;
|
LSRA ;
|
BSR XASCII PRINT HEX NIBBLE AS ASCII
|
BSR XASCII PRINT HEX NIBBLE AS ASCII
|
OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII
|
OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII
|
ANDA #$0F STRIP LEFT NIBBLE
|
ANDA #$0F STRIP LEFT NIBBLE
|
XASCII ADDA #$30 ASCII ADJ
|
XASCII ADDA #$30 ASCII ADJ
|
CMPA #$39 IS IT < OR = "9" ?
|
CMPA #$39 IS IT < OR = "9" ?
|
BLE OUTC IF LESS, OUTPUT IT
|
BLE OUTC IF LESS, OUTPUT IT
|
ADDA #7 IF > MAKE ASCII LETTER
|
ADDA #7 IF > MAKE ASCII LETTER
|
OUTC BRA OUTCH OUTPUT CHAR
|
OUTC BRA OUTCH OUTPUT CHAR
|
*
|
*
|
* BINARY / ASCII --- THIS ROUTINE
|
* BINARY / ASCII --- THIS ROUTINE
|
* OUTPUTS A BYTE IN ENHANCED
|
* OUTPUTS A BYTE IN ENHANCED
|
* BINARY FORMAT. THE ENHANCEMENT
|
* BINARY FORMAT. THE ENHANCEMENT
|
* IS DONE BY SUBSTITUTING ASCII
|
* IS DONE BY SUBSTITUTING ASCII
|
* LETTERS FOR THE ONES IN THE BYTE.
|
* LETTERS FOR THE ONES IN THE BYTE.
|
* THE ASCII ENHANCEMENT LETTERS
|
* THE ASCII ENHANCEMENT LETTERS
|
* ARE OBTAINED FROM THE STRING
|
* ARE OBTAINED FROM THE STRING
|
* POINTED TO BY THE INDEX REG. "X".
|
* POINTED TO BY THE INDEX REG. "X".
|
*
|
*
|
BIASCI PSHS A SAVE "A" ON STACK
|
BIASCI PSHS A SAVE "A" ON STACK
|
LDB #8 PRESET LOOP# TO BITS PER BYTE
|
LDB #8 PRESET LOOP# TO BITS PER BYTE
|
OUTBA LDA ,X+ GET LETTER FROM STRING
|
OUTBA LDA ,X+ GET LETTER FROM STRING
|
ASL ,S TEST BYTE FOR "1" IN B7
|
ASL ,S TEST BYTE FOR "1" IN B7
|
BCS PRTBA IF ONE PRINT LETTER
|
BCS PRTBA IF ONE PRINT LETTER
|
LDA #'- IF ZERO PRINT "-"
|
LDA #'- IF ZERO PRINT "-"
|
PRTBA BSR OUTCH PRINT IT
|
PRTBA BSR OUTCH PRINT IT
|
BSR OUT1S PRINT SPACE
|
BSR OUT1S PRINT SPACE
|
DECB SUB 1 FROM #BITS YET TO PRINT
|
DECB SUB 1 FROM #BITS YET TO PRINT
|
BNE OUTBA
|
BNE OUTBA
|
PULS A
|
PULS A
|
RTS
|
RTS
|
*
|
*
|
* PRINT STRING PRECEEDED BY A CR & LF.
|
* PRINT STRING PRECEEDED BY A CR & LF.
|
*
|
*
|
PSTRNG BSR PCRLF PRINT CR/LF
|
PSTRNG BSR PCRLF PRINT CR/LF
|
BRA PDATA PRINT STRING POINTED TO BY IX
|
BRA PDATA PRINT STRING POINTED TO BY IX
|
*
|
*
|
* PCRLF
|
* PCRLF
|
*
|
*
|
PCRLF PSHS X SAVE IX
|
PCRLF PSHS X SAVE IX
|
LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS
|
LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS
|
BSR PDATA PRINT MSG
|
BSR PDATA PRINT MSG
|
PULS X RESTORE IX
|
PULS X RESTORE IX
|
RTS ;
|
RTS ;
|
PRINT BSR OUTCH
|
PRINT BSR OUTCH
|
*
|
*
|
* PDATA
|
* PDATA
|
*
|
*
|
PDATA LDA ,X+ GET 1st CHAR. TO PRINT
|
PDATA LDA ,X+ GET 1st CHAR. TO PRINT
|
CMPA #4 IS IT EOT?
|
CMPA #4 IS IT EOT?
|
BNE PRINT IF NOT EOT PRINT IT
|
BNE PRINT IF NOT EOT PRINT IT
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
ECHON TST ECHO IS ECHO REQUIRED ?
|
ECHON TST ECHO IS ECHO REQUIRED ?
|
BEQ INCH ECHO NOT REQ. IF CLEAR
|
BEQ INCH ECHO NOT REQ. IF CLEAR
|
*
|
*
|
* INCHE
|
* INCHE
|
*
|
*
|
* ---GETS CHARACTER FROM TERMINAL AND
|
* ---GETS CHARACTER FROM TERMINAL AND
|
* ECHOS SAME. THE CHARACTER IS RETURNED
|
* ECHOS SAME. THE CHARACTER IS RETURNED
|
* IN THE "A" ACCUMULATOR WITH THE PARITY
|
* IN THE "A" ACCUMULATOR WITH THE PARITY
|
* BIT MASKED OFF. ALL OTHER REGISTERS
|
* BIT MASKED OFF. ALL OTHER REGISTERS
|
* ARE PRESERVED.
|
* ARE PRESERVED.
|
*
|
*
|
INCHE BSR INCH GET CHAR FROM TERMINAL
|
INCHE BSR INCH GET CHAR FROM TERMINAL
|
ANDA #$7F STRIP PARITY FROM CHAR.
|
ANDA #$7F STRIP PARITY FROM CHAR.
|
BRA OUTCH ECHO CHAR TO TERMINAL
|
BRA OUTCH ECHO CHAR TO TERMINAL
|
*
|
*
|
* INCH
|
* INCH
|
*
|
*
|
* GET CHARACTER FROM TERMINAL. RETURN
|
* GET CHARACTER FROM TERMINAL. RETURN
|
* CHARACTER IN "A" ACCUMULATOR AND PRESERVE
|
* CHARACTER IN "A" ACCUMULATOR AND PRESERVE
|
* ALL OTHER REGISTERS. THE INPUT CHARACTER
|
* ALL OTHER REGISTERS. THE INPUT CHARACTER
|
* IS 8 BITS AND IS NOT ECHOED.
|
* IS 8 BITS AND IS NOT ECHOED.
|
*
|
*
|
*
|
*
|
INCH PSHS X SAVE IX
|
INCH PSHS X SAVE IX
|
LDX CPORT POINT TO TERMINAL PORT
|
LDX CPORT POINT TO TERMINAL PORT
|
GETSTA LDA ,X FETCH PORT STATUS
|
GETSTA LDA ,X FETCH PORT STATUS
|
BITA #1 TEST READY BIT, RDRF ?
|
BITA #1 TEST READY BIT, RDRF ?
|
BEQ GETSTA IF NOT RDY, THEN TRY AGAIN
|
BEQ GETSTA IF NOT RDY, THEN TRY AGAIN
|
LDA 1,X FETCH CHAR
|
LDA 1,X FETCH CHAR
|
PULS X RESTORE IX
|
PULS X RESTORE IX
|
RTS ;
|
RTS ;
|
*
|
*
|
* INCHEK
|
* INCHEK
|
*
|
*
|
* CHECK FOR A CHARACTER AVAILABLE FROM
|
* CHECK FOR A CHARACTER AVAILABLE FROM
|
* THE TERMINAL. THE SERIAL PORT IS CHECKED
|
* THE TERMINAL. THE SERIAL PORT IS CHECKED
|
* FOR READ READY. ALL REGISTERS ARE
|
* FOR READ READY. ALL REGISTERS ARE
|
* PRESERVED, AND THE "Z" BIT WILL BE
|
* PRESERVED, AND THE "Z" BIT WILL BE
|
* CLEAR IF A CHARACTER CAN BE READ.
|
* CLEAR IF A CHARACTER CAN BE READ.
|
*
|
*
|
*
|
*
|
INCHEK PSHS A SAVE A ACCUM.
|
INCHEK PSHS A SAVE A ACCUM.
|
LDA [CPORT] FETCH PORT STATUS
|
LDA [CPORT] FETCH PORT STATUS
|
BITA #1 TEST READY BIT, RDRF ?
|
BITA #1 TEST READY BIT, RDRF ?
|
PULS A RESTORE A ACCUM.
|
PULS A RESTORE A ACCUM.
|
RTS ;
|
RTS ;
|
*
|
*
|
OUT2S BSR OUT1S OUTPUT 2 SPACES
|
OUT2S BSR OUT1S OUTPUT 2 SPACES
|
OUT1S LDA #$20 OUTPUT 1 SPACE
|
OUT1S LDA #$20 OUTPUT 1 SPACE
|
*
|
*
|
*
|
*
|
* OUTCH
|
* OUTCH
|
*
|
*
|
* OUTPUT CHARACTER TO TERMINAL.
|
* OUTPUT CHARACTER TO TERMINAL.
|
* THE CHAR. TO BE OUTPUT IS
|
* THE CHAR. TO BE OUTPUT IS
|
* PASSED IN THE A REGISTER.
|
* PASSED IN THE A REGISTER.
|
* ALL REGISTERS ARE PRESERVED.
|
* ALL REGISTERS ARE PRESERVED.
|
*
|
*
|
OUTCH PSHS A,X SAVE A ACCUM AND IX
|
OUTCH PSHS A,X SAVE A ACCUM AND IX
|
LDX CPORT GET ADDR. OF TERMINAL
|
LDX CPORT GET ADDR. OF TERMINAL
|
FETSTA LDA ,X FETCH PORT STATUS
|
FETSTA LDA ,X FETCH PORT STATUS
|
BITA #2 TEST TDRE, OK TO XMIT ?
|
BITA #2 TEST TDRE, OK TO XMIT ?
|
BEQ FETSTA IF NOT LOOP UNTIL RDY
|
BEQ FETSTA IF NOT LOOP UNTIL RDY
|
PULS A GET CHAR. FOR XMIT
|
PULS A GET CHAR. FOR XMIT
|
STA 1,X XMIT CHAR.
|
STA 1,X XMIT CHAR.
|
PULS X RESTORE IX
|
PULS X RESTORE IX
|
RTS ;
|
RTS ;
|
*
|
*
|
*
|
*
|
ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS
|
ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS
|
LDA #3 RESET ACIA PORT CODE
|
LDA #3 RESET ACIA PORT CODE
|
STA ,X STORE IN CONTROL REGISTER
|
STA ,X STORE IN CONTROL REGISTER
|
LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY
|
LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY
|
STA ,X STORE IN CONTROL REGISTER
|
STA ,X STORE IN CONTROL REGISTER
|
TST 1,X ANYTHING IN DATA REGISTER?
|
TST 1,X ANYTHING IN DATA REGISTER?
|
LDA #$FF TURN ON ECHO FLAG
|
LDA #$FF TURN ON ECHO FLAG
|
STA ECHO
|
STA ECHO
|
RTS
|
RTS
|
*
|
*
|
*
|
*
|
* MONITOR KEYBOARD COMMAND JUMP TABLE
|
* MONITOR KEYBOARD COMMAND JUMP TABLE
|
*
|
*
|
*
|
*
|
JMPTAB EQU *
|
JMPTAB EQU *
|
FCB 1 " ^A " $F91D
|
FCB 1 " ^A " $F91D
|
FDB ALTRA
|
FDB ALTRA
|
FCB 2 " ^B " $F90F
|
FCB 2 " ^B " $F90F
|
FDB ALTRB
|
FDB ALTRB
|
FCB 3 " ^C " $F92B
|
FCB 3 " ^C " $F92B
|
FDB ALTRCC
|
FDB ALTRCC
|
FCB 4 " ^D " $F901
|
FCB 4 " ^D " $F901
|
FDB ALTRDP
|
FDB ALTRDP
|
FCB $10 " ^P " $F8C9
|
FCB $10 " ^P " $F8C9
|
FDB ALTRPC
|
FDB ALTRPC
|
FCB $15 " ^U " $F8D7
|
FCB $15 " ^U " $F8D7
|
FDB ALTRU
|
FDB ALTRU
|
FCB $18 " ^X " $F8F3
|
FCB $18 " ^X " $F8F3
|
FDB ALTRX
|
FDB ALTRX
|
FCB $19 " ^Y " $F8E5
|
FCB $19 " ^Y " $F8E5
|
FDB ALTRY
|
FDB ALTRY
|
*
|
*
|
FCC 'B'
|
FCC 'B'
|
FDB BRKPNT *$FA78
|
FDB BRKPNT *$FA78
|
FCC 'D'
|
FCC 'D'
|
FDB DBOOT *$FAF1
|
FDB DBOOT *$FAF1
|
FCC 'E'
|
FCC 'E'
|
FDB MEMDUMP *$F990
|
FDB MEMDUMP *$F990
|
FCC 'G'
|
FCC 'G'
|
FDB GO *$F89F
|
FDB GO *$F89F
|
FCC 'L'
|
FCC 'L'
|
FDB LOAD *$FC09
|
FDB LOAD *$FC09
|
FCC 'M'
|
FCC 'M'
|
FDB MEMCHG *$F93B
|
FDB MEMCHG *$F93B
|
FCC 'P'
|
FCC 'P'
|
FDB PUNCH *$FC64
|
FDB PUNCH *$FC64
|
FCC 'Q'
|
FCC 'Q'
|
FDB MEMTST *$F9EF
|
FDB MEMTST *$F9EF
|
FCC 'R'
|
FCC 'R'
|
FDB REGSTR *$F8A2
|
FDB REGSTR *$F8A2
|
FCC 'S'
|
FCC 'S'
|
FDB DISSTK *$F984
|
FDB DISSTK *$F984
|
FCC 'U'
|
FCC 'U'
|
FDB MINBOOT *$FBB0
|
FDB MINBOOT *$FBB0
|
FCC 'X'
|
FCC 'X'
|
FDB XBKPNT *$FAA4
|
FDB XBKPNT *$FAA4
|
*
|
*
|
TABEND EQU *
|
TABEND EQU *
|
*
|
*
|
* ** 6809 VECTOR ADDRESSES **
|
* ** 6809 VECTOR ADDRESSES **
|
*
|
*
|
* FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES
|
* FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES
|
* FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY
|
* FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY
|
* ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE
|
* ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE
|
* RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO
|
* RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO
|
* HIS OWN ROUTINES IF HE SO DESIRES.
|
* HIS OWN ROUTINES IF HE SO DESIRES.
|
*
|
*
|
*
|
*
|
RAMVEC FDB SWIE USER-V
|
RAMVEC FDB SWIE USER-V
|
FDB RTI SWI3-V
|
FDB RTI SWI3-V
|
FDB RTI SWI2-V
|
FDB RTI SWI2-V
|
FDB RTI FIRQ-V
|
FDB RTI FIRQ-V
|
FDB RTI IRQ-V
|
FDB RTI IRQ-V
|
FDB SWIE SWI-V
|
FDB SWIE SWI-V
|
FDB $FFFF SVC-VO
|
FDB $FFFF SVC-VO
|
FDB $FFFF SVC-VL
|
FDB $FFFF SVC-VL
|
*
|
*
|
* PRINTABLE MESSAGE STRINGS
|
* PRINTABLE MESSAGE STRINGS
|
*
|
*
|
MSG1 FCB $0,$0,$0,$D,$A,$0,$0,$0 * 0, CR/LF, 0
|
MSG1 FCB $0,$0,$0,$D,$A,$0,$0,$0 * 0, CR/LF, 0
|
FCC 'S-BUG 1.8 - '
|
FCC 'S-BUG 1.8 - '
|
FCB 4
|
FCB 4
|
MSG2 FCB 'K,$D,$A,$0,$0,$0,4 K, * CR/LF + 3 NULS
|
MSG2 FCB 'K,$D,$A,$0,$0,$0,4 K, * CR/LF + 3 NULS
|
MSG3 FCC '>'
|
MSG3 FCC '>'
|
FCB 4
|
FCB 4
|
MSG4 FCC 'WHAT?'
|
MSG4 FCC 'WHAT?'
|
FCB 4
|
FCB 4
|
MSG5 FCC ' - '
|
MSG5 FCC ' - '
|
FCB 4'
|
FCB 4'
|
MSG6 FCC ', PASS '
|
MSG6 FCC ', PASS '
|
FCB 4
|
FCB 4
|
MSG7 FCC ', BITS IN ERROR: '
|
MSG7 FCC ', BITS IN ERROR: '
|
FCB 4
|
FCB 4
|
MSG8 FCC ' => '
|
MSG8 FCC ' => '
|
FCB 4
|
FCB 4
|
MSG9 FCC '76543210'
|
MSG9 FCC '76543210'
|
MSG10 FCC ' SP='
|
MSG10 FCC ' SP='
|
FCB 4
|
FCB 4
|
MSG11 FCC ' PC='
|
MSG11 FCC ' PC='
|
FCB 4
|
FCB 4
|
MSG12 FCC ' US='
|
MSG12 FCC ' US='
|
FCB 4
|
FCB 4
|
MSG13 FCC ' IY='
|
MSG13 FCC ' IY='
|
FCB 4
|
FCB 4
|
MSG14 FCC ' IX='
|
MSG14 FCC ' IX='
|
FCB 4
|
FCB 4
|
MSG15 FCC ' DP='
|
MSG15 FCC ' DP='
|
FCB 4
|
FCB 4
|
MSG16 FCC ' A='
|
MSG16 FCC ' A='
|
FCB 4
|
FCB 4
|
MSG17 FCC ' B='
|
MSG17 FCC ' B='
|
FCB 4
|
FCB 4
|
MSG18 FCC ' CC: '
|
MSG18 FCC ' CC: '
|
FCB 4
|
FCB 4
|
MSG19 FCC 'EFHINZVC'
|
MSG19 FCC 'EFHINZVC'
|
MSG20 FCC 'S1'
|
MSG20 FCC 'S1'
|
FCB 4
|
FCB 4
|
*
|
*
|
* MESSAGE EXPANSION AREA
|
* MESSAGE EXPANSION AREA
|
*
|
*
|
FCB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
FCB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
FCB $FF,$FF,$FF,$FF,$FF,$FF,$FF
|
FCB $FF,$FF,$FF,$FF,$FF,$FF,$FF
|
*
|
*
|
* POWER UP/ RESET/ NMI ENTRY POINT
|
* POWER UP/ RESET/ NMI ENTRY POINT
|
*
|
*
|
ORG $FF00
|
ORG $FF00
|
*
|
*
|
*
|
*
|
START LDX #IC11 POINT TO DAT RAM IC11
|
START LDX #IC11 POINT TO DAT RAM IC11
|
LDA #$F GET COMPLIMENT OF ZERO
|
LDA #$F GET COMPLIMENT OF ZERO
|
*
|
*
|
*
|
*
|
* INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F
|
* INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F
|
* OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS
|
* OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS
|
* IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE
|
* IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE
|
* OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA
|
* OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA
|
* STORED IN IT.
|
* STORED IN IT.
|
*
|
*
|
*
|
*
|
DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION
|
DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION
|
DECA GET COMP. VALUE FOR NEXT LOCATION
|
DECA GET COMP. VALUE FOR NEXT LOCATION
|
BNE DATLP ALL 16 LOCATIONS INITIALIZED ?
|
BNE DATLP ALL 16 LOCATIONS INITIALIZED ?
|
*
|
*
|
* NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER
|
* NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER
|
* ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL
|
* ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL
|
* PHYSICAL ADDRESSES.
|
* PHYSICAL ADDRESSES.
|
*
|
*
|
LDA #$F0
|
LDA #$F0
|
STA ,X STORE $F0 AT $FFFF
|
STA ,X STORE $F0 AT $FFFF
|
LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF
|
LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF
|
LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y"
|
LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y"
|
TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION
|
TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION
|
STY ,X STORE TEST PATTERN AT $D0A0
|
STY ,X STORE TEST PATTERN AT $D0A0
|
CMPY ,X IS THERE RAM AT THIS LOCATION ?
|
CMPY ,X IS THERE RAM AT THIS LOCATION ?
|
BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP
|
BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP
|
LEAX -$1000,X ELSE POINT 4K LOWER
|
LEAX -$1000,X ELSE POINT 4K LOWER
|
CMPX #$F0A0 DECREMENTED PAST ZER0 YET ?
|
CMPX #$F0A0 DECREMENTED PAST ZER0 YET ?
|
BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM
|
BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM
|
BRA START ELSE START ALL OVER AGAIN
|
BRA START ELSE START ALL OVER AGAIN
|
*
|
*
|
*
|
*
|
* THE FOLLOWING CODE STORES THE COMPLEMENT OF
|
* THE FOLLOWING CODE STORES THE COMPLEMENT OF
|
* THE MS CHARACTER OF THE FOUR CHARACTER HEX
|
* THE MS CHARACTER OF THE FOUR CHARACTER HEX
|
* ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED
|
* ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED
|
* BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT
|
* BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT
|
* IS STORED IN RAM IN THE LOCATION THAT IS
|
* IS STORED IN RAM IN THE LOCATION THAT IS
|
* ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---,
|
* ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---,
|
* THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND
|
* THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND
|
* WHEN TESTING LOCATION $70A0, MEANING THERE
|
* WHEN TESTING LOCATION $70A0, MEANING THERE
|
* IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE
|
* IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE
|
* $8000-$DFFF, THEN THE COMPLEMENT OF THE
|
* $8000-$DFFF, THEN THE COMPLEMENT OF THE
|
* "7" IN THE $70A0 WILL BE STORED IN
|
* "7" IN THE $70A0 WILL BE STORED IN
|
* THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS
|
* THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS
|
* AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND
|
* AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND
|
* BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE
|
* BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE
|
* 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE
|
* 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE
|
* RAM THAT IS PHYSICALLY ADDRESSED AT $7---
|
* RAM THAT IS PHYSICALLY ADDRESSED AT $7---
|
* WILL RESPOND AND APPEAR TO THE 6809 THAT IT
|
* WILL RESPOND AND APPEAR TO THE 6809 THAT IT
|
* IS AT $D--- SINCE THAT IS THE ADDRESS THE
|
* IS AT $D--- SINCE THAT IS THE ADDRESS THE
|
* 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK
|
* 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK
|
* OF RAM RESPONDS.
|
* OF RAM RESPONDS.
|
*
|
*
|
*
|
*
|
CNVADR STU ,X RESTORE DATA AT TEST LOCATION
|
CNVADR STU ,X RESTORE DATA AT TEST LOCATION
|
TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D
|
TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D
|
COMA COMPLEMENT MSB OF THAT ADDRESS
|
COMA COMPLEMENT MSB OF THAT ADDRESS
|
LSRA PUT MS 4 BITS OF ADDRESS IN
|
LSRA PUT MS 4 BITS OF ADDRESS IN
|
LSRA LOCATION D0-D3 TO ALLOW STORING
|
LSRA LOCATION D0-D3 TO ALLOW STORING
|
LSRA IT IN THE DYNAMIC ADDRESS
|
LSRA IT IN THE DYNAMIC ADDRESS
|
LSRA TRANSLATION RAM.
|
LSRA TRANSLATION RAM.
|
STA $FFFD STORE XLATION FACTOR IN DAT "D"
|
STA $FFFD STORE XLATION FACTOR IN DAT "D"
|
*
|
*
|
LDS #STACK INITIALIZE STACK POINTER
|
LDS #STACK INITIALIZE STACK POINTER
|
*
|
*
|
*
|
*
|
* THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES
|
* THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES
|
* OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK
|
* OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK
|
* OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS
|
* OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS
|
* IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION
|
* IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION
|
* TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF
|
* TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF
|
* THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO
|
* THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO
|
* RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---....
|
* RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---....
|
*
|
*
|
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
* 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- --
|
* 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- --
|
*
|
*
|
* ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE
|
* ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE
|
* CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING....
|
* CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING....
|
*
|
*
|
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
* 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F0
|
* 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F0
|
*
|
*
|
*
|
*
|
* HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF
|
* HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF
|
* HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL
|
* HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL
|
* ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK
|
* ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK
|
* PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT
|
* PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT
|
* IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C000
|
* IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C000
|
* WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D000
|
* WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D000
|
* RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE
|
* RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE
|
* MEMORY ADDRESSED AS FOLLOWS....
|
* MEMORY ADDRESSED AS FOLLOWS....
|
*
|
*
|
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
* 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- --
|
* 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- --
|
*
|
*
|
*
|
*
|
LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE
|
LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE
|
STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD
|
STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD
|
CLR 14,Y CLEAR $DFDE
|
CLR 14,Y CLEAR $DFDE
|
LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ?
|
LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ?
|
STA 15,Y STORE AT $DFDF
|
STA 15,Y STORE AT $DFDF
|
LDA #$0C PRESET NUMBER OF BYTES TO CLEAR
|
LDA #$0C PRESET NUMBER OF BYTES TO CLEAR
|
CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD0
|
CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD0
|
DECA SUB. 1 FROM BYTES LEFT TO CLEAR
|
DECA SUB. 1 FROM BYTES LEFT TO CLEAR
|
BPL CLRLRT CONTINUE IF NOT DONE CLEARING
|
BPL CLRLRT CONTINUE IF NOT DONE CLEARING
|
FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM
|
FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM
|
CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO
|
CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO
|
BEQ FINTAB SKIP IF FINISHED
|
BEQ FINTAB SKIP IF FINISHED
|
LDU ,X SAVE DATA AT CURRENT TEST LOCATION
|
LDU ,X SAVE DATA AT CURRENT TEST LOCATION
|
LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG.
|
LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG.
|
STY ,X STORE TEST PATT. INTO RAM TEST LOC.
|
STY ,X STORE TEST PATT. INTO RAM TEST LOC.
|
CMPY ,X VERIFY RAM AT TEST LOCATION
|
CMPY ,X VERIFY RAM AT TEST LOCATION
|
BNE FNDRAM IF NO RAM GO LOOK 4K LOWER
|
BNE FNDRAM IF NO RAM GO LOOK 4K LOWER
|
STU ,X ELSE RESTORE DATA TO TEST LOCATION
|
STU ,X ELSE RESTORE DATA TO TEST LOCATION
|
LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE
|
LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE
|
TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D
|
TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D
|
LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D3
|
LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D3
|
LSRA TO ALLOW STORING IT IN THE DAT RAM.
|
LSRA TO ALLOW STORING IT IN THE DAT RAM.
|
LSRA
|
LSRA
|
LSRA
|
LSRA
|
TFR A,B SAVE OFFSET INTO LRARAM TABLE
|
TFR A,B SAVE OFFSET INTO LRARAM TABLE
|
EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK
|
EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK
|
STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE
|
STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE
|
BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK
|
BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK
|
FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ?
|
FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ?
|
LDY #LRARAM POINT TO LRARAM TABLE
|
LDY #LRARAM POINT TO LRARAM TABLE
|
STA 14,Y STORE $F1 AT $DFCE
|
STA 14,Y STORE $F1 AT $DFCE
|
*
|
*
|
* THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF
|
* THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF
|
* RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES
|
* RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES
|
* THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT
|
* THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT
|
* LOGICALLY RESPONDS TO THE ADDRESS $C---.
|
* LOGICALLY RESPONDS TO THE ADDRESS $C---.
|
*
|
*
|
*
|
*
|
LDA #$0C PRESET NUMBER HEX "C"
|
LDA #$0C PRESET NUMBER HEX "C"
|
FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE
|
FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE
|
BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR.
|
BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR.
|
DECA ELSE POINT 4K LOWER
|
DECA ELSE POINT 4K LOWER
|
BPL FINDC GO TRY AGAIN
|
BPL FINDC GO TRY AGAIN
|
BRA XFERTF
|
BRA XFERTF
|
FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND
|
FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND
|
STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C---
|
STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C---
|
*
|
*
|
* THE FOLLOWING CODE ADJUSTS THE TRANSLATION
|
* THE FOLLOWING CODE ADJUSTS THE TRANSLATION
|
* FACTORS SUCH THAT ALL REMAINING RAM WILL
|
* FACTORS SUCH THAT ALL REMAINING RAM WILL
|
* RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL
|
* RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL
|
* ADDRESSES FROM $0000 AND UP....
|
* ADDRESSES FROM $0000 AND UP....
|
*
|
*
|
CLRA START AT ZERO
|
CLRA START AT ZERO
|
TFR Y,X START POINTER "X" START OF "LRARAM" TABLE.
|
TFR Y,X START POINTER "X" START OF "LRARAM" TABLE.
|
COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE
|
COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE
|
BEQ PNTNXT IF IT'S ZER0 SKIP
|
BEQ PNTNXT IF IT'S ZER0 SKIP
|
CLR A,Y ELSE ERASE FROM TABLE
|
CLR A,Y ELSE ERASE FROM TABLE
|
STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP
|
STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP
|
PNTNXT INCA GET OFFSET TO NEXT ENTRY
|
PNTNXT INCA GET OFFSET TO NEXT ENTRY
|
CMPA #$0C LAST ENTRY YET ?
|
CMPA #$0C LAST ENTRY YET ?
|
BLT COMPRS
|
BLT COMPRS
|
*
|
*
|
* THE FOLLOWING CODE TRANSFER THE TRANSLATION
|
* THE FOLLOWING CODE TRANSFER THE TRANSLATION
|
* FACTORS FROM THE LRARAM TABLE TO IC11 ON
|
* FACTORS FROM THE LRARAM TABLE TO IC11 ON
|
* THE MP-09 CPU CARD.
|
* THE MP-09 CPU CARD.
|
*
|
*
|
XFERTF LDX #IC11 POINT TO DAT RAM IC11
|
XFERTF LDX #IC11 POINT TO DAT RAM IC11
|
LDB #$10 GET NO. OF BYTES TO MOVE
|
LDB #$10 GET NO. OF BYTES TO MOVE
|
FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT
|
FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT
|
STA ,X+ POKE XLATION FACTOR IN IC11
|
STA ,X+ POKE XLATION FACTOR IN IC11
|
DECB SUB 1 FROM BYTES TO MOVE
|
DECB SUB 1 FROM BYTES TO MOVE
|
BNE FETCH CONTINUE UNTIL 16 MOVED
|
BNE FETCH CONTINUE UNTIL 16 MOVED
|
COMB SET "B" NON-ZERO
|
COMB SET "B" NON-ZERO
|
STB ECHO TURN ON ECHO FLAG
|
STB ECHO TURN ON ECHO FLAG
|
LBRA MONITOR INITIALIZATION IS COMPLETE
|
LBRA MONITOR INITIALIZATION IS COMPLETE
|
*
|
*
|
*
|
*
|
V1 JMP [STACK]
|
V1 JMP [STACK]
|
V2 JMP [SWI2]
|
V2 JMP [SWI2]
|
V3 JMP [FIRQ]
|
V3 JMP [FIRQ]
|
V4 JMP [IRQ]
|
V4 JMP [IRQ]
|
V5 JMP [SWI]
|
V5 JMP [SWI]
|
*
|
*
|
* SWI3 ENTRY POINT
|
* SWI3 ENTRY POINT
|
*
|
*
|
SWI3E TFR S,U
|
SWI3E TFR S,U
|
LDX 10,U *$FFC8
|
LDX 10,U *$FFC8
|
LDB ,X+
|
LDB ,X+
|
STX 10,U
|
STX 10,U
|
CLRA
|
CLRA
|
ASLB
|
ASLB
|
ROLA
|
ROLA
|
LDX SVCVO
|
LDX SVCVO
|
CMPX #$FFFF
|
CMPX #$FFFF
|
BEQ SWI3Z
|
BEQ SWI3Z
|
LEAX D,X
|
LEAX D,X
|
CMPX SVCVL
|
CMPX SVCVL
|
BHI SWI3Z
|
BHI SWI3Z
|
PSHS X
|
PSHS X
|
LDD ,U
|
LDD ,U
|
LDX 4,U
|
LDX 4,U
|
JMP [,S++]
|
JMP [,S++]
|
SWI3Z PULU A,B,X,CC,DP
|
SWI3Z PULU A,B,X,CC,DP
|
LDU 2,U
|
LDU 2,U
|
JMP [SWI3]
|
JMP [SWI3]
|
*
|
*
|
* 6809 VECTORS
|
* 6809 VECTORS
|
*
|
*
|
FDB V1 USER-V
|
FDB V1 USER-V
|
FDB SWI3E SWI3-V
|
FDB SWI3E SWI3-V
|
FDB V2 SWI2-V
|
FDB V2 SWI2-V
|
FDB V3 FIRQ-V
|
FDB V3 FIRQ-V
|
FDB V4 IRQ-V
|
FDB V4 IRQ-V
|
FDB V5 SWI-V
|
FDB V5 SWI-V
|
FDB V1 NMI-V
|
FDB V1 NMI-V
|
FDB START RESTART-V
|
FDB START RESTART-V
|
END START
|
END START
|
|
|
