C16 Cartridge Source

!to"c1lcart.crt",plain
*=$8000
 jmp $800b
 jmp $800b
!by $01,$43,$42,$4d     ; module-nr., "CBM"
*=$800b
       sei
       lda $fb
       pha
       ldx #$02       ; cartrige 1 lo, kernal
       sta $FDD0,x
       jsr $FF84      ; Initialize I/O devices
       jsr $FF87      ; RAM Test
       pla
       sta $FB
       jsr $FF8A      ; Restore vectors to initial values
       jsr $FF81      ; Initialize screen editor
       lda #{cartrige ; cartridge jump in
       sta $02FE
       lda #}cartrige
       sta $02FF
       lda #$F1       ; irq -> banking-routines
       sta $0314
       lda #$FC
       sta $0315
       cli
       jmp *
cartrige:
       lda #$ff
       sta $FF0C
       sta $FF0D        ; hide cursor
       ldx #$00
-      lda mytxt,x
       sta $0c50,x
       inx
       cpx #$28
       bne -
       jmp *
mytxt: !scr "      the cartridge is working !        "