home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / statuszeilen.ass < prev    next >
Text File  |  2022-10-26  |  1KB  |  58 lines
  1. ;statuseinblendung im interupt
  2. ;    uwe wiards
  3. ;    2874 lemwerder
  4.  
  5. ; assi-fse-assembler 4.12 (c) d.zabel
  6.  
  7. ;2statuszeilen = max 80 zeichen
  8. ;ab startadresse + dez 51 text!
  9.  
  10. *=$c000   ;programmadresse
  11.  
  12. nzei=2        ;anzahl der zeilen
  13. nlett=40*nzei ;anz. buchst.
  14. irqv=$0314    ;irq-pointer
  15. plot=$fff0    ;plot   cursor pos l/s
  16. norm=$ea31    ;norm irq
  17. scrb=$0400    ;screenbeginn
  18. farb=$d800    ;farbram beginn
  19.  
  20.  
  21. init  sei              ;irq aus
  22.       lda#<start       ;pointer irqv
  23.       sta irqv         ;auf
  24.       lda#>start       ;start setzen
  25.       sta irqv+1       ;lo u. hi-byte
  26.       cli              ;irq ein
  27.       rts
  28. start ldx#$00          ;x initalisieren
  29. loop  lda text,x       ;adr text + x
  30.       sta scrb,x       ;adr scrb + x
  31.       lda#$01          ;farbe
  32.       sta farb,x       ;setzt farbe
  33.       inx              ;x=x+1
  34.       cpx#nlett        ;vergleiche
  35.       beq end          ;0 dann end
  36.       jmp loop
  37. end   sec  ;carry setzen plot liest
  38.       jsr plot
  39.       cpx#nzei
  40.       bpl aus
  41. set   clc  ;carry loe. plot schreibt
  42.       ldx#nzei
  43.       jsr plot
  44. aus   jmp norm
  45. text  .text "STATUSZEILENEINBLENDUNG "
  46.       .text "BY UWE WIARDS   "
  47.       .text "ACHTZIG ZEICHEN TEXT    "
  48.       .text "REST AUFFUELLEN "
  49.  
  50. stop  sei
  51.       lda#<norm        ;irq-pointer
  52.       sta irqv         ;auf normwert
  53.       lda#>norm        ;zuruecksetzen
  54.       sta irqv+1
  55.       cli
  56.       rts
  57.  
  58.