Apple-2-SW/anti-m
1
0
Fork 0
mirror of https://github.com/a2-4am/anti-m.git synced 2025-01-14 22:30:15 +00:00
Code Issues Projects Releases Wiki Activity

support launching on 48K Apple ][+

Browse Source
This commit is contained in:
4am 2019-03-13 11:45:01 -04:00
parent 723d97f1e9
commit f99c69f9aa
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
res/work.po
View File

Binary file not shown.

15
src/anti-m.a
View File

@ -33,14 +33,15 @@
; Addresses we read/call ; Addresses we read/call
MLI = $BF00 MLI = $BF00
DEVNUM = $BF30
KEY = $C000 KEY = $C000
STROBE = $C010 STROBE = $C010
BUTTON0 = $C061 BUTTON0 = $C061
BUTTON1 = $C062 BUTTON1 = $C062
TEXT = $FB2F TEXT = $FB2F
MACHINEID = $FBB3
HOME = $FC58 HOME = $FC58
COUT = $FDED COUT = $FDED
DEVNUM = $BF30
cmp1 = $F8 ; word cmp1 = $F8 ; word
cmp2 = $FA ; word cmp2 = $FA ; word
@ -55,6 +56,12 @@ tmp = $FC ; byte
bne Boot bne Boot
@showprompt @showprompt
jsr HOME jsr HOME
lda MACHINEID
cmp #$06
beq @haslowercase
lda #$DF
sta kForceLower
@haslowercase
lda #s_header lda #s_header
jsr PrintByID jsr PrintByID
lda #s_mainmenu lda #s_mainmenu
@ -148,6 +155,10 @@ PrintByID
@print @print
lda $FFFF ; SMC lda $FFFF ; SMC
beq @done beq @done
cmp #$E1
bcc @noforce
and kForceLower
@noforce
jsr COUT jsr COUT
inc @print+1 inc @print+1
bne @print bne @print
@ -157,6 +168,8 @@ PrintByID
clc clc
@exit @exit
rts rts
kForceLower
!byte $FF ; AND mask for lowercase letters
; ;
; String IDs ; String IDs