I either provide too much code or too little! XD
Anyway, here's the full listing:
Intensity_1F equ $f29d
Intensity_3F equ $f2a1
Intensity_5F equ $f2a5
Moveto_d equ $f312
VIA_t1_cnt_lo equ $d004
Draw_line_d equ $f3df
Wait_recal equ $f192
music1 equ $fd0d
Vec_Misc_Count equ $c823
Delay_3 equ $f56d
Delay_b equ $f57a
Line_test equ 2
org 0
; intro information start
db "g GCE 2019",$80 ; g is a copyright sign
; above MUST start with "g CGE" otherwise it'll just run Minestorm
; $80 is a string terminator and lower case is for special characters.
; Uppercase only.
dw music1 ; Pointer to a music structure
db $f2,$30,$20,-$15 ; height, width, rel y, rel x (from 0,0) of following string
db "OAOA",$80 ; string format set by above line
db 0 ; game header finish
; intro information end
main:
jsr Wait_recal ; Vectrex BIOS recalibration
;lda #$80
;sta VIA_t1_cnt_lo ; Both needed before drawing
; must set relative position from Wait_recal as cannot use that straight off
lda #00 ; set y position
ldb #00 ; set x position
jsr Moveto_d ; move beam to relative position (from this point it's set at 0,0 due to Wait_recal)
jsr Intensity_3F ; set beam intensity to 3F
lda #00
ldb Line_test
incb
stb Line_test
jsr Draw_line_d
ldb #00
;delay:
; incb
; cmpb #255
; bne delay
bra main
end main