Some formatting and style fixes.
This commit is contained in:
@@ -1002,7 +1002,7 @@ CASETV = $E440 ;cassette handler vector table
|
|||||||
|
|
||||||
DISKIV = $E450 ;vector to initialize DIO
|
DISKIV = $E450 ;vector to initialize DIO
|
||||||
DSKINV = $E453 ;vector to DIO
|
DSKINV = $E453 ;vector to DIO
|
||||||
.if .defined(__ATARIXL__)
|
.ifdef __ATARIXL__
|
||||||
.ifndef SHRAM_HANDLERS
|
.ifndef SHRAM_HANDLERS
|
||||||
.import CIO_handler, SIO_handler, SETVBV_handler
|
.import CIO_handler, SIO_handler, SETVBV_handler
|
||||||
.endif
|
.endif
|
||||||
|
|||||||
@@ -100,23 +100,6 @@ start:
|
|||||||
|
|
||||||
jsr initlib
|
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
|
; Set left margin to 0
|
||||||
|
|
||||||
lda LMARGN
|
lda LMARGN
|
||||||
@@ -179,7 +162,9 @@ _exit: jsr donelib ; Run module destructors
|
|||||||
sta MEMTOP+1
|
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
|
jsr findfreeiocb
|
||||||
|
|
||||||
@@ -199,7 +184,9 @@ _exit: jsr donelib ; Run module destructors
|
|||||||
lda #0
|
lda #0
|
||||||
sta ICBLH,x
|
sta ICBLH,x
|
||||||
jsr CIOV_org
|
jsr CIOV_org
|
||||||
; add error checking here...
|
; No error checking here, shouldn't happen(tm), and no way to
|
||||||
|
; recover anyway.
|
||||||
|
|
||||||
lda #CLOSE
|
lda #CLOSE
|
||||||
sta ICCOM,x
|
sta ICCOM,x
|
||||||
jsr CIOV_org
|
jsr CIOV_org
|
||||||
|
|||||||
@@ -51,7 +51,7 @@ IRQStub:
|
|||||||
.endif
|
.endif
|
||||||
lda PORTB
|
lda PORTB
|
||||||
pha
|
pha
|
||||||
and #$fe
|
and #$FE
|
||||||
sta PORTB ; disable ROM
|
sta PORTB ; disable ROM
|
||||||
set_chbase >__CHARGEN_START__
|
set_chbase >__CHARGEN_START__
|
||||||
.endif
|
.endif
|
||||||
|
|||||||
@@ -4,7 +4,7 @@
|
|||||||
|
|
||||||
.macpack longbranch
|
.macpack longbranch
|
||||||
|
|
||||||
.if .defined(__ATARIXL__)
|
.ifdef __ATARIXL__
|
||||||
CIO_vec := my_CIOV
|
CIO_vec := my_CIOV
|
||||||
.else
|
.else
|
||||||
CIO_vec := CIOV
|
CIO_vec := CIOV
|
||||||
@@ -117,7 +117,7 @@ libref: .addr $0000 ; Library reference
|
|||||||
text_dir:
|
text_dir:
|
||||||
.byte 0 ; Text direction,
|
.byte 0 ; Text direction,
|
||||||
|
|
||||||
.if .defined(__ATARIXL__)
|
.ifdef __ATARIXL__
|
||||||
my_CIOV:
|
my_CIOV:
|
||||||
.byte $4C, 0, 0
|
.byte $4C, 0, 0
|
||||||
.endif
|
.endif
|
||||||
@@ -171,7 +171,7 @@ screen_device_length := * - screen_device
|
|||||||
|
|
||||||
stx mask
|
stx mask
|
||||||
|
|
||||||
.if .defined(__ATARIXL__)
|
.ifdef __ATARIXL__
|
||||||
|
|
||||||
; setup pointer to CIO
|
; setup pointer to CIO
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user