FPROB.ASM;--------------------------------------; ; FPROB 9.96/12.96 ; ; Farbige Zeichen probieren ; ;--------------------------------------; ; ORG 200H ; PV1 EQU 0F003H ; DEFW 7F7FH DEFM 'FPROB' DEFB 01H LD HL,FEN0 CALL FENST LD A,0CH CALL PV1 DEFB 00H LD HL,0101H LD (0B7A0H),HL CALL PV1 DEFB 23H DEFM '__________FARBEN PR' DEFM 'OBIEREN____________' DEFB 0 LD HL,0E02H LD DE,COD CALL ZIF LD HL,1702H CALL ZIF LD HL,1902H LD DE,COD CALL ZIF XOR A LD (0B7A3H),A LD HL,VOG LD (STR),HL LD HL,0F01H LD D,02H Y3 LD C,08H Y2 CALL FUP LD A,(0B7A3H) ADD 08H LD (0B7A3H),A DEC C JR NZ,Y2 LD HL,1301H DEC D JR NZ,Y3 LD HL,HIG LD (STR),HL LD HL,1A01H XOR A LD (0B7A3H),A LD C,08H Y4 CALL FUP LD A,(0B7A3H) INC A LD (0B7A3H),A DEC C JR NZ,Y4 LD HL,FEN1 CALL FENST CALL PV1 DEFB 23H DEFM 'VOR- DER- GRUND' DEFB 0 LD HL,0900H LD (0B7A0H),HL CALL PV1 DEFB 23H DEFM 'HIN- TER- GRUND' DEFB 0 WDH LD HL,FEN2 CALL FENST CALL PV1 DEFB 23H DEFM 'Farbe V H' DEFW 0D0AH DEFB 0AH DEFM '1 Ohne L| 2 Mit L| ' DEFM '3 Nur F ' DEFW 0D0AH DEFB 0AH DEFM 'N Neu X Ende' DEFB 0 LD HL,0006H LD (0B7A0H),HL CALL PV1 ;Eingabe DEFB 17H ; Farbe LD HL,0006H ADD HL,DE EX DE,HL CALL PV1 ;Hex DEFB 22H LD A,(0B782H) LD L,A LD A,(0B784H) LD E,A CALL PV1 ;Color DEFB 0FH LD (FEN3+7),A LD HL,0408H LD (0B7A0H),HL CALL PV1 ;Eingabe DEFB 04H ; Ausw. LD HL,FEN3 CALL FENST CP '1' JR Z,MAL CP '2' JR Z,MALO CP '3' JR NZ,SCHL LD HL,0A902H ;Nur LD DE,0007H ; Farbe LD A,(FEN3+7) LD C,10H NF2 LD B,19H NF1 LD (HL),A INC HL DJNZ NF1 ADD HL,DE DEC C JR NZ,NF2 JR MAL MALO LD A,0CH CALL PV1 ;Loschen DEFB 00H MAL CALL PV1 ;Malen DEFB 17H SCHL LD HL,FEN2 CALL FENST LD HL,0608H LD (0B7A0H),HL CALL PV1 DEFB 04H CP 'N' JP Z,WDH CP 'X' JR NZ,SCHL LD HL,FEN0 CALL FENST LD A,39H LD (0B7A3H),A LD A,0CH CALL PV1 DEFB 00H LD HL,FEN CALL FENST RET ; ZIF LD (0B7A0H),HL ;Ziffern LD C,08H W1 LD A,(DE) CALL PV1 DEFB 00H LD B,03H W2 CALL PV1 DEFB 2BH DJNZ W2 INC DE DEC C JR NZ,W1 RET ; FUP LD B,04H ;Farben Y1 LD (0B7A0H),HL PUSH HL LD HL,(STR) CALL PV1 DEFB 45H POP HL INC H DJNZ Y1 LD A,H SUB 04H LD H,A LD A,L ADD 04H LD L,A RET ; FENST LD DE,0B79CH ;Fenster LD BC,000AH LDIR RET ; VOG DEFM '[[[[' DEFB 00H HIG DEFM ' ' DEFB 00H STR DEFW 0000H COD DEFM '0123456789ABCDEF' ; FEN DEFW 0100H DEFW 1E28H DEFW 0000H DEFW 3900H DEFW 0F77DH FEN0 DEFW 0000H DEFW 2028H DEFW 0000H DEFW 3800H DEFW 0F77DH FEN1 DEFW 1122H DEFW 0F06H DEFW 0000H DEFW 3800H DEFW 0F77DH FEN2 DEFW 041EH DEFW 090AH DEFW 0000H DEFW 3800H DEFW 0F77DH FEN3 DEFW 0402H DEFW 0819H DEFW 0000H DEFW 3800H DEFW 0F837H * FEN3:  FEN2: FEN1:  FEN0: FEN:ò COD:ð STR:ë HIG:æ VOG:Ý FENST:Å Y1:Ã FUP:¸ W2:± W1 DEFW 3800H DEFW 0F837H * FEN3:  FEN2: FEN1:  FEN0: FEN:ò COD:ð STR:ë HIG:æ VOG:Ý FENST:Å Y1:Ã FUP:¸ W2:± W1