Overleg sjabloon:Z80highl

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)