Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-05 21:34:30 +00:00
Code Issues Projects Releases Wiki Activity

mixed: comment the code

Browse Source
This commit is contained in:
Vince Weaver 2023-05-16 15:15:29 -04:00
parent b0973496f8
commit d19cbaeaaf
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
vaporlock/midline_double/sather.s
View File

@ -20,6 +20,10 @@ LORES = $C056
HLINE = $F819 ; LORES HLINE SUBROUTINE
ltw:
;==================================
; draw lo-res green screen
;==================================
sta COL40 ; Single-Res Display
lda LORES
lda #39 ; Fill screen using HLINE
@ -33,13 +37,24 @@ fill:
jsr HLINE
dex
bpl fill
;==================================
; insert text message
;==================================
ldx #21 ; Insert message
msglp:
lda MSG,X
ora #$80
eor #$80
sta $5b1,X ; Message at line 11, position 10
dex
bpl msglp
;==================================
; get exact vblank region
;==================================
poll1:
lda VBLOFF ; Find end of VBL
bmi poll1 ; Fall through at VBL
@ -58,6 +73,10 @@ lp17029:
nop ; ; 2
bmi lp17029 ; no, slew back ; 2/3
;==================================
; maintain window
;==================================
ldx #5 ; yes, end VBL is precisely located ; 2
jsr waitx1k ; now wait 5755 cycles for text window ; 5000
ldy #73 ; ; 2
@ -119,6 +138,6 @@ rts1:
rts ; 6
MSG:
.byte 0 ; switch in the black
.byte $80 ; switch in the black
.byte "*Little Text Window* "