Apple-2-Tools
/
apple2pi
mirror of https://github.com/dschmenk/apple2pi.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Save a few bytes to get it under 1K

This commit is contained in:
David Schmenk 2023-04-02 16:06:23 -07:00
parent 01bd0d884d
commit 9d20183e98
3 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
client/BUILD/a2pi.wdc.s
View File

@ -262,7 +262,7 @@ SENDACC PHP
SEI ; Disable interrupts SEI ; Disable interrupts
PHA PHA
LDA SSCSLOT LDA SSCSLOT
ORA #$89+1 ORA #$88+2
TAY TAY
LDA #$07 LDA #$07
STA $C002-2,Y ; Enable transmit IRQ STA $C002-2,Y ; Enable transmit IRQ
@ -284,7 +284,7 @@ IRQWT LDA $C001-2,Y ; Wait for IRQ to clear
* ACIA RECEIVE BYTE IN ACCUMULATOR * ACIA RECEIVE BYTE IN ACCUMULATOR
* *
RECVACC LDA SSCSLOT RECVACC LDA SSCSLOT
ORA #$89+1 ORA #$88+2
TAY TAY
RECVWT LDA $C001-2,Y RECVWT LDA $C001-2,Y
AND #$08 AND #$08
@ -298,9 +298,9 @@ CHKEVENT LDA ANYKEY ; CHECK FOR KEY PRESS/RELEASE
CMP KEYSTAT CMP KEYSTAT
BNE SENDKEY BNE SENDKEY
LDA SSCSLOT ; CHECK FOR INPUT TO ACIA LDA SSCSLOT ; CHECK FOR INPUT TO ACIA
ORA #$89+1 ORA #$88+2
TAY TAY
LDA $C000-1,Y LDA $C001-2,Y
AND #$08 AND #$08
BEQ CHKMOU BEQ CHKMOU
LDA $C000-2,Y LDA $C000-2,Y

32
client/BUILD/a2pluspi.wdc.s
View File

@ -231,14 +231,14 @@ SENDACC PHP
SEI ; Disable interrupts SEI ; Disable interrupts
PHA PHA
LDA SSCSLOT LDA SSCSLOT
ORA #$89+1 ORA #$88+2
TAY TAY
LDA #$07 LDA #$07
STA $C002-2,Y ; Enable transmit IRQ STA $C002-2,Y ; Enable transmit IRQ
LDA $C001-2,Y ; Clear any oustanding interrupts LDA $C001-2,Y ; Clear any oustanding interrupts
PLA PLA
STA $C000-2,Y ; AVOID PHANTOM READ FROM $C0XX STA $C000-2,Y ; AVOID PHANTOM READ FROM $C0XX
PHA ; PHA
SENDWT LDA $C001-2,Y SENDWT LDA $C001-2,Y
; AND #$80 ; Check IRQ status ; AND #$80 ; Check IRQ status
BPL SENDWT BPL SENDWT
@ -246,32 +246,38 @@ SENDWT LDA $C001-2,Y
STA $C002-2,Y STA $C002-2,Y
IRQWT LDA $C001-2,Y ; Wait for IRQ to clear IRQWT LDA $C001-2,Y ; Wait for IRQ to clear
BMI IRQWT BMI IRQWT
PLA ; PLA
PLP ; Restore interrupts PLP ; Restore interrupts
RTS RTS
* *
* ACIA RECEIVE BYTE IN ACCUMULATOR * ACIA RECEIVE BYTE IN ACCUMULATOR
* *
RECVACC LDA SSCSLOT RECVACC ;LDA SSCSLOT
ORA #$89+1 ;ORA #$88+2
TAY ;TAY
RECVWT LDA $C001-2,Y LDY SSCSLOT
RECVWT ;LDA $C001-2,Y
LDA $C088,Y
AND #$08 AND #$08
BEQ RECVWT BEQ RECVWT
LDA $C000-2,Y ;LDA $C000-2,Y
LDA $C088,Y
RTS RTS
* *
* CHECK INPUT STATE FOR CHANGE * CHECK INPUT STATE FOR CHANGE
* *
CHKEVENT LDA KEYBD ; CHECK FOR KEY PRESS CHKEVENT LDA KEYBD ; CHECK FOR KEY PRESS
BMI SENDKEY BMI SENDKEY
LDA SSCSLOT ; CHECK FOR INPUT TO ACIA LDY SSCSLOT
ORA #$89+1 ;LDA SSCSLOT ; CHECK FOR INPUT TO ACIA
TAY ;ORA #$88+2
LDA $C000-1,Y ;TAY
;LDA $C001-2,Y
LDA $C089,Y
AND #$08 AND #$08
BEQ CHKMOU BEQ CHKMOU
LDA $C000-2,Y ;LDA $C000-2,Y
LDA $C088,Y
JMP HOSTREQ JMP HOSTREQ
CHKMOU DEC WAITEV ; CHECK FOR MOUSE UPDATE CHKMOU DEC WAITEV ; CHECK FOR MOUSE UPDATE
BEQ UPDTMOU BEQ UPDTMOU

BIN
share/A2PI-WDC.1.7.PO
View File

Binary file not shown.