Some formatting and style fixes.

This commit is contained in:
Christian Groessler
2013-10-01 11:32:08 +02:00
parent 213f93cce4
commit 7fb0cf4bb2
8 changed files with 84 additions and 97 deletions

View File

@@ -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

View File

@@ -51,7 +51,7 @@ IRQStub:
.endif
lda PORTB
pha
and #$fe
and #$FE
sta PORTB ; disable ROM
set_chbase >__CHARGEN_START__
.endif

View File

@@ -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"

View File

@@ -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