kleiner Raster (von ALIEN/Fastloader) ld hl,&c9fb ;Opcodes fuer EI & RET ld (&38),hl ;Interrupt an &38 abfangen ei ;Interrupt freigeben frame ld b,&f5 db &ed db &78 ;IN A,(C) rra jr nc,frame halt halt halt ds 23 ;nochmal warten,dass die Farbumschaltung im unsichtbaren Bereich ist ;Raster zeichnen begin ld hl,tab ;Adresse der Farbtabelle nach HL ld b,40 ;40 Rasterzeilen nacheinander rastern loop push bc ld a,(hl) ld b,&7f ;Port-Adresse ld c,0 ;Pen 0 ld d,16 ;Border out (c),c ;Farbe 0 anwaehlen out (c),a ;Farbe ausgeben out (c),d ;Border anwaehlen out (c),a ;Farbe ausgeben inc hl ;Farbadresse erhoehen ds 27 ;warten, bis der Elektronenstrahl die Zeile vollgeschriben hat pop bc djnz loop jp frame ;Farbtabelle tab db 84 db 68 db 92 db 88 db 93 db 76 db 69 db 77 db 88 db 70 db 87 db 94 db 64 db 95 db 78 db 71 db 79 db 62 db 66 db 83 db 90 db 89 db 91 db 74 db 67 db 75 db 64 db 64 db 84 db 64 db 64 db 84 db 64 db 84 db 64 db 64 db 84 db 84 db 84 db 84