10 ORG 09000H 20 WRTVRM:EQU 04DH 30 LD HL,7100H 40 XOR A 50 LOOPC: 60 PUSH HL 70 LD D,(HL) 80 LD HL,6144 90 LD B,0 100 LD C,A 110 ADD HL,BC 120 PUSH AF 130 LD E,A 140 XOR A 150 LOOPL: 160 PUSH AF 170 LD A,D 180 AND 7 190 BIT 0,E 200 JR Z,BIT0 210 ADD A,8 220 BIT0: 230 CALL WRTVRM 240 INC D 250 LD C,32 260 ADD HL,BC 270 POP AF 280 INC A 290 CP 24 300 JR NZ,LOOPL 310 POP AF 320 POP HL 330 INC HL 340 INC A 350 CP 32 360 JR NZ,LOOPC 370 RET