mirror of https://github.com/cc65/cc65.git
66 lines
1.1 KiB
ArmAsm
66 lines
1.1 KiB
ArmAsm
;
|
|
; Karri Kaksonen, 2022-03-25
|
|
;
|
|
; unsigned char get_tv (void)
|
|
;
|
|
.include "atari7800.inc"
|
|
.include "get_tv.inc"
|
|
.export _get_tv
|
|
.export _paldetected
|
|
|
|
.segment "DATA"
|
|
|
|
_paldetected:
|
|
.byte $FF
|
|
|
|
; ---------------------------------------------------------------
|
|
; unsigned char get_tv (void)
|
|
; ---------------------------------------------------------------
|
|
|
|
.segment "CODE"
|
|
|
|
.proc _get_tv: near
|
|
|
|
.segment "CODE"
|
|
|
|
ldx #$00
|
|
lda #$FF
|
|
cmp _paldetected
|
|
bne L8
|
|
L1: lda MSTAT
|
|
and #$80
|
|
bne L1
|
|
L2: lda MSTAT
|
|
and #$80
|
|
beq L2
|
|
L3: lda MSTAT
|
|
and #$80
|
|
bne L3
|
|
lda #$00
|
|
sta M0001
|
|
jmp L5
|
|
L4: sta MWSYNC
|
|
sta MWSYNC
|
|
dec M0001
|
|
L5: lda MSTAT
|
|
and #$80
|
|
beq L4
|
|
lda M0001
|
|
cmp #$78
|
|
bcc L6
|
|
lda #TV::NTSC
|
|
jmp L7
|
|
L6: lda #TV::PAL
|
|
L7: sta _paldetected
|
|
ldx #$00
|
|
L8: lda _paldetected
|
|
rts
|
|
|
|
.segment "BSS"
|
|
|
|
M0001:
|
|
.res 1,$00
|
|
|
|
.endproc
|
|
|