92 lines
1.1 KiB
Plaintext
92 lines
1.1 KiB
Plaintext
#include "memmap.i65"
|
|
|
|
; sysinfo.a65: display sysinfo text block
|
|
.byt "===SHOW_SYSINFO==="
|
|
show_sysinfo:
|
|
php
|
|
sep #$20 : .as
|
|
rep #$10 : .xl
|
|
stz bar_wl
|
|
dec bar_wl
|
|
stz bar_xl
|
|
dec bar_xl
|
|
stz bar_yl
|
|
dec bar_yl
|
|
jsr backup_screen
|
|
lda #^text_mm_sysinfo
|
|
sta window_tbank
|
|
ldx #!text_mm_sysinfo
|
|
stx window_taddr
|
|
lda @sysinfo_win_x
|
|
sta window_x
|
|
inc
|
|
inc
|
|
pha
|
|
stz print_x+1
|
|
lda @sysinfo_win_y
|
|
sta window_y
|
|
inc
|
|
inc
|
|
pha
|
|
stz print_y+1
|
|
lda @sysinfo_win_w
|
|
sta window_w
|
|
lda @sysinfo_win_h
|
|
sta window_h
|
|
jsr draw_window
|
|
stz print_pal
|
|
sysinfo_printloop:
|
|
sep #$20 : .as
|
|
rep #$10 : .xl
|
|
lda #CMD_SYSINFO
|
|
sta @AVR_CMD
|
|
lda #^SYSINFO_BLK
|
|
ldx #!SYSINFO_BLK
|
|
sta print_bank
|
|
stx print_src
|
|
stz print_pal
|
|
pla
|
|
sta print_y
|
|
pla
|
|
sta print_x
|
|
lda #40
|
|
sta print_count
|
|
lda #13
|
|
- pha
|
|
jsr hiprint
|
|
inc print_y
|
|
rep #$20 : .al
|
|
lda print_src
|
|
clc
|
|
adc #40
|
|
sta print_src
|
|
sep #$20 : .as
|
|
pla
|
|
dec
|
|
bne -
|
|
- lda isr_done
|
|
lsr
|
|
bcc -
|
|
jsr printtime
|
|
jsr read_pad
|
|
lda #$80
|
|
and pad1trig
|
|
bne +
|
|
lda #$80
|
|
and pad1trig+1
|
|
bne +
|
|
lda @sysinfo_win_x
|
|
inc
|
|
inc
|
|
pha
|
|
lda @sysinfo_win_y
|
|
inc
|
|
inc
|
|
pha
|
|
jmp sysinfo_printloop
|
|
+ plp
|
|
jsr restore_screen
|
|
lda #$00
|
|
sta @AVR_CMD
|
|
rtl
|