mirror of
https://github.com/option8/sim8800.git
synced 2024-12-27 14:30:37 +00:00
Begin optimizing for 65C02, enhanced IIe
This commit is contained in:
Charles Mangin
GitHub
parent
2485c65486
commit
8b6fd7f1d9
196
SIM8800.s
196
SIM8800.s
@ -7,12 +7,9 @@
|
||||
ORG $9000
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; TODO: real access display while in trace/step
|
||||
; set displaybytes/+1 on memory access.
|
||||
;
|
||||
; port to 65816 - 24bit addresses, 16 bit registers, 64k contiguous AUX, 2.8mhz
|
||||
;
|
||||
;
|
||||
; TODO:
|
||||
; optimize for speed, 65C02 - target is Enhanced IIe, 128K RAM
|
||||
; port to 65816? 24bit addresses, 16 bit registers, 64k contiguous AUX, 2.8mhz
|
||||
;
|
||||
; ----------------------------------------------------------------------------
|
||||
|
||||
@ -53,7 +50,6 @@ KSWL EQU $38 ; keyboard input routine
|
||||
KSWH EQU $39 ; normally $FD1B
|
||||
|
||||
HIPCH EQU $FE ; is the PC above 32k limit?
|
||||
HIPCOFFSET EQU $FD ; 80 or 70. SPAGHETTI!
|
||||
|
||||
KBDBUF EQU $C000 ; KEYBOARD BUFFER
|
||||
KBDSTROBE EQU $C010 ; KEYBOARD STROBE
|
||||
@ -193,10 +189,6 @@ SBC10 STA PCH ; store resulting PCH
|
||||
MAIN SEI ; DON'T ALLOW INTERRUPTS
|
||||
CLD ; CLEAR DECIMAL MODE
|
||||
LDX #$00 ; LOAD INDEX
|
||||
|
||||
LDA #$80
|
||||
STA HIPCOFFSET ; set offset
|
||||
|
||||
; **** add $10 to SIMH
|
||||
CLC
|
||||
LDA SIMH
|
||||
@ -206,7 +198,8 @@ MAIN SEI ; DON'T ALLOW INTERRUPTS
|
||||
CMP #$7F ; if it's >=32K boundary after add $10, get from AUX
|
||||
BCC STASIMM2
|
||||
STA RAMRDON ; set AUX READ
|
||||
SBC HIPCOFFSET ; subtract #$80
|
||||
|
||||
SBC #$80 ; subtract #$80
|
||||
CLC ; read from AUX, still write to MAIN
|
||||
; add #$80
|
||||
; set MAIN READ
|
||||
@ -230,7 +223,8 @@ DECSIMH SEC ; then subtract #$10... oof.
|
||||
STA RAMRDOFF ; high = turn it off, etc
|
||||
CLC ; add #$80 to SIMH again
|
||||
LDA SIMH
|
||||
ADC HIPCOFFSET
|
||||
|
||||
ADC #$80
|
||||
STA SIMH
|
||||
|
||||
CHECKPCH ; is PC looking above #$8FFF?
|
||||
@ -431,8 +425,7 @@ PUSHT TXA ; TEMP SAVE - x=0A on set return, gets PCL/H
|
||||
PLA ; RECOVER TEMP SAVE
|
||||
TAX ;
|
||||
|
||||
LDY #$80
|
||||
STY HIPCOFFSET ; offset 80 for PUSH???
|
||||
|
||||
|
||||
RPMEM LDY #$01 ; CLEAR INDEX
|
||||
|
||||
@ -443,7 +436,8 @@ RPMEM LDY #$01 ; CLEAR INDEX
|
||||
STA DISPLAYBYTES ; high byte to first bank of LEDs.
|
||||
CMP #$7F ; over 9000?
|
||||
BCC RPMEM2 ; nope, skip math
|
||||
SBC HIPCOFFSET ; off by $10 ??? ***
|
||||
|
||||
SBC #$80 ; off by $10 ??? ***
|
||||
STA RAMWRTON ; write to AUX
|
||||
STA DESTDA,Y
|
||||
|
||||
@ -478,7 +472,8 @@ RPLP LDA SIMM,X ;GET NEXT RP DATA
|
||||
BCS STADESTDA2 ; Over 1000, skip
|
||||
|
||||
STADESTDA3 SEC
|
||||
SBC HIPCOFFSET
|
||||
|
||||
SBC #$80
|
||||
STA RAMWRTON
|
||||
STA DESTDA+1
|
||||
|
||||
@ -489,7 +484,8 @@ STADESTDA2 PLA ; get RP data back
|
||||
BPL RPLP2
|
||||
CLC
|
||||
LDA DESTDA+1
|
||||
ADC HIPCOFFSET
|
||||
|
||||
ADC #$80
|
||||
STA DESTDA+1
|
||||
STA RAMWRTOFF ; write to MAIN
|
||||
|
||||
@ -597,8 +593,7 @@ RETUN
|
||||
; **** doing a JUMP or CALL - reset HIPCH
|
||||
LDA #$00
|
||||
STA HIPCH
|
||||
LDA #$80
|
||||
STA HIPCOFFSET ; set offset
|
||||
|
||||
; **** doing a JUMP or CALL - reset HIPCH
|
||||
|
||||
LDA SPH
|
||||
@ -609,7 +604,8 @@ RETUN
|
||||
CMP #$10
|
||||
BCS RETUN2
|
||||
SEC
|
||||
RETUN1 SBC HIPCOFFSET ; *** SPH off by $10?
|
||||
RETUN1
|
||||
SBC #$80 ; *** SPH off by $10?
|
||||
STA RAMRDON
|
||||
STA RAMWRTON
|
||||
STA SPH
|
||||
@ -628,12 +624,10 @@ RETUN2 CLC
|
||||
BPL RETUN3
|
||||
LDA SPH ; return SPH to high value
|
||||
CLC
|
||||
ADC HIPCOFFSET ; *** SPH off by $10?
|
||||
ADC #$80 ; *** SPH off by $10?
|
||||
STA SPH
|
||||
STA RAMRDOFF
|
||||
STA RAMWRTOFF
|
||||
LDA #$80
|
||||
STA HIPCOFFSET ; set offset
|
||||
|
||||
RETUN3 LDX #$0A ; POP RETURN OFF
|
||||
BNE POPIT ; STACK INTO PC
|
||||
@ -657,11 +651,6 @@ POP LSR A ; POP?
|
||||
POPIT TXA ; TEMP SAVE INDEX
|
||||
PHA ;
|
||||
|
||||
;***
|
||||
; POP and RETURN get stack offset 70.
|
||||
LDA #$70
|
||||
STA HIPCOFFSET ; set offset
|
||||
;***
|
||||
|
||||
JSR SPPNT ; PULL OUT STACK DATA
|
||||
PLA ; BUMP SP
|
||||
@ -1014,92 +1003,97 @@ STPSW STA PSW ; SAVE NEW PSW
|
||||
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
ROTATE LDY SIMA ;
|
||||
LSR A ;
|
||||
BNE ROCOMP ;
|
||||
LDA PSW ;
|
||||
EOR #$01 ;
|
||||
ROTATE LDY SIMA ; GET ACCUMULATOR
|
||||
LSR A ; IS THIS CMC OR 8TC?
|
||||
BNE ROCOMP ; NO, IT IS A ROTATE .OR CMA
|
||||
LDA PSW ; YES, CHANGE CARRY
|
||||
EOR #$01 ; CMC
|
||||
BCC STPS ;
|
||||
ORA #$01 ;
|
||||
ORA #$01 ; STC
|
||||
STPS BVS STPSW ;
|
||||
ROCOMP BCS LEFT ;
|
||||
LSR A ;
|
||||
BNE ROT ;
|
||||
TYA ;
|
||||
; ----------------------------------------------------------------------------
|
||||
|
||||
ROCOMP BCS LEFT ; LEFT OR RIGHT?
|
||||
LSR A ; CMA?
|
||||
BNE ROT ; NO, ROTATE
|
||||
TYA ; YES, COMMPLEMFNT A
|
||||
EOR #$FF ;
|
||||
STA SIMA ;
|
||||
STA SIMA ; DOESN* T SET STATUS
|
||||
RTS ;
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
ROT TYA ;
|
||||
ROT TYA ; GET ACCUMULATOR
|
||||
BCS RRC ;
|
||||
LDA PSW ;
|
||||
LDA PSW ; GET 8080 CARRY
|
||||
RRC LSR A ;
|
||||
TYA ;
|
||||
ROR A ;
|
||||
BVS JCRY ;
|
||||
LEFT LSR A ;
|
||||
BEQ DAA ;
|
||||
TYA ;
|
||||
BCS RLC ;
|
||||
LDA PSW ;
|
||||
TYA ; GET ACCUMULATOR
|
||||
ROR A ; ROTATE RIGHT
|
||||
BVS JCRY ; GO STORE&SET CARRY
|
||||
; ----------------------------------------------------------------------------
|
||||
LEFT LSR A ; DECIMAL ADJUST? IYES# GO 00 IT
|
||||
BEQ DAA ; N 0 , GET ACCUMULATOR
|
||||
TYA ; JRLC?
|
||||
BCS RLC ; NO#GET 8080 CARRY
|
||||
LDA PSW ; MOVE IT INTO MSNIB
|
||||
ROR A ;
|
||||
ROR A ;
|
||||
RLC ASL A ;
|
||||
TYA ;
|
||||
ROL A ;
|
||||
JCRY STA SIMA ;
|
||||
JMP CARRY ;
|
||||
RLC ASL A ; MOVE IT INTO CARRY
|
||||
TYA ; G E T ACCUMULATOR
|
||||
ROL A ; MOVE IT LEFT
|
||||
JCRY STA SIMA ; SAVE IT
|
||||
JMP CARRY ; GO SET STATUS
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
DAA CLC ;
|
||||
PHP ;
|
||||
TYA ;
|
||||
STA ZERO ;
|
||||
AND #$0F ;
|
||||
ADC #$06 ;
|
||||
ORA PSW ;
|
||||
AND #$10 ;
|
||||
BEQ NOSIX ;
|
||||
LDA #$06 ;
|
||||
PHP ;PRE3ERVE STATUS |
|
||||
TYA ;GET SOURCE DATA
|
||||
STA ZERO ; PREP FOR ADD
|
||||
AND #$0F ;LOOK AT LSNI8
|
||||
ADC #$06 ;IF *0A WILL CAUSE AUX CRY
|
||||
ORA PSW ;OR I F AC I S ALREADY SET
|
||||
AND #$10 ; EITHER SET?
|
||||
BEQ NOSIX ;NO, DON T ADJUST LSNIB
|
||||
LDA #$06 ; YES# ADJUST IT
|
||||
NOSIX TAY ;
|
||||
ADC ZERO ;
|
||||
ADC ZERO ; G E T SOURCE
|
||||
BCS SXTY ;
|
||||
ADC #$60 ;
|
||||
ROL A ;
|
||||
ORA PSW ;
|
||||
LSR A ;
|
||||
BCC DA ;
|
||||
SXTY TYA ;
|
||||
ADC #$5F ;
|
||||
ADC #$60 ;113 MSNIB NOW > A0T IIF SO* CARRY IS SET
|
||||
ROL A ;G E T CARRY
|
||||
ORA PSW ;OR WITH 8080 CARRY
|
||||
LSR A ;I S EITHER SETT
|
||||
BCC DA ;NO# DON'T ADJUST MSNIB l
|
||||
SXTY TYA ;YES* ADJUST MSN!B I
|
||||
ADC #$5F ;(5F + CARRY = 60)
|
||||
TAY ;
|
||||
DA LDX #$00 ;
|
||||
PLP ;
|
||||
DA LDX #$00 ;DESTINATION IS A
|
||||
PLP ;RESTQRE STATUS
|
||||
ADCRY JSR ADDR ;
|
||||
JSR CARRY ;
|
||||
|
||||
|
||||
STATUS2
|
||||
TAY ;
|
||||
ROL PSW ;
|
||||
ASL A ;
|
||||
STA FLAG ;
|
||||
LDA PSW ;
|
||||
TAY ; SAVE RESULT
|
||||
ROL PSW ; CLEAR P3W SIGN BIT
|
||||
ASL A ; PUT NEW SIGN IN CARRY
|
||||
STA FLAG ; C L E A R L S B OF F L A G
|
||||
LDA PSW ; PUT NEW SIGN IN P3N
|
||||
ROR A ;
|
||||
SGN ORA #$46 ;
|
||||
TAX ;
|
||||
TYA ;
|
||||
BEQ DONE ;
|
||||
FLIP INC FLAG ;
|
||||
PAR LSR A ;
|
||||
BEQ ALL2 ;
|
||||
SGN ORA #$46 ; PRESET Z*P 8 PRESET
|
||||
TAX ; 3AVE IN X
|
||||
TYA ; RECOVER WORD
|
||||
BEQ DONE ; I F ZERO*ALL DONE
|
||||
FLIP INC FLAG ; IFLIP FLAG |
|
||||
PAR LSR A ; TEST EACH BIT I
|
||||
BEQ ALL2 ; NO MORE BITS
|
||||
BCC PAR ;
|
||||
ALL2 BCS FLIP ;
|
||||
LSR FLAG ;
|
||||
TXA ;
|
||||
AND #$BF ;
|
||||
BCS REC ;
|
||||
AND #$FB ;
|
||||
REC TAX ;
|
||||
DONE STX PSW ;
|
||||
LSR FLAG ; TEST FLAG
|
||||
TXA ; RECOVER P3w
|
||||
AND #$BF ; CLEAR Z
|
||||
BCS REC ; PARITY EVENT
|
||||
AND #$FB ; N0* CLEAR P
|
||||
REC TAX ; BACK TO X
|
||||
DONE STX PSW ; STORE AS PSW
|
||||
RTS ;
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
@ -1172,8 +1166,6 @@ DEC LDY #$0C ; point to DEC data
|
||||
; ----------------------------------------------------------------------------
|
||||
MEMRP TYA ; grab source pointer offset
|
||||
|
||||
LDY #$80
|
||||
STY HIPCOFFSET
|
||||
|
||||
LDA DESTDA+1
|
||||
|
||||
@ -1185,7 +1177,7 @@ MEMRP TYA ; grab source pointer offset
|
||||
BCS MRLP1
|
||||
AUXMEMRP STA RAMRDON ; read from AUX
|
||||
SEC
|
||||
SBC HIPCOFFSET
|
||||
SBC #$80
|
||||
STA DESTDA+1
|
||||
|
||||
MRLP1 LDY #$01 ; move data in memory
|
||||
@ -1201,11 +1193,9 @@ MRLP LDA (DESTDA),Y ; get next byte
|
||||
STA RAMRDOFF ; read from MAIN
|
||||
LDA DESTDA+1
|
||||
CLC
|
||||
ADC HIPCOFFSET
|
||||
ADC #$80
|
||||
STA DESTDA+1
|
||||
|
||||
LDA #$80
|
||||
STA HIPCOFFSET ; set offset
|
||||
|
||||
|
||||
MRLPRTS RTS ;
|
||||
@ -2660,11 +2650,11 @@ CHOOSER2 ASC " 1 FOR KILL-THE-BIT",00
|
||||
CHOOSER3 ASC " 2 FOR 4K BASIC",00
|
||||
CHOOSER4 ASC " 3 FOR 8K BASIC",00
|
||||
CHOOSER5 ASC " 4 FOR MICROCHESS",00
|
||||
CHOOSER6 ASC " 5 FOR DISK BOOTLOADER",00
|
||||
CHOOSER6 ASC " 5 FOR DBL ROM AT $00",00
|
||||
CHOOSER7 ASC " 0 FOR NO PROGRAM",00
|
||||
|
||||
CHOOSERTBL DB >CHOOSER1,<CHOOSER1,>CHOOSER2,<CHOOSER2,>CHOOSER3,<CHOOSER3
|
||||
DB >CHOOSER4,<CHOOSER4,>CHOOSER5,<CHOOSER5,>CHOOSER6,<CHOOSER6,>CHOOSER7,<CHOOSER7
|
||||
DB >CHOOSER4,<CHOOSER4,>CHOOSER5,<CHOOSER5,>CHOOSER6,<CHOOSER6
|
||||
|
||||
|
||||
|
||||
@ -2676,7 +2666,7 @@ CHOOSERLOOP LDY CHOOSERTBL,X
|
||||
JSR STROUT ;Y=String ptr high, A=String ptr low
|
||||
JSR CROUT
|
||||
INX
|
||||
CPX #$0E
|
||||
CPX #$0C
|
||||
BNE CHOOSERLOOP
|
||||
|
||||
CHOOSERWAITLOOP LDX #$00
|
||||
@ -3015,7 +3005,7 @@ DSKREADLOC DB <BASICBUFFER,>BASICBUFFER ; write to end of sim8800
|
||||
DSKTRANSFERRED DB $00,$00
|
||||
|
||||
DSKFILE DB ENDDSKNAME-DSKNAME ;Length of name
|
||||
DSKNAME ASC '/SIM8800/VIRTUAL.DSK' ;followed by the name
|
||||
DSKNAME ASC '/SIM8800/ZORK.DSK' ;followed by the name
|
||||
ENDDSKNAME EQU *
|
||||
|
||||
WRITEDSK JSR MLI
|
||||
|
||||
Loading…
Reference in New Issue
Block a user