Some formatting and style fixes.
This commit is contained in:
@@ -100,23 +100,6 @@ start:
|
||||
|
||||
jsr initlib
|
||||
|
||||
.if 0
|
||||
.ifdef __ATARIXL__
|
||||
.import __heapadd
|
||||
.import pushax
|
||||
.import __RAM_BELOW_ROM_START__
|
||||
.import __RAM_BELOW_ROM_SIZE__
|
||||
.import __RAM_BELOW_ROM_LAST__
|
||||
|
||||
lda #<__RAM_BELOW_ROM_LAST__
|
||||
ldx #>__RAM_BELOW_ROM_LAST__
|
||||
jsr pushax
|
||||
lda #<(__RAM_BELOW_ROM_SIZE__ - (__RAM_BELOW_ROM_LAST__ - __RAM_BELOW_ROM_START__))
|
||||
ldx #>(__RAM_BELOW_ROM_SIZE__ - (__RAM_BELOW_ROM_LAST__ - __RAM_BELOW_ROM_START__))
|
||||
jsr __heapadd
|
||||
.endif
|
||||
.endif
|
||||
|
||||
; Set left margin to 0
|
||||
|
||||
lda LMARGN
|
||||
@@ -179,7 +162,9 @@ _exit: jsr donelib ; Run module destructors
|
||||
sta MEMTOP+1
|
||||
|
||||
|
||||
; ... issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers)
|
||||
; Issue a GRAPHICS 0 call (copied'n'pasted from TGI drivers) in
|
||||
; order to restore screen memory to its defailt location just
|
||||
; before the ROM.
|
||||
|
||||
jsr findfreeiocb
|
||||
|
||||
@@ -199,7 +184,9 @@ _exit: jsr donelib ; Run module destructors
|
||||
lda #0
|
||||
sta ICBLH,x
|
||||
jsr CIOV_org
|
||||
; add error checking here...
|
||||
; No error checking here, shouldn't happen(tm), and no way to
|
||||
; recover anyway.
|
||||
|
||||
lda #CLOSE
|
||||
sta ICCOM,x
|
||||
jsr CIOV_org
|
||||
|
||||
@@ -51,7 +51,7 @@ IRQStub:
|
||||
.endif
|
||||
lda PORTB
|
||||
pha
|
||||
and #$fe
|
||||
and #$FE
|
||||
sta PORTB ; disable ROM
|
||||
set_chbase >__CHARGEN_START__
|
||||
.endif
|
||||
|
||||
@@ -4,12 +4,12 @@
|
||||
; Christian Groessler, chris@groessler.org, 2013
|
||||
;
|
||||
|
||||
;DEBUG = 1
|
||||
CHKBUF = 1 ; check if bounce buffering is needed (bounce buffering is always done if set to 0)
|
||||
;DEBUG = 1
|
||||
CHKBUF = 1 ; check if bounce buffering is needed (bounce buffering is always done if set to 0)
|
||||
|
||||
.ifdef __ATARIXL__
|
||||
|
||||
SHRAM_HANDLERS = 1
|
||||
SHRAM_HANDLERS = 1
|
||||
.include "atari.inc"
|
||||
.include "save_area.inc"
|
||||
.include "zeropage.inc"
|
||||
@@ -23,7 +23,7 @@ CHKBUF = 1 ; check if bounce buffering is needed (bounce buffering
|
||||
.export SIO_handler
|
||||
.export SETVBV_handler
|
||||
|
||||
BUFSZ = 128 ; bounce buffer size
|
||||
BUFSZ = 128 ; bounce buffer size
|
||||
BUFSZ_SIO = 256
|
||||
|
||||
.segment "INIT"
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
.macpack longbranch
|
||||
|
||||
.if .defined(__ATARIXL__)
|
||||
.ifdef __ATARIXL__
|
||||
CIO_vec := my_CIOV
|
||||
.else
|
||||
CIO_vec := CIOV
|
||||
@@ -117,7 +117,7 @@ libref: .addr $0000 ; Library reference
|
||||
text_dir:
|
||||
.byte 0 ; Text direction,
|
||||
|
||||
.if .defined(__ATARIXL__)
|
||||
.ifdef __ATARIXL__
|
||||
my_CIOV:
|
||||
.byte $4C, 0, 0
|
||||
.endif
|
||||
@@ -171,7 +171,7 @@ screen_device_length := * - screen_device
|
||||
|
||||
stx mask
|
||||
|
||||
.if .defined(__ATARIXL__)
|
||||
.ifdef __ATARIXL__
|
||||
|
||||
; setup pointer to CIO
|
||||
|
||||
|
||||
Reference in New Issue
Block a user