Overleg sjabloon:Z80highl
Laatste reactie: 13 jaar geleden door Willem1
Een test met dit sjabloon: {{Z80highl BeginInvoervak:
ld b, 0
Toetsroutine:
inc b
Toetsvraag:
push bc bcall(_getCSC) pop bc jp z, Toetsvraag
cp skEnter jp z, EindInvoervak
ld hl, Lettertabel ld e, a ld d, 0 add hl, de
ld c, (hl)
ld hl, AppBackUpScreen ld e, d ld d, 0 add hl, de
ld (hl), c inc hl ld (hl), 0
ld hl, 0 ld (CurCol), hl ld hl, AppBackUpScreen push bc bcall(_PutS) pop bc
jp Toetsroutine
EindInvoervak:
ret
Lettertabel:
.db "...........WRMH." .db "...VQLG...ZUPKFC" .db ". YTOJEB..XSNIDA"
}} ... het werkt niet... --Willem1 7 jun 2011 19:49 (CEST)