mirror of
https://github.com/cc65/cc65.git
synced 2025-01-25 11:30:06 +00:00
41 lines
537 B
ArmAsm
41 lines
537 B
ArmAsm
|
;
|
||
|
|
; Cassette boot file header
|
||
|
|
;
|
||
|
|
; Christian Groessler, chris@groessler.org, 2013
|
||
|
|
;
|
||
|
|
|
||
|
|
.ifndef __ATARIXL__
|
||
|
|
|
||
|
|
.include "atari.inc"
|
||
|
|
|
||
|
|
.import __BSS_RUN__, __STARTADDRESS__, start
|
||
|
|
.export _cas_init
|
||
|
|
|
||
|
|
.segment "CASHDR"
|
||
|
|
|
||
|
|
.byte 0 ; ignored
|
||
|
|
.byte <((__BSS_RUN__ - __STARTADDRESS__ + 127 + 6) / 128)
|
||
|
|
.word __STARTADDRESS__
|
||
|
|
.word _cas_init
|
||
|
|
|
||
|
|
.segment "CASINIT"
|
||
|
|
|
||
|
|
lda #33
|
||
|
|
ldy #80
|
||
|
|
sta (SAVMSC),y
|
||
|
|
clc
|
||
|
|
rts
|
||
|
|
|
||
|
|
_cas_init:
|
||
|
|
lda #34
|
||
|
|
ldy #81
|
||
|
|
sta (SAVMSC),y
|
||
|
|
|
||
|
|
lda #<start
|
||
|
|
sta DOSVEC
|
||
|
|
lda #>start
|
||
|
|
sta DOSVEC+1
|
||
|
|
rts
|
||
|
|
|
||
|
|
.endif ; .ifdef __ATARIXL__
|