;:sys36864 ;.opt oo *= $c000 cond =166 revs =167 breit =168 tmp =181 chr =169 chr2 =170 sperr =171 lda #neu sta 806 sty 807 lda #0 sta cond sta breit sta revs sta sperr lda #hi jmp $ab1e hi .byt 13 .byte "\x93condensed print mps 801 activated" .byt 13 .byte "\x11(c) nh-070590-arr ein nss-programm" .byt 13 brk neu pha lda $9a cmp #4 beq flash jmp $f1cd flash pla sta chr sta chr2 txa pha tya pha lda chr cmp #96 bcc kl96 cmp #"\x92" bne out lda #0 sta revs lda #"\x92" out jsr $eddd rueck pla tay pla tax lda chr2 clc rts kl96 cmp #32 bcs gr32 cmp #1 bne no1 .byt $2c cons lda #0 sta cond beq rueck no1 cmp #2 beq cons cmp #14 bne no3 .byt $2c bres lda #0 sta breit beq rueck no3 cmp #15 beq bres cmp #18 bne no18 sta revs beq rueck no18 cmp #3 bne nof .byt $2c setg lda #0 sta sperr beq rueck nof cmp #4 beq setg jmp out gr32 ldx cond beq out sec sbc #32 sta tmp asl adc tmp tax lda #8 jsr $eddd lda font,x jsr pout lda font+1,x jsr pout lda font+2,x jsr pout lda #0 jsr pout lda sperr beq zusam lda #0 jsr pout zusam lda #15 jsr $eddd jmp rueck pout sta chr lda breit beq frei jsr frei frei lda revs beq bump lda chr eor #127 .byt $2c bump lda chr ora #128 jmp $eddd font =* .byt %0000000 ; .byt %0000000 .byt %0000000 ; .byt %0000000 ; ! .byt %1011111 .byt %0000000 ; .byt %0000111 ; "" .byt %0000000 .byt %0000111 ; .byt %1111111 ; # .byt %0010100 .byt %1111111 ; .byt %0101110 ; $ .byt %1101011 .byt %0111010 ; .byt %1100001 ; % .byt %0011100 .byt %1000011 ; .byt %0101110 ; & .byt %1011001 .byt %1110110 ; .byt %0000000 ; ' .byt %0000111 .byt %0000000 ; .byt %0111110 ; ( .byt %1000001 .byt %0000000 ; .byt %1000001 ; ) .byt %0111110 .byt %0000000 ; .byt %0101010 ; * .byt %0011100 .byt %0101010 ; .byt %0001000 ; + .byt %0111110 .byt %0001000 ; .byt %1000000 ; , .byt %0110000 .byt %0000000 ; .byt %0001000 ; - .byt %0001000 .byt %0001000 ; .byt %0000000 ; . .byt %1000000 .byt %0000000 ; .byt %1100000 ; / .byt %0011100 .byt %0000011 ; .byt %1111111 ; 0 .byt %1000001 .byt %1111111 ; .byt %1000010 ; 1 .byt %1111111 .byt %1000000 ; .byt %1110001 ; 2 .byt %1001001 .byt %1000110 ; .byt %1000001 ; 3 .byt %1001001 .byt %0110110 ; .byt %0001111 ; 4 .byt %0001000 .byt %1111110 ; .byt %1001111 ; 5 .byt %1001001 .byt %0110001 ; .byt %0111110 ; 6 .byt %1001001 .byt %0110001 ; .byt %0000001 ; 7 .byt %1111001 .byt %0000111 ; .byt %0110110 ; 8 .byt %1001001 .byt %0110110 ; .byt %1000110 ; 9 .byt %1001001 .byt %0111110 ; .byt %0000000 ; .byt %0010100 .byt %0000000 ; .byt %1000000 ; ; .byt %0110010 .byt %0000000 ; .byt %0001000 ; < .byt %0010100 .byt %0100010 ; .byt %0010100 ; = .byt %0010100 .byt %0010100 ; .byt %0100010 ; > .byt %0010100 .byt %0001000 ; .byt %0000001 ; fragezeichen .byt %1011001 .byt %0000110 ; .byt %0111110 ; @ .byt %1001011 .byt %0101110 ; .byt %1111110 ; a .byt %0001001 .byt %1111110 ; .byt %1111111 ; b .byt %1001001 .byt %0110110 ; .byt %0111110 ; c .byt %1000001 .byt %1000001 ; .byt %1111111 ; d .byt %1000001 .byt %0111110 ; .byt %1111111 ; e .byt %1001001 .byt %1000001 ; .byt %1111111 ; f .byt %0001001 .byt %0000001 ; .byt %0111110 ; g .byt %1000001 .byt %1111001 ; .byt %1111111 ; h .byt %0001000 .byt %1111111 ; .byt %0000000 ; i .byt %1111111 .byt %0000000 ; .byt %0100000 ; j .byt %1000000 .byt %0111111 ; .byt %1111111 ; k .byt %0001000 .byt %1110111 ; .byt %1111111 ; l .byt %1000000 .byt %1000000 ; .byt %1111111 ; m .byt %0000010 .byt %1111111 ; .byt %1111111 ; n .byt %0000001 .byt %1111110 ; .byt %0111110 ; o .byt %1000001 .byt %0111110 ; .byt %1111111 ; p .byt %0001001 .byt %0000110 ; .byt %0111110 ; q .byt %1100001 .byt %1111110 ; .byt %1111111 ; r .byt %0011001 .byt %1100110 ; .byt %1000110 ; s .byt %1001001 .byt %0110001 ; .byt %0000001 ; t .byt %1111111 .byt %0000001 ; .byt %1111111 ; u .byt %1000000 .byt %1111111 ; .byt %0011111 ; v .byt %1100000 .byt %0011111 ; .byt %1111111 ; w .byt %0100000 .byt %1111111 ; .byt %1110111 ; x .byt %0001000 .byt %1110111 ; .byt %0000111 ; y .byt %1111000 .byt %0000111 ; .byt %1110001 ; z .byt %1001001 .byt %1000111 ; .byt %1111111 ; [ .byt %1000001 .byt %1000001 ; .byt %1111110 ; \ .byt %1001001 .byt %1101010 ; .byt %1000001 ; ] .byt %1000001 .byt %1111111 ; .byt %0000010 ; ^ .byt %1111111 .byt %0000010 ; .byt %0001000 ; _ .byt %0011100 .byt %0101010 ;