TITLE '8080 MICROCHESS'
; 8080 MICROCHESS
;
; BY DEFAULT THE PROGRAM USES TERMINAL I/O FOR
; A CROMEMCO TU-ART. BY SETTING ONE OF MITS
; OR IMSAI TO 1, THE TERMINAL I/O ROUTINES ARE
; PATCHED FOR A MITS 2SIO OR IMSAI SIO2.
;
; ADDED THE DOCUMENTED PATCHES FOR DISPLAY OPTIONS.
; ADDED PATCHES TO MAKE IT WORKING UNDER CP/M.
;
; UDO MUNK, OCTOBER 2016
;
; ADDED PATCH TO DISPLAY A SMALL BOARD WITH COORDINATES.
; ADDED DAZZLER OUPUT USING 8080 INSTRUCTIONS ONLY.
; MADE PATCH FOR BOARD WITH COORDINATES RELOCATABLE.
; FIRST SWITCH DAZZLER ON AND THEN DRAW BOARD, SO THAT
; IT ALSO WORKS WITH DAZZLER II.
; IMPROVED CP/M PATCH, NOW ALSO SAVES IOBYTE, SOME BIOS'S
; NEED IT.
;
; UDO MUNK, NOVEMBER 2016
;
; ASSEMBLE WITH INTEL 8080 CROSSASSEMBLER OR DRI MAC UNDER CP/M.
; UNDER CP/M DRI LOAD WILL NOT WORK, USE MLOAD.
OFFSET SET 0
;
; BUILD STANDALONE OR CP/M VERSION
;
CPM SET 0
IF CPM
OFFSET SET 0100H
ENDIF
;
; ADDITIONAL DAZZLER GRAPHICS OUTPUT
;
DAZZLER SET 1
;
; TERMINAL I/O PATCH OPTIONS FOR STANDALONE
;
MITS SET 1
IMSAI SET 0
;
; DISPLAY OPTIONS
;
SMALLD SET 0 ;SMALL BOARD DISPLAY
COORD SET 1 ;DISPLAY SMALL BOARD WITH COORDINATES
MAUTO SET 1 ;AUTO DISPLAY AFTER MICROCHESS MOVES
CAUTO SET 1 ;AUTO DISPLAY AFTER CHALLENGER MOVES
ORG OFFSET
L000: DB 031H,082H,00DH,0CDH,0ACH,009H,021H,06DH
DB 00BH,0CDH,0DAH,001H,021H,093H,00BH,0CDH
L010: DB 0DAH,001H,021H,0B9H,00BH,0CDH,0DAH,001H
DB 0CDH,0ACH,009H,0CDH,0AFH,005H,021H,095H
L020: DB 00AH,022H,07DH,00AH,021H,0CBH,00AH,022H
DB 07FH,00AH,021H,001H,00BH,022H,079H,00AH
L030: DB 021H,037H,00BH,022H,07BH,00AH,0AFH,032H
DB 074H,00AH,032H,078H,00AH,032H,082H,00AH
L040: DB 032H,081H,00AH,032H,075H,00AH,032H,076H
DB 00AH,03EH,010H,032H,077H,00AH,03EH,0EEH
L050: DB 032H,04DH,00AH,032H,04EH,00AH,021H,0F5H
DB 00BH,0CDH,05CH,001H,0CDH,0C9H,009H,0CDH
L060: DB 0BFH,009H,078H,00FH,0D2H,06FH,000H,03EH
DB 001H,032H,082H,00AH,0CDH,0C3H,005H,0CDH
L070: DB 042H,002H,0CDH,0ACH,009H,031H,082H,00DH
DB 021H,0E6H,00DH,022H,059H,00AH,021H,020H
L080: DB 020H,022H,020H,00CH,021H,010H,00CH,0CDH
DB 05CH,001H,0CDH,020H,003H,0CDH,0ACH,009H
L090: DB 021H,00AH,00DH,07EH,0FEH,047H,0CAH,0D7H
DB 000H,0FEH,044H,0CAH,042H,003H,0FEH,045H
L0A0: DB 0CAH,02CH,002H,0FEH,053H,0CAH,0E1H,001H
DB 0FEH,04FH,0CAH,0D1H,003H,0FEH,052H,0CAH
L0B0: DB 020H,002H,0FEH,041H,0CAH,0F1H,002H,0FEH
DB 04EH,0CAH,005H,003H,0CDH,068H,001H,03AH
L0C0: DB 00FH,00DH,0FEH,04DH,0CAH,026H,001H,0FEH
DB 03DH,0CAH,048H,003H,0FEH,00DH,0C2H,02CH
L0D0: DB 001H,0CDH,06DH,008H,000H,000H,000H,0CDH
DB 07DH,004H,03AH,078H,00AH,0B7H,0CAH,0F4H
L0E0: DB 000H,021H,04FH,020H,022H,01EH,00CH,021H
DB 020H,04FH,022H,01BH,00CH,0AFH,032H,078H
L0F0: DB 00AH,0C3H,002H,001H,0CDH,0ADH,001H,0CDH
DB 097H,003H,03AH,04FH,00AH,0FEH,0FFH,0CAH
L100: DB 038H,001H,021H,016H,00CH,0CDH,05CH,001H
DB 03AH,081H,00AH,0FEH,0FFH,0CAH,017H,003H
L110: DB 03AH,074H,00AH,0B7H,0CAH,01DH,001H,021H
DB 0AEH,00CH,0CDH,05CH,001H,0CDH,0ACH,009H
L120: DB 000H,000H,000H,0C3H,075H,000H,0CDH,06DH
DB 008H,0C3H,075H,000H,021H,023H,00CH,0CDH
L130: DB 05CH,001H,0CDH,0ACH,009H,0C3H,075H,000H
DB 021H,030H,00CH,0CDH,0DAH,001H,0CDH,042H
L140: DB 002H,0CDH,0ACH,009H,021H,047H,00CH,0CDH
DB 05CH,001H,0CDH,0C9H,009H,0CDH,0BFH,009H
L150: DB 078H,0FEH,059H,0C2H,0C8H,001H,0CDH,0ACH
DB 009H,0C3H,018H,000H,07EH,0FEH,00DH,0C8H
L160: DB 047H,0CDH,0BFH,009H,023H,0C3H,05CH,001H
DB 02AH,00AH,00DH,0CDH,099H,001H,032H,050H
L170: DB 00AH,02AH,00DH,00DH,0CDH,099H,001H,032H
DB 051H,00AH,032H,04EH,00AH,03AH,050H,00AH
L180: DB 021H,00CH,00AH,00EH,01FH,0BEH,0CAH,091H
DB 001H,02BH,00DH,0F2H,085H,001H,0C3H,02CH
L190: DB 001H,079H,032H,04DH,00AH,032H,04FH,00AH
DB 0C9H,07DH,0E6H,00FH,017H,017H,017H,017H
L1A0: DB 047H,07CH,0E6H,00FH,0B0H,047H,0E6H,088H
DB 0C2H,02CH,001H,078H,0C9H,03AH,050H,00AH
L1B0: DB 047H,0CDH,08FH,009H,02AH,0DDH,009H,022H
DB 01BH,00CH,03AH,051H,00AH,047H,0CDH,08FH
L1C0: DB 009H,02AH,0DDH,009H,022H,01EH,00CH,0C9H
DB 0CDH,0ACH,009H,0CDH,0ACH,009H,021H,05BH
L1D0: DB 00CH,0CDH,05CH,001H,0CDH,0ACH,009H,076H
DB 000H,000H,0CDH,05CH,001H,0CDH,0ACH,009H
L1E0: DB 0C9H,0CDH,0ACH,009H,021H,0DFH,00BH,0CDH
DB 05CH,001H,0CDH,0C9H,009H,0CDH,0BFH,009H
L1F0: DB 078H,0FEH,053H,0CAH,003H,002H,0FEH,042H
DB 0CAH,00AH,002H,0FEH,04EH,0CAH,011H,002H
L200: DB 0C3H,02CH,001H,006H,000H,00EH,0FFH,0C3H
DB 015H,002H,006H,000H,00EH,0FBH,0C3H,015H
L210: DB 002H,006H,008H,00EH,0FBH,078H,032H,01EH
DB 007H,079H,032H,061H,008H,0C3H,072H,000H
L220: DB 0CDH,0ACH,009H,021H,07EH,00CH,0CDH,05CH
DB 001H,0C3H,03EH,001H,0CDH,0C3H,005H,03AH
L230: DB 082H,00AH,0B7H,0CAH,03AH,002H,0AFH,0C3H
DB 03CH,002H,03EH,001H,032H,082H,00AH,0C3H
L240: DB 075H,000H,0CDH,0ACH,009H,0CDH,0ACH,009H
DB 016H,000H,021H,0B6H,00CH,0CDH,0DAH,001H
L250: DB 07AH,0B7H,0CAH,05BH,002H,021H,0D2H,00CH
DB 0CDH,0DAH,001H,006H,021H,0CDH,0BFH,009H
L260: DB 006H,020H,0CDH,0BFH,009H,021H,00CH,00AH
DB 00EH,01FH,07EH,0BAH,0CAH,0B8H,002H,02BH
L270: DB 00DH,0F2H,06AH,002H,07AH,0E6H,00FH,05FH
DB 07AH,0E6H,0F0H,00FH,00FH,00FH,00FH,083H
L280: DB 01FH,0DAH,089H,002H,006H,020H,0C3H,08BH
DB 002H,006H,03AH,0CDH,0BFH,009H,0CDH,0BFH
L290: DB 009H,006H,020H,0CDH,0BFH,009H,014H,07AH
DB 0E6H,00FH,0FEH,008H,0C2H,065H,002H,006H
L2A0: DB 021H,0CDH,0BFH,009H,0CDH,0ACH,009H,07AH
DB 0C6H,008H,057H,0F2H,050H,002H,021H,0EEH
L2B0: DB 00CH,0CDH,0DAH,001H,0CDH,0ACH,009H,0C9H
DB 079H,0FEH,010H,0D2H,0D3H,002H,03AH,082H
L2C0: DB 00AH,0B7H,0C2H,0CCH,002H,03AH,083H,00AH
DB 047H,0C3H,0DDH,002H,03AH,084H,00AH,047H
L2D0: DB 0C3H,0DDH,002H,03AH,082H,00AH,0B7H,0C2H
DB 0C5H,002H,0C3H,0CCH,002H,0CDH,0BFH,009H
L2E0: DB 079H,0E6H,00FH,04FH,006H,000H,021H,085H
DB 00AH,009H,046H,0CDH,0BFH,009H,0C3H,091H
L2F0: DB 002H,03EH,0CDH,032H,0D4H,000H,032H,020H
DB 001H,021H,042H,002H,022H,0D5H,000H,022H
L300: DB 021H,001H,0C3H,072H,000H,021H,000H,000H
DB 022H,0D4H,000H,022H,0D5H,000H,022H,020H
L310: DB 001H,022H,021H,001H,0C3H,072H,000H,021H
DB 096H,00CH,0CDH,05CH,001H,0C3H,03EH,001H
L320: DB 021H,00AH,00DH,00EH,000H,0CDH,0C9H,009H
DB 078H,077H,0FEH,00DH,0CAH,03CH,003H,0FEH
L330: DB 018H,0CAH,072H,000H,0CDH,0BFH,009H,023H
DB 00CH,0C3H,025H,003H,0AFH,0B9H,0CAH,025H
L340: DB 003H,0C9H,0CDH,042H,002H,0C3H,075H,000H
DB 0CDH,068H,001H,021H,00CH,00AH,00EH,00FH
L350: DB 03AH,050H,00AH,0BEH,0CAH,05CH,003H,02BH
DB 00DH,0F2H,053H,003H,036H,0CCH,021H,08CH
L360: DB 00AH,00EH,007H,03AH,010H,00DH,0BEH,0CAH
DB 072H,003H,02BH,00DH,0F2H,066H,003H,0C3H
L370: DB 02CH,001H,021H,0FDH,009H,006H,000H,009H
DB 03EH,0CCH,0BEH,0CAH,083H,003H,02BH,0BEH
L380: DB 0C2H,02CH,001H,03AH,051H,00AH,077H,03AH
DB 011H,00DH,0FEH,04DH,0CAH,072H,000H,0FEH
L390: DB 00DH,0CAH,0D4H,000H,0C3H,02CH,001H,03AH
DB 051H,00AH,0E6H,0F0H,0FEH,070H,0C0H,03AH
L3A0: DB 04FH,00AH,04FH,0E6H,008H,0C8H,021H,0EDH
DB 009H,006H,000H,009H,03EH,0CCH,077H,021H
L3B0: DB 0EEH,009H,01EH,000H,0BEH,0CAH,0BDH,003H
DB 023H,01CH,0C3H,0B4H,003H,03AH,051H,00AH
L3C0: DB 077H,03EH,03DH,032H,020H,00CH,021H,086H
DB 00AH,016H,000H,019H,07EH,032H,021H,00CH
L3D0: DB 0C9H,03AH,00CH,00DH,0FEH,04FH,0C2H,02CH
DB 001H,03AH,00EH,00DH,0FEH,04FH,0C2H,02FH
L3E0: DB 004H,03AH,082H,00AH,0B7H,0CAH,005H,004H
DB 03AH,0FDH,009H,0FEH,074H,0C2H,02CH,001H
L3F0: DB 03EH,072H,032H,0FDH,009H,03EH,073H,032H
DB 000H,00AH,032H,04EH,00AH,03EH,013H,032H
L400: DB 04DH,00AH,0C3H,01FH,004H,03AH,0FDH,009H
DB 0FEH,073H,0C2H,02CH,001H,03EH,075H,032H
L410: DB 0FDH,009H,03EH,074H,032H,000H,00AH,032H
DB 04EH,00AH,03EH,013H,032H,04DH,00AH,03AH
L420: DB 00FH,00DH,0FEH,04DH,0CAH,072H,000H,0FEH
DB 00DH,0CAH,0D4H,000H,0C3H,02CH,001H,03AH
L430: DB 082H,00AH,0B7H,0CAH,053H,004H,03AH,0FDH
DB 009H,0FEH,074H,0C2H,02CH,001H,03EH,076H
L440: DB 032H,0FDH,009H,03EH,075H,032H,0FFH,009H
DB 032H,04EH,00AH,03EH,012H,032H,04DH,00AH
L450: DB 0C3H,06DH,004H,03AH,0FDH,009H,0FEH,073H
DB 0C2H,02CH,001H,03EH,071H,032H,0FDH,009H
L460: DB 03EH,072H,032H,0FFH,009H,032H,04EH,00AH
DB 03EH,012H,032H,04DH,00AH,03AH,00DH,00DH
L470: DB 0FEH,04DH,0CAH,072H,000H,0FEH,00DH,0CAH
DB 0D4H,000H,0C3H,02CH,001H,02AH,075H,00AH
L480: DB 07DH,0FEH,036H,0D2H,06BH,005H,0CDH,0CFH
DB 004H,0F5H,02AH,075H,00AH,023H,022H,075H
L490: DB 00AH,0F1H,0D2H,06BH,005H,0CDH,04FH,005H
DB 0CDH,0B7H,004H,0CDH,06DH,008H,03AH,04DH
L4A0: DB 00AH,0FEH,000H,0C0H,03EH,002H,032H,04DH
DB 00AH,03AH,04EH,00AH,0EEH,003H,032H,04EH
L4B0: DB 00AH,032H,078H,00AH,0C3H,098H,004H,021H
DB 0EDH,009H,03AH,04DH,00AH,032H,04FH,00AH
L4C0: DB 04FH,006H,000H,009H,07EH,032H,050H,00AH
DB 03AH,04EH,00AH,032H,051H,00AH,0C9H,0CDH
L4D0: DB 004H,005H,0CAH,0EBH,004H,0CDH,01CH,005H
DB 021H,077H,00AH,035H,0F2H,0E7H,004H,0AFH
L4E0: DB 026H,000H,02EH,0F0H,022H,075H,00AH,0DAH
DB 0CFH,004H,0C9H,0CDH,029H,005H,02AH,075H
L4F0: DB 00AH,0EBH,02AH,079H,00AH,019H,07EH,032H
DB 04DH,00AH,02AH,07BH,00AH,019H,07EH,032H
L500: DB 04EH,00AH,037H,0C9H,02AH,075H,00AH,0EBH
DB 02AH,07DH,00AH,019H,03AH,04DH,00AH,0BEH
L510: DB 0C2H,01BH,005H,02AH,07FH,00AH,019H,03AH
DB 04EH,00AH,0BEH,0C9H,02AH,075H,00AH,07DH
L520: DB 0C6H,009H,06FH,022H,075H,00AH,0FEH,036H
DB 0C9H,02AH,075H,00AH,0E5H,03AH,077H,00AH
L530: DB 04FH,03EH,0FFH,032H,077H,00AH,0CDH,01CH
DB 005H,021H,077H,00AH,034H,0D2H,04AH,005H
L540: DB 00DH,0FAH,04AH,005H,0CDH,004H,005H,0CAH
DB 036H,005H,0E1H,022H,075H,00AH,0C9H,03AH
L550: DB 01EH,007H,03CH,057H,006H,005H,00EH,0FFH
DB 03EH,0FFH,03DH,0C2H,05AH,005H,00DH,0C2H
L560: DB 058H,005H,005H,0C2H,056H,005H,015H,0C2H
DB 054H,005H,0C9H,03EH,00CH,032H,054H,00AH
L570: DB 032H,050H,00AH,00EH,014H,0CDH,0DFH,005H
DB 03EH,004H,032H,054H,00AH,0CDH,0DDH,005H
L580: DB 03AH,050H,00AH,0FEH,00FH,0DAH,0A3H,005H
DB 021H,0EDH,009H,006H,000H,03AH,04FH,00AH
L590: DB 032H,04DH,00AH,04FH,009H,07EH,032H,050H
DB 00AH,03AH,051H,00AH,032H,04EH,00AH,0CDH
L5A0: DB 06DH,008H,0C9H,03EH,0FFH,032H,04FH,00AH
DB 032H,050H,00AH,032H,051H,00AH,0C9H,021H
L5B0: DB 00DH,00AH,011H,0EDH,009H,00EH,020H,07EH
DB 012H,023H,013H,00DH,0C2H,0B7H,005H,0C9H
L5C0: DB 0CDH,0AFH,005H,021H,0EDH,009H,011H,0FDH
DB 009H,00EH,010H,03EH,077H,096H,047H,0EBH
L5D0: DB 03EH,077H,096H,070H,0EBH,077H,023H,013H
DB 00DH,0C2H,0CBH,005H,0C9H,00EH,010H,021H
L5E0: DB 05DH,00AH,0AFH,077H,023H,00DH,0F2H,0E3H
DB 005H,03EH,010H,032H,04DH,00AH,021H,04DH
L5F0: DB 00AH,035H,0F8H,0CDH,058H,007H,03EH,008H
DB 032H,055H,00AH,03AH,04DH,00AH,0FEH,008H
L600: DB 0F2H,056H,006H,0FEH,006H,0F2H,043H,006H
DB 0FEH,004H,0F2H,035H,006H,0FEH,001H,0CAH
L610: DB 01EH,006H,0F2H,027H,006H,0CDH,098H,006H
DB 0C2H,015H,006H,0C3H,0EEH,005H,0CDH,0A9H
L620: DB 006H,0C2H,01EH,006H,0C3H,0EEH,005H,03EH
DB 004H,032H,055H,00AH,0CDH,0A9H,006H,0C2H
L630: DB 02CH,006H,0C3H,0EEH,005H,0CDH,0A9H,006H
DB 03AH,055H,00AH,0FEH,004H,0C2H,035H,006H
L640: DB 0C3H,0EEH,005H,03EH,010H,032H,055H,00AH
DB 0CDH,098H,006H,03AH,055H,00AH,0FEH,008H
L650: DB 0C2H,048H,006H,0C3H,0EEH,005H,03EH,006H
DB 032H,055H,00AH,0CDH,0DAH,006H,0FAH,06BH
L660: DB 006H,03AH,052H,00AH,0B7H,0CAH,06BH,006H
DB 0CDH,093H,007H,0CDH,058H,007H,021H,055H
L670: DB 00AH,035H,07EH,0FEH,005H,0CAH,05BH,006H
DB 0CDH,0DAH,006H,0DAH,08BH,006H,0FAH,0EEH
L680: DB 005H,03AH,052H,00AH,0B7H,0C2H,0EEH,005H
DB 0CDH,093H,007H,03AH,04EH,00AH,0E6H,0F0H
L690: DB 0FEH,020H,0CAH,078H,006H,0C3H,0EEH,005H
DB 0CDH,0DAH,006H,0FAH,0A1H,006H,0CDH,093H
L6A0: DB 007H,0CDH,058H,007H,021H,055H,00AH,035H
DB 0C9H,0CDH,0DAH,006H,0D2H,0C0H,006H,0F5H
L6B0: DB 0E1H,022H,072H,00AH,03AH,052H,00AH,0B7H
DB 0CAH,0A9H,006H,02AH,072H,00AH,0E5H,0F1H
L6C0: DB 0FAH,0D2H,006H,03AH,052H,00AH,0F5H,0CDH
DB 093H,007H,0F1H,032H,052H,00AH,0B7H,0CAH
L6D0: DB 0A9H,006H,0CDH,058H,007H,021H,055H,00AH
DB 035H,0C9H,03AH,055H,00AH,006H,000H,021H
L6E0: DB 02CH,00AH,04FH,009H,03AH,04EH,00AH,086H
DB 032H,04EH,00AH,0E6H,088H,0C2H,051H,007H
L6F0: DB 03AH,04EH,00AH,00EH,01FH,021H,00CH,00AH
DB 0BEH,0CAH,004H,007H,02BH,00DH,0F2H,0F8H
L700: DB 006H,0C3H,012H,007H,079H,0FEH,010H,0DAH
DB 051H,007H,03EH,001H,032H,052H,00AH,0C3H
L710: DB 016H,007H,0AFH,032H,052H,00AH,03AH,054H
DB 00AH,0B7H,0FAH,04FH,007H,0FEH,000H,0F2H
L720: DB 04FH,007H,0F5H,03AH,052H,00AH,0F5H,03EH
DB 0F9H,032H,054H,00AH,032H,053H,00AH,0CDH
L730: DB 06DH,008H,0CDH,0C3H,005H,0CDH,0E9H,005H
DB 0CDH,070H,007H,0F1H,032H,052H,00AH,0F1H
L740: DB 032H,054H,00AH,03AH,053H,00AH,0B7H,0FAH
DB 04FH,007H,03EH,080H,0B7H,037H,0C9H,0AFH
L750: DB 0C9H,0AFH,032H,052H,00AH,02FH,0B7H,0C9H
DB 021H,0EDH,009H,006H,000H,03AH,04DH,00AH
L760: DB 04FH,009H,07EH,032H,04EH,00AH,0C9H,0CDH
DB 06DH,008H,0CDH,0C3H,005H,0CDH,0E9H,005H
L770: DB 0CDH,0C3H,005H,021H,000H,000H,039H,022H
DB 057H,00AH,02AH,059H,00AH,0F9H,0D1H,021H
L780: DB 055H,00AH,072H,021H,04DH,00AH,073H,0C1H
DB 0E1H,071H,0E1H,070H,078H,032H,04EH,00AH
L790: DB 0C3H,0A0H,008H,03AH,054H,00AH,0B7H,016H
DB 000H,05FH,0FAH,020H,008H,03AH,04DH,00AH
L7A0: DB 0B7H,0CAH,0B2H,007H,047H,03EH,008H,0BBH
DB 0C2H,0B2H,007H,03AH,065H,00AH,0B8H,0CAH
L7B0: DB 0FBH,007H,021H,062H,00AH,019H,034H,03EH
DB 001H,0B8H,0C2H,0BEH,007H,034H,03AH,052H
L7C0: DB 00AH,0B7H,0CAH,0F2H,007H,00EH,00FH,021H
DB 00CH,00AH,03AH,04EH,00AH,0BEH,0CAH,0D7H
L7D0: DB 007H,02BH,00DH,0F2H,0CDH,007H,076H,021H
DB 03DH,00AH,006H,000H,009H,07EH,021H,063H
L7E0: DB 00AH,019H,0BEH,0DAH,0ECH,007H,077H,021H
DB 065H,00AH,019H,071H,021H,064H,00AH,019H
L7F0: DB 086H,077H,07BH,0FEH,004H,0CAH,0FCH,007H
DB 0FAH,034H,008H,0C9H,03AH,067H,00AH,032H
L800: DB 05CH,00AH,0AFH,032H,054H,00AH,0CDH,06DH
DB 008H,0CDH,0C3H,005H,0CDH,0DDH,005H,0CDH
L810: DB 0C3H,005H,03EH,008H,032H,054H,00AH,0CDH
DB 0E9H,005H,0CDH,073H,007H,0C3H,0ACH,008H
L820: DB 016H,0FFH,0FEH,0F9H,0C2H,034H,008H,03AH
DB 0FDH,009H,021H,04EH,00AH,0BEH,0C0H,0AFH
L830: DB 032H,053H,00AH,0C9H,03AH,052H,00AH,0B7H
DB 0C8H,03AH,04EH,00AH,00EH,007H,021H,004H
L840: DB 00AH,0BEH,0CAH,04BH,008H,02BH,00DH,0C2H
DB 041H,008H,0C9H,021H,03DH,00AH,006H,000H
L850: DB 009H,07EH,021H,061H,00AH,019H,0BEH,0DAH
DB 05BH,008H,077H,01BH,07BH,032H,054H,00AH
L860: DB 0FEH,0FFH,0CAH,068H,008H,0CDH,067H,007H
DB 021H,054H,00AH,034H,0C9H,021H,000H,000H
L870: DB 039H,022H,057H,00AH,02AH,059H,00AH,0F9H
DB 03AH,04EH,00AH,047H,00EH,01FH,021H,00CH
L880: DB 00AH,0BEH,0CAH,08AH,008H,02BH,00DH,0F2H
DB 081H,008H,036H,0CCH,0E5H,021H,0EDH,009H
L890: DB 016H,000H,03AH,04DH,00AH,05FH,019H,0E5H
DB 04EH,070H,0C5H,021H,055H,00AH,056H,0D5H
L8A0: DB 021H,000H,000H,039H,022H,059H,00AH,02AH
DB 057H,00AH,0F9H,0C9H,097H,03EH,080H,021H
L8B0: DB 06AH,00AH,086H,023H,086H,023H,086H,021H
DB 060H,00AH,086H,021H,05EH,00AH,086H,021H
L8C0: DB 06FH,00AH,096H,023H,096H,021H,061H,00AH
DB 096H,021H,05FH,00AH,096H,021H,05DH,00AH
L8D0: DB 096H,021H,06EH,00AH,096H,021H,062H,00AH
DB 096H,0D2H,0DDH,008H,097H,01FH,0C6H,040H
L8E0: DB 021H,06BH,00AH,086H,023H,086H,021H,063H
DB 00AH,096H,01FH,0C6H,090H,021H,05CH,00AH
L8F0: DB 086H,086H,086H,086H,021H,060H,00AH,086H
DB 021H,063H,00AH,096H,096H,023H,096H,096H
L900: DB 021H,05FH,00AH,096H,0F5H,03AH,04EH,00AH
DB 0FEH,033H,0CAH,030H,009H,0FEH,034H,0CAH
L910: DB 030H,009H,0FEH,022H,0CAH,030H,009H,0FEH
DB 025H,0CAH,030H,009H,03AH,04DH,00AH,0B7H
L920: DB 0CAH,034H,009H,021H,0EDH,009H,006H,000H
DB 04FH,009H,07EH,0FEH,010H,0F2H,034H,009H
L930: DB 0F1H,0C6H,002H,0F5H,03AH,063H,00AH,021H
DB 03DH,00AH,0BEH,0C2H,043H,009H,0F1H,097H
L940: DB 0C3H,05BH,009H,03AH,062H,00AH,0B7H,0C2H
DB 05AH,009H,03AH,06DH,00AH,0B7H,0C2H,05AH
L950: DB 009H,0F1H,03EH,0FFH,032H,081H,00AH,0C3H
DB 05BH,009H,0F1H,00EH,004H,021H,054H,00AH
L960: DB 071H,021H,050H,00AH,032H,05BH,00AH,0BEH
DB 0DAH,08EH,009H,0CAH,08EH,009H,032H,050H
L970: DB 00AH,03AH,04DH,00AH,032H,04FH,00AH,03AH
DB 04EH,00AH,032H,051H,00AH,0AFH,032H,074H
L980: DB 00AH,03AH,06BH,00AH,021H,03DH,00AH,0BEH
DB 0C2H,08EH,009H,032H,074H,00AH,0C9H,021H
L990: DB 0DDH,009H,047H,01FH,01FH,01FH,01FH,0CDH
DB 0A2H,009H,077H,023H,078H,0CDH,0A2H,009H
L9A0: DB 077H,0C9H,0E6H,00FH,0C6H,030H,0FEH,03AH
DB 0D8H,0C6H,007H,0C9H,006H,00DH,0CDH,0BFH
L9B0: DB 009H,006H,00AH,0CDH,0BFH,009H,006H,07FH
DB 0CDH,0BFH,009H,0CDH,0BFH,009H,0C9H,0E5H
L9C0: DB 0C5H,0D5H,0CDH,0D7H,009H,0D1H,0C1H,0E1H
DB 0C9H,0E5H,0D5H,0C5H,0CDH,0DAH,009H,078H
L9D0: DB 0C1H,0D1H,0E1H,0E6H,07FH,047H,0C9H,0C3H
DB 0E6H,00DH,0C3H,0F1H,00DH,000H,000H,000H
L9E0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,003H,004H,000H
L9F0: DB 007H,002H,005H,001H,006H,010H,017H,011H
DB 016H,012H,015H,014H,013H,073H,074H,070H
LA00: DB 077H,072H,075H,071H,076H,060H,067H,061H
DB 066H,062H,065H,064H,063H,003H,004H,000H
LA10: DB 007H,002H,005H,001H,006H,010H,017H,011H
DB 016H,012H,015H,014H,013H,073H,074H,070H
LA20: DB 077H,072H,075H,071H,076H,060H,067H,061H
DB 066H,062H,065H,064H,063H,0F0H,0FFH,001H
LA30: DB 010H,011H,00FH,0EFH,0F1H,0DFH,0E1H,0EEH
DB 0F2H,012H,00EH,01FH,021H,00BH,00AH,006H
LA40: DB 006H,004H,004H,004H,004H,002H,002H,002H
DB 002H,002H,002H,002H,002H,0EEH,0EEH,000H
LA50: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,0E6H,00DH,000H,000H,000H,000H,000H
LA60: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LA70: DB 000H,000H,000H,000H,000H,000H,000H,010H
DB 000H,001H,00BH,037H,00BH,095H,00AH,0CBH
LA80: DB 00AH,000H,000H,057H,042H,04BH,051H,052H
DB 052H,042H,042H,04EH,04EH,050H,050H,050H
LA90: DB 050H,050H,050H,050H,050H,0EEH,01FH,017H
DB 016H,016H,014H,016H,01BH,016H,0EEH,01FH
LAA0: DB 01EH,016H,014H,016H,011H,010H,01DH,01EH
DB 01DH,016H,01AH,014H,012H,017H,011H,011H
LAB0: DB 01FH,016H,017H,014H,012H,01EH,015H,01BH
DB 012H,01FH,016H,014H,012H,01EH,011H,014H
LAC0: DB 01EH,017H,01FH,016H,014H,01DH,01EH,01DH
DB 017H,012H,01BH,0EEH,043H,055H,052H,033H
LAD0: DB 063H,054H,055H,066H,0EEH,053H,044H,052H
DB 063H,064H,063H,072H,045H,043H,042H,055H
LAE0: DB 056H,066H,075H,052H,062H,052H,044H,055H
DB 052H,031H,075H,053H,036H,052H,074H,044H
LAF0: DB 055H,031H,075H,043H,064H,022H,034H,052H
DB 044H,055H,042H,052H,043H,043H,052H,075H
LB00: DB 052H,00FH,006H,004H,000H,00EH,001H,004H
DB 00EH,007H,00FH,00EH,007H,005H,00FH,005H
LB10: DB 001H,00CH,006H,006H,00FH,00BH,005H,004H
DB 000H,006H,006H,00CH,00FH,007H,006H,004H
LB20: DB 000H,00EH,004H,001H,007H,00FH,007H,006H
DB 006H,004H,006H,00BH,006H,000H,00FH,007H
LB30: DB 004H,006H,00FH,004H,006H,006H,004H,033H
DB 022H,046H,001H,034H,013H,055H,043H,025H
LB40: DB 033H,034H,025H,041H,043H,063H,014H,032H
DB 022H,025H,024H,021H,011H,014H,006H,044H
LB50: DB 052H,035H,034H,022H,025H,041H,006H,023H
DB 052H,014H,003H,034H,022H,025H,044H,014H
LB60: DB 023H,022H,011H,006H,034H,022H,032H,025H
DB 043H,041H,044H,052H,052H,04DH,049H,043H
LB70: DB 052H,04FH,043H,048H,045H,053H,053H,020H
DB 020H,020H,020H,020H,020H,020H,020H,020H
LB80: DB 020H,020H,020H,020H,020H,020H,020H,020H
DB 020H,028H,043H,029H,020H,031H,039H,037H
LB90: DB 037H,02EH,00DH,057H,052H,049H,054H,054H
DB 045H,04EH,020H,042H,059H,03AH,020H,050H
LBA0: DB 02EH,020H,04AH,045H,04EH,04EH,049H,04EH
DB 047H,053H,020H,026H,020H,054H,02EH,020H
LBB0: DB 04FH,027H,042H,052H,049H,045H,04EH,02EH
DB 00DH,02DH,02DH,02DH,02DH,02DH,02DH,02DH
LBC0: DB 02DH,02DH,02DH,02DH,02DH,02DH,02DH,02DH
DB 02DH,02DH,02DH,02DH,02DH,02DH,02DH,02DH
LBD0: DB 02DH,02DH,02DH,02DH,02DH,02DH,02DH,02DH
DB 02DH,02DH,02DH,02DH,02DH,02DH,00DH,057H
LBE0: DB 048H,049H,043H,048H,020H,04DH,04FH,044H
DB 045H,020H,03FH,020H,028H,053H,02CH,042H
LBF0: DB 02CH,04EH,029H,020H,00DH,044H,04FH,020H
DB 059H,04FH,055H,020H,057H,041H,04EH,054H
LC00: DB 020H,057H,048H,049H,054H,045H,020H,03FH
DB 020H,028H,059H,02CH,04EH,029H,020H,00DH
LC10: DB 03AH,020H,020H,020H,020H,00DH,04DH,043H
DB 020H,03AH,020H,000H,000H,02DH,000H,000H
LC20: DB 020H,020H,00DH,049H,04EH,050H,055H,054H
DB 020H,045H,052H,052H,04FH,052H,02EH,00DH
LC30: DB 043H,048H,045H,043H,04BH,04DH,041H,054H
DB 045H,020H,02DH,020H,059H,04FH,055H,020H
LC40: DB 057H,049H,04EH,021H,021H,021H,00DH,050H
DB 04CH,041H,059H,020H,041H,047H,041H,049H
LC50: DB 04EH,020H,03FH,020H,028H,059H,02CH,04EH
DB 029H,020H,00DH,054H,048H,041H,04EH,04BH
LC60: DB 053H,020H,046H,04FH,052H,020H,054H,048H
DB 045H,020H,047H,041H,04DH,045H,02EH,02EH
LC70: DB 02EH,020H,04DH,049H,043H,052H,04FH,043H
DB 048H,045H,053H,053H,02EH,00DH,059H,04FH
LC80: DB 055H,020H,052H,045H,053H,049H,047H,04EH
DB 045H,044H,020H,02DH,020H,049H,020H,057H
LC90: DB 049H,04EH,021H,021H,021H,00DH,020H,020H
DB 043H,048H,045H,043H,04BH,04DH,041H,054H
LCA0: DB 045H,020H,02DH,020H,049H,020H,057H,049H
DB 04EH,021H,021H,021H,021H,00DH,020H,043H
LCB0: DB 048H,045H,043H,04BH,021H,00DH,02BH,02DH
DB 02DH,02DH,02DH,02DH,02DH,020H,04DH,049H
LCC0: DB 043H,052H,04FH,043H,048H,045H,053H,053H
DB 020H,02DH,02DH,02DH,02DH,02DH,02DH,02DH
LCDO: DB 02BH,00DH,021H,020H,020H,020H,020H,020H
DB 020H,020H,020H,020H,020H,020H,020H,020H
LCE0: DB 020H,020H,020H,020H,020H,020H,020H,020H
DB 020H,020H,020H,020H,021H,00DH,02BH,02DH
LCF0: DB 02DH,02DH,02DH,02DH,02DH,020H,043H,048H
DB 041H,04CH,04CH,045H,04EH,047H,045H,052H
LD00: DB 020H,02DH,02DH,02DH,02DH,02DH,02DH,02DH
DB 02BH,00DH,000H,000H,000H,000H,000H,000H
LD10: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD20: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD30: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD40: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD50: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD60: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD70: DB 000H,000H,015H,0D7H,01FH,0D0H,0CFH,009H
DB 000H,020H,007H,080H,00AH,00DH,028H,003H
LD80: DB 08DH,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LD90: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LDA0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LDB0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LDC0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LDD0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LDE0: DB 000H,000H,000H,000H,000H,000H,0DBH,000H
DB 0E6H,080H,0CAH,0E6H,00DH,078H,0D3H,001H
LDF0: DB 0C9H,0DBH,000H,0E6H,040H,0CAH,0F1H,00DH
DB 0DBH,001H,0E6H,07FH,047H,0C9H,000H,000H
LE00: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE10: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE20: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE30: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE40: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE50: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE60: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE70: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE80: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LE90: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LEA0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LEB0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LEC0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LED0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LEE0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LEF0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF00: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF10: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF20: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF30: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF40: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF50: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF60: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF70: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF80: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LF90: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LFA0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LFB0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LFC0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LFD0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LFE0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
LFF0: DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
;
; PATCH TERMINAL I/O FOR MITS 2SIO
;
IF MITS
ORG 0DE6H + OFFSET
TTYO: IN 16
ANI 2
JZ TTYO - OFFSET
MOV A,B
OUT 17
RET
TTYI: IN 16
ANI 1
JZ TTYI - OFFSET
IN 17
ANI 7FH
MOV B,A
RET
ENDIF
;
; PATCH TERMINAL I/O FOR IMSAI SIO2
;
IF IMSAI
ORG 0DE6H + OFFSET
TTYO: IN 3
ANI 1
JZ TTYO - OFFSET
MOV A,B
OUT 2
RET
TTYI: IN 3
ANI 2
JZ TTYI - OFFSET
IN 2
ANI 7FH
MOV B,A
RET
ENDIF
;
; PATCH FOR SMALL BOARD DISPLAY
;
IF SMALLD
ORG 0258H + OFFSET
DB 0,0,0
ENDIF
;
; PATCH FOR AUTO DISPLAY AFTER MICROCHESS MOVES
;
IF MAUTO
ORG 0120H + OFFSET
DB 0CDH,042H,002H
ENDIF
;
; PATCH FOR AUTO DISPLAY AFTER CHALLENGER MOVES
;
IF CAUTO
ORG 00D4H + OFFSET
DB 0CDH,042H,002H
ENDIF
;
; ORIGINAL PATCH TO DISPLAY SMALL BOARD WITH COORDINATES
; DO NOT ACTIVATE TOGETHER WITH DAZZLER OUTPUT, USES SAME MEMORY
; PATCH AREA
; REPLACED WITH A RELOCATABLE PATCH FOR THIS BELOW
;
IF 0
ORG 024AH + OFFSET
DB 021H,040H,00EH,0CDH,078H,00EH,03AH,02FH
DB 00EH,0C6H,030H,047H,0CDH,060H,00EH,000H
DB 000H
ORG 02B1H + OFFSET
DB 0CDH,084H,00EH
ORG 0E40H + OFFSET
DB 020H,020H,020H,020H,020H,030H,020H,020H
DB 031H,020H,020H,032H,020H,020H,033H,020H
DB 020H,034H,020H,020H,035H,020H,020H,036H
DB 020H,020H,037H,00DH,000H,000H,000H,000H
DB 0CDH,0BFH,009H,004H,078H,0E6H,007H,032H
DB 02FH,00EH,006H,020H,0C3H,0BFH,009H,00EH
DB 006H,020H,0CDH,0BFH,009H,0C3H,0BFH,009H
DB 0CDH,0DAH,001H,0CDH,070H,00EH,021H,0B6H
DB 00CH,0C3H,0DAH,001H,0CDH,070H,00EH,0C3H
DB 0DAH,001H
ENDIF
;
; RELOCATABLE PATCH TO DISPLAY SMALL BOARD WITH COORDINATES
;
IF COORD
ORG 024AH + OFFSET ;PATCH IN ROUTINES FOR BOARD COORDINATES
LXI H,CTEXT - OFFSET
CALL DISP1 - OFFSET
LDA DDAT - OFFSET
ADI 30H
MOV B,A
CALL DISP3 - OFFSET
NOP
NOP
ORG 02B1H + OFFSET
CALL DISP4 - OFFSET
ENDIF
;
; MAKE SURE THAT PATCHES BELOW GO INTO THE PATCH AREA, IF
; NOT ORG'ED OTHERWISE
;
ORG 0E00H + OFFSET
;
; THE DAZZLER OUPUT ROUTINES FROM CROMEMCO DAZZLECHESS REWRITTEN WITH
; 8080 INSTRUCTIONS, SO THAT IT WORKS WITH ANY 8080/8085/Z80 SYSTEM
;
IF DAZZLER
ORG 6 + OFFSET ;PATCH THIRD INSTRUCTION TO CALL
CALL DINIT - OFFSET ;THE DAZZLER INITIALISATION
ORG 0059H + OFFSET ;PATCH IN DATA INITALISATION
CALL IDATA - OFFSET
ORG 0242H + OFFSET ;PATCH CALL TO CUSTOM BOARD DISPLAY
CALL DDISP - OFFSET
ORG 05C3H + OFFSET ;PATCH IN SUBROUTINE TO SWITCH PIECE COLOR
CALL SWC - OFFSET
ORG 0E00H + OFFSET ;DAZZLER OUTPUT ROUTINES GO HERE
SWC: PUSH PSW ;SWITCH PIECE COLOR
LDA DAT1 - OFFSET
CMA
STA DAT1 - OFFSET
POP PSW
LXI H,09EDH
RET
DINIT: ;INITIALISE DAZZLER
MVI A,8CH ;DAZZLER ON, VIDEO MEMORY @ 1800H
OUT 0EH
MVI A,30H ;NORMAL COLOR MODE, 64X64
OUT 0FH
CALL DBOARD - OFFSET ;DRAW CHESS BOARD
LXI H,0B6DH
RET
IDATA: ;INITIALISE DATA
MVI A,0FFH ;PIECE COLOR BLACK
STA DAT1 - OFFSET
CALL 015CH
RET
DDISP: ;CUSTOM BOARD DISPLAY
CALL DBOARD - OFFSET ;DRAW CHESS BOAD
CALL DPIECE - OFFSET ;DRAW CHESS PIECES
RET
DBOARD: MVI B,10H ;DRAW CHESS BOARD
LXI D,1801H
LXI H,1800H ;DAZZLER VIDEO MEMORY @ 1800H
DB1: PUSH B
MVI A,03H
MVI B,10H
DB2: PUSH B
MVI B,0 ;DRAW FIELDS
DBP1: MVI M,33H ;WHITE FIELD AS GREEN
MOV C,A
CALL LDIR
INX D
INX H
DBP2: MVI M,99H ;BLACK FIELD AS RED
MOV C,A
CALL LDIR
INX D
INX H
POP B
DCR B
JNZ DB2 - OFFSET
LDA DBP1 + 1 - OFFSET ;FLIP COLORS AND DRAW NEXT ROW OF FIELDS
MOV B,A
LDA DBP2 + 1 - OFFSET
STA DBP1 + 1 - OFFSET
MOV A,B
STA DBP2 + 1 - OFFSET
POP B
DCR B
JNZ DB1 - OFFSET
RET
DPIECE: ;DRAW CHESS PIECES
LXI D,09ECH ;PIECE ADDRESS TABLE - 1
MVI B,02H
DPIE0: PUSH B
LXI H,PTAB - 6 - OFFSET ;PIECE GRAPHICS TABLE - 1 ENTRY
SHLD DAT2 - OFFSET
MVI B,08H
DPIE1: PUSH B
CALL DONEP - OFFSET
POP B
DCR B
JNZ DPIE1 - OFFSET
MVI B,08H
DPIE2: PUSH B
CALL DONEP - OFFSET
LXI B,0FFFAH ;BC = -6
LHLD DAT2 - OFFSET
DAD B
SHLD DAT2 - OFFSET
POP B
DCR B
JNZ DPIE2 - OFFSET
LDA DAT1 - OFFSET
CMA
STA DAT1 - OFFSET
POP B
DCR B
JNZ DPIE0 - OFFSET
RET
DONEP: ;DRAW ONE PIECE
INX D ;DE -> NEXT PIECE IN TABLE
PUSH D
CALL SUB1 - OFFSET
LXI B,6 ;6 BYTES PER PIECE GRAPHICS
LHLD DAT2 - OFFSET
DAD B
SHLD DAT2 - OFFSET
CALL SUB2 - OFFSET
POP D
RET
SUB1: XCHG ;BIT FIDDLING TO GET PIECE GRAPHICS ON BOARD
MOV A,M
ANI 80H
MOV A,M
JZ SUB11 - OFFSET
POP D
LXI B,6
LHLD DAT2 - OFFSET
DAD B
SHLD DAT2 - OFFSET
POP D
RET
SUB11: RRC
MOV B,A
RLC
RLC
RLC
MOV C,A
RLC
MOV E,A
RLC
ANI 4
MOV D,A
MOV A,E
ANI 1
ORA D
MOV D,A
MOV A,B
ANI 2
ORA D
MOV D,A
MVI A,18H
ORA D
MOV D,A
MOV A,E
ANI 80H
MOV E,A
MOV A,C
ANI 0CH
ORA E
PUSH PSW
ORI 16
MOV E,A
POP PSW
RET
SUB2: MOV B,C
SUB22: MOV A,M
ANI 32
CNZ SUB4 - OFFSET
INX D
MOV A,M
ANI 16
CNZ SUB3 - OFFSET
MOV A,M
ANI 8
CNZ SUB4 - OFFSET
INX D
MOV A,M
ANI 4
CNZ SUB3 - OFFSET
MOV A,M
ANI 2
CNZ SUB4 - OFFSET
INX D
MOV A,M
ANI 1
CNZ SUB3 - OFFSET
PUSH H
LXI H,000DH
DAD D
XCHG
POP H
INX H
DCR B
JNZ SUB22 - OFFSET
RET
SUB3: XCHG
MOV A,M
ANI 0F0H
MOV C,A
LDA DAT1 - OFFSET
ANI 00FH
ORA C
MOV M,A
XCHG
RET
SUB4: XCHG
MOV A,M
ANI 00FH
MOV C,A
LDA DAT1 - OFFSET
ANI 0F0H
ORA C
MOV M,A
XCHG
RET
DAT1: DB 0FFH ;PIECE COLOR
DAT2: DW 0 ;PIECE LOCATION
PTAB: DB 0CH,3FH,33H,21H,33H,1EH ;PIECE GRAPHICS
DB 00H,2DH,3FH,2DH,3FH,3FH
DB 2DH,3FH,1EH,1EH,1EH,1EH
DB 2DH,3FH,1EH,1EH,1EH,1EH
DB 0CH,1CH,3FH,1EH,0CH,3FH
DB 0CH,1CH,3FH,1EH,0CH,3FH
DB 08H,1EH,3FH,37H,07H,0FH
DB 08H,1EH,3FH,37H,07H,0FH
DB 00H,0CH,0CH,1EH,3FH,3FH
ENDIF
;
; RELOCATABLE PATCH TO DISPLAY SMALL BOARD WITH COORDINATES
;
IF COORD
DISP1: CALL 01DAH
CALL DISP2 - OFFSET
LXI H,0CB6H
JMP 01DAH
DISP2: MVI B,20H
CALL 09BFH
JMP 09BFH
DISP3: CALL 09BFH
INR B
MOV A,B
ANI 07H
STA DDAT - OFFSET
MVI B,20H
JMP 09BFH
DISP4: CALL DISP2 - OFFSET
JMP 01DAH
DDAT: DB 0
CTEXT: DB ' 0 1 2 3 4 5 6 7',0DH
ENDIF
;
; PATCH TO RUN IT UNDER CP/M
;
IF CPM
ORG 0 + OFFSET ;PATCH FIRST INSTRUCTION TO JUMP
JMP CPMIN ;TO THE CP/M PATCH
ORG 01D7H + OFFSET ;PATCH HLT FOR STANDALONE TO
JMP CPMOUT ;RETURN TO CP/M
ORG 0DE6H + OFFSET ;PATCH TERMINAL OUT FOR CP/M
MOV C,B
CALL CONOUT
RET
ORG 0DF1H + OFFSET ;PATCH TERMINAL IN FOR CP/M
CALL CONIN
ANI 7FH
MOV B,A
RET
ORG 1000H + OFFSET ;CP/M PATCH AREA
CPMIN: LHLD 1 ;BIOS WARM BOOT -> HL
LXI B,6 ;BIOS CONIN -> HL
DAD B
INX H
MOV A,M ;STORE ADR. FOR CONIN
STA CONIN + 1
INX H
MOV A,M
STA CONIN + 2
LHLD 1 ;BIOS WARM BOOT -> HL
LXI B,9 ;BIOS CONOUT -> HL
DAD B
INX H
MOV A,M ;STORE ADR. FOR CONOUT
STA CONOUT + 1
INX H
MOV A,M
STA CONOUT + 2
LDA 3 ;GET THE IOBYTE
LXI SP,STACK
LXI H,0 ;FOR CP/M WE NEED TO SAVE 00-7FH
LXI D,SAVE
LXI B,0080H
CALL LDIR
LXI H,OFFSET ;NOW MOVE THE PROGRAM DOWN TO 0
LXI D,0
LXI B,0FFFH
CALL LDIR
STA 3 ;RESTORE THE IOBYTE, BIOS MIGHT NEED IT
LXI SP,0D82H ;FIRST INSTRUCTION JUST PATCHED ABOVE
CALL 09ACH ;SECOND INSTRUCTION DESTROYED BY IOBYTE
JMP 6 ;GO TO MICROCHESS
CPMOUT: LXI SP,STACK
LXI H,SAVE ;RESTORE 00-7FH FOR CP/M
LXI D,0
LXI B,0080H
CALL LDIR
IF DAZZLER
XRA A ;SWITCH DAZZLER OFF
OUT 0EH
ENDIF
RST 0 ;AND THEN RETURN TO CP/M
CONIN: JMP 0 ;CALL BIOS CONSOLE IN
CONOUT: JMP 0 ;CALL BIOS CONSOLE OUT
SAVE: DS 80H
DS 16
STACK:
ENDIF
;
; SUPPORT ROUTINE TO AVOID USING Z80 LDIR INSTRUCTION
;
IF CPM OR DAZZLER
LDIR: PUSH PSW
LDIR1: MOV A,M
STAX D
INX H
INX D
DCX B
MOV A,B
ORA C
JNZ LDIR1
POP PSW
RET
ENDIF
END