mirror of
https://github.com/pkali/scorch_src.git
synced 2026-05-20 22:34:21 +02:00
5200 cart updt
This commit is contained in:
@@ -67,12 +67,12 @@ PHINIV EQU $E48C ;UPLOADED HANDLER INIT
|
|||||||
;
|
;
|
||||||
; COMMAND CODES FOR IOCBS
|
; COMMAND CODES FOR IOCBS
|
||||||
;
|
;
|
||||||
OPEN EQU $03 ;OPEN FOR I/O
|
_OPEN EQU $03 ;OPEN FOR I/O
|
||||||
GETREC EQU $05 ;GET RECORD (TEXT)
|
GETREC EQU $05 ;GET RECORD (TEXT)
|
||||||
GETCHR EQU $07 ;GET CHARACTER(S)
|
GETCHR EQU $07 ;GET CHARACTER(S)
|
||||||
PUTREC EQU $09 ;PUT RECORD (TEXT)
|
PUTREC EQU $09 ;PUT RECORD (TEXT)
|
||||||
PUTCHR EQU $0B ;PUT CHARACTER(S)
|
PUTCHR EQU $0B ;PUT CHARACTER(S)
|
||||||
CLOSE EQU $0C ;CLOSE DEVICE
|
_CLOSE EQU $0C ;CLOSE DEVICE
|
||||||
STATIS EQU $0D ;STATUS REQUEST
|
STATIS EQU $0D ;STATUS REQUEST
|
||||||
SPECIL EQU $0E ;SPECIAL ENTRY COMMAND
|
SPECIL EQU $0E ;SPECIAL ENTRY COMMAND
|
||||||
;
|
;
|
||||||
@@ -135,6 +135,7 @@ DERRER EQU $90 ;PERIPHRAL DEVICE ERR
|
|||||||
BADMOD EQU $91 ;BAD SCREEN MODE #
|
BADMOD EQU $91 ;BAD SCREEN MODE #
|
||||||
FNCNOT EQU $92 ;NONEXISTANT FUNCTION
|
FNCNOT EQU $92 ;NONEXISTANT FUNCTION
|
||||||
SCRMEM EQU $93 ;SCREEN MEM TOO SMALL
|
SCRMEM EQU $93 ;SCREEN MEM TOO SMALL
|
||||||
|
FILENF EQU $AA ;FILE NOT FOUND
|
||||||
;
|
;
|
||||||
; PAGE ZERO RAM ASSIGNMENTS
|
; PAGE ZERO RAM ASSIGNMENTS
|
||||||
;
|
;
|
||||||
@@ -720,3 +721,4 @@ scr32 = @dmactl(narrow|dma|players|missiles|lineX1)
|
|||||||
_F4 = 20
|
_F4 = 20
|
||||||
_space = 33
|
_space = 33
|
||||||
.ende
|
.ende
|
||||||
|
EOL = $9b
|
||||||
+4
-1
@@ -212,7 +212,6 @@ FirstZpageVariable = $50
|
|||||||
rts
|
rts
|
||||||
ini $2000
|
ini $2000
|
||||||
.ENDIF
|
.ENDIF
|
||||||
; icl 'Atari/Manual/manual.asm' ; manuals display
|
|
||||||
.ELIF TARGET = 5200
|
.ELIF TARGET = 5200
|
||||||
OPT h-f+ ; no headers, single block --> cart bin file
|
OPT h-f+ ; no headers, single block --> cart bin file
|
||||||
icl 'Atari/lib/5200SYS.ASM'
|
icl 'Atari/lib/5200SYS.ASM'
|
||||||
@@ -357,9 +356,13 @@ StartAfterSplash
|
|||||||
; set gradient to the full LGBTIQQAAPP+ flag on start
|
; set gradient to the full LGBTIQQAAPP+ flag on start
|
||||||
.IF CART_VERSION = 1
|
.IF CART_VERSION = 1
|
||||||
mva #$ff GradientNr ; #1 to set gradient number 2 :) (next one) - 0 (B/W)
|
mva #$ff GradientNr ; #1 to set gradient number 2 :) (next one) - 0 (B/W)
|
||||||
|
.ELSE
|
||||||
|
.IF TARGET=5200
|
||||||
|
mva #1 GradientNr
|
||||||
.ELSE
|
.ELSE
|
||||||
mva #0 GradientNr ; #1 to set gradient number 2 :) (next one) - 1 (polish rainbow)
|
mva #0 GradientNr ; #1 to set gradient number 2 :) (next one) - 1 (polish rainbow)
|
||||||
.ENDIF
|
.ENDIF
|
||||||
|
.ENDIF
|
||||||
jsr SelectNextGradient.NotWind
|
jsr SelectNextGradient.NotWind
|
||||||
|
|
||||||
; generate linetables
|
; generate linetables
|
||||||
|
|||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
Reference in New Issue
Block a user