FARBEN ASM;--------------------------------------; ; FARBEN 9.96 ; ; Proben aller Farben (V,H) ; ;--------------------------------------; ; ORG 0BD00H ; PV1 EQU 0F003H ; DEFW 7F7FH DEFM 'FARBEN' DEFB 01H LD A,(0B7A3H) LD (FARB),A LD A,38H LD (0B7A3H),A LD A,0CH CALL PV1 DEFB 00H LD HL,0202H LD (0B7A0H),HL CALL PV1 DEFB 23H DEFM 'VORDERGRUND' DEFB 0 LD HL,0405H LD DE,COD CALL ZIF LD HL,1105H CALL ZIF LD HL,1402H LD (0B7A0H),HL CALL PV1 DEFB 23H DEFM 'HINTERGRUND' DEFB 0 LD HL,1605H LD DE,COD CALL ZIF XOR A LD (0B7A3H),A LD HL,VOG LD (STR),HL LD HL,0504H LD D,02H Y3 LD C,08H Y2 CALL UP LD A,(0B7A3H) ADD 08H LD (0B7A3H),A DEC C JR NZ,Y2 LD HL,0B04H DEC D JR NZ,Y3 LD HL,HIG LD (STR),HL LD HL,1704H XOR A LD (0B7A3H),A LD C,08H Y4 CALL UP LD A,(0B7A3H) INC A LD (0B7A3H),A DEC C JR NZ,Y4 LD A,(FARB) LD (0B7A3H),A CALL PV1 DEFB 2CH RET ; ZIF LD (0B7A0H),HL 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 ; UP LD B,06H Y1 LD (0B7A0H),HL PUSH HL LD HL,(STR) CALL PV1 DEFB 45H POP HL INC H DJNZ Y1 LD A,H SUB 06H LD H,A LD A,L ADD 04H LD L,A RET ; VOG DEFM '[[[[' DEFB 00H HIG DEFM ' ' DEFB 00H STR DEFW 0000H FARB DEFB 00H COD DEFM '0123456789ABCDEF'  À@Àt(Àp6ÀnTop of Text: End of Text: Start of MC: ASM-Offset : õÛˆö$ÓˆñÉõÛˆæÛÓˆñÉÍMÀ~#ÍDÀH COD DEFM '0123456789ABCDEF'  À@Àt(Àp6ÀnTop of Text: End of Text: Start of MC: ASM-Offset : õÛˆö$ÓˆñÉõÛˆæÛÓˆñÉÍMÀ~#ÍDÀ