LINE ASM; -------------------------------- ; Erzeugen einer senkrechten Linie ; -------------------------------- ; ORG 4000H ; DEFW 7F7FH DEFM 'LINE' DEFB 1 ; ; Schleife mit Schleifenzaehler B ; ; Startwert entspricht 1. Zeile ; LD B,0 ; ; 21. Spalte ist fest ; LD L,20 ; LOOP: ; Zeile = B und Spalte = 20 ; als Cursorpos. uebergeben ; LD H,B LD (0B7A0H),HL ; ; Zeichen "H" ausgeben ; LD A,'H' ; Zeichencode CALL 0F003H DEFB 0 ; UP Nr. 0 ; ; Schleifensteuerung ; (Zeile 31 ist letzte Zeile !) ; INC B LD A,B CP 32 JR C,LOOP ; ; Zurueck zum CAOS-Menu ; RET ; END  Ā@Āt(Āp6ĀnTop of Text letzte Zeile !) ; INC B LD A,B CP 32 JR C,LOOP ; ; Zurueck zum CAOS-Menu ; RET ; END  Ā@Āt(Āp6ĀnTop of Tex