Re: Propeller in 19"
Verfasst: So 10. Aug 2014, 13:24
VGA zeig her deine Beinchen
.
Die 8 verwackelten zeichen sind die VGA(RGB) Ausgänge

Die 8 verwackelten zeichen sind die VGA(RGB) Ausgänge
Code: Alles auswählen
loop
mov temp1, #32
mov temp2, ina
mov temp3, #2
M001
mov curx, temp1
cmp temp1, #8 wz
if_z sub temp3, #1
cmp temp1, #16 wz
if_z sub temp3, #1
cmp temp1, #24 wz
if_z sub temp3, #1
add curx, temp3
rcr temp2, #1 wc
if_c call #pri_1
if_nc call #pri_0
djnz temp1, #M001 wz
jmp #loop
twait jmp #twait
pri_0
mov char, #$30
call #M_print
pri_0_ret
ret
pri_1
mov char, #$31
call #M_print
pri_1_ret
ret
' ---------------------------------------------------------------------
' Ausgabe eines Zeichens an der cursor position ohne weiterschaltung
M_print
mov posxy, home
sub posxy, curx
cmp cury, #0 wz ' Überspringen wenn 1.zeile
if_z jmp #M_print_002
mov temp, cury
M_print_001
sub posxy, #50
djnz temp, #M_print_001
M_print_002
wrbyte char, posxy
M_print_ret ret
' ---------------------------------------------------------------------
stat long $7FFC ' Zeiger auf Statusregister
' = h7F7FF7F7 --> start
char long 0
temp long 0
temp1 long $00000001 ' System wartet bis start sequenz kommt
temp2 long $00FFFFFF
temp3 long 0
curx long 0
cury long 2
posxy long 0
home long $1FFF