1781 lines
55 KiB
NASM
1781 lines
55 KiB
NASM
;--------------------------------------------------------------------------------------------------------
|
|
;-
|
|
;- Name: sharpmz-test.asm
|
|
;- Created: October 2018
|
|
;- Author(s): Philip Smart
|
|
;- Description: Sharp MZ series tester utility.
|
|
;- This assembly language program is written to aid in testing components
|
|
;- of the SharpMZ Series FPGA emulation.
|
|
;-
|
|
;- Currently it aids in testing:
|
|
;- 1. Tape Read
|
|
;- 2. Tape Write
|
|
;- 3. Memory Test
|
|
;- 4. Graphics RAM Test
|
|
;-
|
|
;- Credits:
|
|
;- Copyright: (c) 2018-2023 Philip Smart <philip.smart@net2net.org>
|
|
;-
|
|
;- History: October 2018 - Merged 2 utilities to create this compilation.
|
|
;-
|
|
;--------------------------------------------------------------------------------------------------------
|
|
;- This source file is free software: you can redistribute it and-or modify
|
|
;- it under the terms of the GNU General Public License as published
|
|
;- by the Free Software Foundation, either version 3 of the License, or
|
|
;- (at your option) any later version.
|
|
;-
|
|
;- This source file is distributed in the hope that it will be useful,
|
|
;- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;- GNU General Public License for more details.
|
|
;-
|
|
;- You should have received a copy of the GNU General Public License
|
|
;- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
;--------------------------------------------------------------------------------------------------------
|
|
|
|
KEYPA: EQU 0E000h
|
|
KEYPB: EQU 0E001h
|
|
KEYPC: EQU 0E002h
|
|
KEYPF: EQU 0E003h
|
|
CSTR: EQU 0E002h
|
|
CSTPT: EQU 0E003h
|
|
CONT0: EQU 0E004h
|
|
CONT1: EQU 0E005h
|
|
CONT2: EQU 0E006h
|
|
CONTF: EQU 0E007h
|
|
SUNDG: EQU 0E008h
|
|
TEMP: EQU 0E008h
|
|
GETL: EQU 00003h
|
|
LETNL: EQU 00006h
|
|
NL: EQU 00009h
|
|
PRNTS: EQU 0000Ch
|
|
PRNT: EQU 00012h
|
|
MSG: EQU 00015h
|
|
MSGX: EQU 00018h
|
|
MONIT: EQU 00086h
|
|
ST1: EQU 00095h
|
|
PRTHL: EQU 003BAh
|
|
PRTHX: EQU 003C3h
|
|
DPCT: EQU 00DDCh
|
|
?BRK: EQU 00D11h
|
|
?RSTR1: EQU 00EE6h
|
|
TPSTART: EQU 010F0h
|
|
MEMSTART: EQU 01200h
|
|
GRAMSTART: EQU 0C000h
|
|
GRAMEND: EQU 0FFFFh
|
|
MSTART: EQU 0BF00h
|
|
GRCTL: EQU 0C8h
|
|
GRREDFLT: EQU 0C9h
|
|
GRGRNFLT: EQU 0CAh
|
|
GRBLUFLT: EQU 0CBh
|
|
GRENABLE: EQU 0CCh
|
|
GRDISABLE: EQU 0CDh
|
|
|
|
|
|
ORG TPSTART
|
|
|
|
SPV:
|
|
IBUFE: ; TAPE BUFFER (128 BYTES)
|
|
;ATRB: DS virtual 1 ; ATTRIBUTE
|
|
ATRB: DB 01h ; Code Type, 01 = Machine Code.
|
|
;NAME: DS virtual 17 ; FILE NAME
|
|
NAME: DB "SHARPMZ TEST V1", 0Dh, 00h ; Title/Name (17 bytes).
|
|
;SIZE: DS virtual 2 ; BYTESIZE
|
|
SIZE: DW MEND - MSTART ; Size of program.
|
|
;DTADR: DS virtual 2 ; DATA ADDRESS
|
|
DTADR: DW MSTART ; Load address of program.
|
|
;EXADR: DS virtual 2 ; EXECUTION ADDRESS
|
|
EXADR: DW MSTART ; Exec address of program.
|
|
COMNT: DS 104 ; COMMENT
|
|
KANAF: DS virtual 1 ; KANA FLAG (01=GRAPHIC MODE)
|
|
DSPXY: DS virtual 2 ; DISPLAY COORDINATES
|
|
MANG: DS virtual 27 ; COLUMN MANAGEMENT
|
|
FLASH: DS virtual 1 ; FLASHING DATA
|
|
FLPST: DS virtual 2 ; FLASHING POSITION
|
|
FLSST: DS virtual 1 ; FLASHING STATUS
|
|
FLSDT: DS virtual 1 ; CURSOR DATA
|
|
STRGF: DS virtual 1 ; STRING FLAG
|
|
DPRNT: DS virtual 1 ; TAB COUNTER
|
|
TMCNT: DS virtual 2 ; TAPE MARK COUNTER
|
|
SUMDT: DS virtual 2 ; CHECK SUM DATA
|
|
CSMDT: DS virtual 2 ; FOR COMPARE SUM DATA
|
|
AMPM: DS virtual 1 ; AMPM DATA
|
|
TIMFG: DS virtual 1 ; TIME FLAG
|
|
SWRK: DS virtual 1 ; KEY SOUND FLAG
|
|
TEMPW: DS virtual 1 ; TEMPO WORK
|
|
ONTYO: DS virtual 1 ; ONTYO WORK
|
|
OCTV: DS virtual 1 ; OCTAVE WORK
|
|
RATIO: DS virtual 2 ; ONPU RATIO
|
|
BUFER: DS virtual 81 ; GET LINE BUFFER
|
|
|
|
|
|
|
|
ORG MSTART
|
|
JP START
|
|
|
|
; Graphics Initialisation. Needs to be in memory before C000-FFFF
|
|
;
|
|
GRAMINIT: OUT (GRCTL),A
|
|
OUT (GRENABLE),A
|
|
GRAM0: LD HL,GRAMSTART
|
|
LD BC,GRAMEND - GRAMSTART
|
|
GRAM1: LD A,000h
|
|
LD (HL),A
|
|
INC HL
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GRAM1
|
|
OUT (GRDISABLE),A
|
|
RET
|
|
|
|
; Graphics Test. Needs to be in memory before C000-FFFF
|
|
;
|
|
GRAMTEST: OUT (GRCTL),A
|
|
OUT (GRENABLE),A
|
|
LD E,080h
|
|
GRAMTEST0: LD HL,GRAMSTART
|
|
LD BC,GRAMEND - GRAMSTART
|
|
GRAMTEST1: LD A,E
|
|
LD (HL),A
|
|
INC HL
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GRAMTEST1
|
|
SRL E
|
|
JR NZ,GRAMTEST0
|
|
JR C,GRAMTEST0
|
|
OUT (GRDISABLE),A
|
|
RET
|
|
|
|
; Graphics Test routine.
|
|
;
|
|
; Graphics mode:- 7/6 = Operator (00=OR,01=AND,10=NAND,11=XOR),
|
|
; 5 = GRAM Output Enable 0 = active.
|
|
; 4 = VRAM Output Enable, 0 = active.
|
|
; 3/2 = Write mode (00=Page 1:Red, 01=Page 2:Green, 10=Page 3:Blue, 11=Indirect),
|
|
; 1/0 = Read mode (00=Page 1:Red, 01=Page2:Green, 10=Page 3:Blue, 11=Not used).
|
|
;
|
|
GRAPHICS: LD A,000h
|
|
CALL GRAMTEST
|
|
LD A,005h
|
|
CALL GRAMTEST
|
|
LD A,00Ah
|
|
CALL GRAMTEST
|
|
LD A,0AAh ; Set Red filter.
|
|
OUT (GRREDFLT),A
|
|
LD A,055h ; Set Green filter.
|
|
OUT (GRGRNFLT),A
|
|
LD A,0FFh ; Set Blue filter.
|
|
OUT (GRBLUFLT),A
|
|
LD A, 00Ch ; Set graphics mode to Indirect Page write.
|
|
CALL GRAMTEST
|
|
LD A, 0CCh ; Set graphics mode to Indirect Page write.
|
|
OUT (GRCTL),A
|
|
JR GETL1
|
|
|
|
; Graphics progress bar indicator. Needs to be in memory before C000-FFFF
|
|
;
|
|
GRPHIND: LD HL,(GRPHPOS) ; Get position of graphics progress line.
|
|
OUT (GRENABLE),A ; Enable graphics memory.
|
|
LD A,0FFh
|
|
LD (HL),A
|
|
OUT (GRDISABLE),A; Disable graphics memory.
|
|
INC HL
|
|
LD (GRPHPOS),HL
|
|
RET
|
|
|
|
|
|
;
|
|
; Start of main program.
|
|
;
|
|
START: CALL LETNL
|
|
LD DE,TITLE
|
|
CALL MSG
|
|
CALL LETNL
|
|
CALL LETNL
|
|
;
|
|
INITGRPH: LD DE,MSG_INITGR
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD A,0FFh ; Set Red filter.
|
|
OUT (GRREDFLT),A
|
|
LD A,000h ; Set Green filter.
|
|
OUT (GRGRNFLT),A
|
|
LD A,000h ; Set Blue filter.
|
|
OUT (GRBLUFLT),A
|
|
LD A,000h
|
|
CALL GRAMINIT
|
|
LD A,005h
|
|
CALL GRAMINIT
|
|
LD A,00Ah
|
|
CALL GRAMINIT
|
|
LD A, 0CCh ; Set graphics mode to Indirect Page write.
|
|
OUT (GRCTL),A
|
|
LD HL,0DE00h
|
|
LD (GRPHPOS),HL
|
|
;
|
|
INITMEM: LD DE,MSG_INITM
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD HL,1200h
|
|
LD BC,MSTART - 1200h
|
|
CLEAR1: LD A,00h
|
|
LD (HL),A
|
|
INC HL
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JP NZ,CLEAR1
|
|
GETL1: CALL NL
|
|
LD A,03EH
|
|
CALL PRNT
|
|
LD DE,BUFER
|
|
CALL GETL
|
|
GETL2: LD A,(DE)
|
|
INC DE
|
|
CP 00DH
|
|
JR Z,GETL1
|
|
CP 'G' ; Graphics Test
|
|
JP Z,GRAPHICS
|
|
CP 'H' ; Command Synopsis
|
|
JP Z,HELP
|
|
CP 'M' ; Memory Test
|
|
JR Z,MEMTEST
|
|
CP 'R' ; Read Test
|
|
JP Z,LOAD
|
|
CP 'T' ; Timer Test
|
|
JP Z,TIMERTST
|
|
CP 'W' ; Write Test
|
|
JP Z,SAVE
|
|
CP 'Q' ; Quit?
|
|
JP Z,ST1
|
|
JR GETL2
|
|
|
|
|
|
MEMTEST: LD B,240 ; Number of loops
|
|
LOOP: LD HL,MEMSTART ; Start of checked memory,
|
|
LD D,0BFh ; End memory check BF00
|
|
LOOP1: LD A,000h
|
|
CP L
|
|
JR NZ,LOOP1b
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,004h ; 4 times.
|
|
LOOP1a: CALL DPCT
|
|
DEC E
|
|
JR NZ,LOOP1a
|
|
LOOP1b: INC HL
|
|
LD A,H
|
|
CP D ; Have we reached end of memory.
|
|
JR Z,LOOP3 ; Yes, exit.
|
|
LD A,(HL) ; Read memory location under test, ie. 0.
|
|
CPL ; Subtract, ie. FF - A, ie FF - 0 = FF.
|
|
LD (HL),A ; Write it back, ie. FF.
|
|
SUB (HL) ; Subtract written memory value from A, ie. should be 0.
|
|
JR NZ,LOOP2 ; Not zero, we have an error.
|
|
LD A,(HL) ; Reread memory location, ie. FF
|
|
CPL ; Subtract FF - FF
|
|
LD (HL),A ; Write 0
|
|
SUB (HL) ; Subtract 0
|
|
JR Z,LOOP1 ; Loop if the same, ie. 0
|
|
LOOP2: LD A,16h
|
|
CALL PRNT ; Print A
|
|
CALL PRTHX ; Print HL as 4 digit hex.
|
|
CALL PRNTS ; Print space.
|
|
XOR A
|
|
LD (HL),A
|
|
LD A,(HL) ; Get into A the failing bits.
|
|
CALL PRTHX ; Print A as 2 digit hex.
|
|
CALL PRNTS ; Print space.
|
|
LD A,0FFh ; Repeat but first load FF into memory
|
|
LD (HL),A
|
|
LD A,(HL)
|
|
CALL PRTHX ; Print A as 2 digit hex.
|
|
NOP
|
|
JR LOOP4
|
|
|
|
LOOP3: CALL PRTHL
|
|
LD DE,OKCHECK
|
|
CALL MSG ; Print check message in DE
|
|
LD A,B ; Print loop count.
|
|
CALL PRTHX
|
|
LD DE,OKMSG
|
|
CALL MSG ; Print ok message in DE
|
|
CALL NL
|
|
CALL GRPHIND
|
|
DEC B
|
|
JR NZ,LOOP
|
|
LD DE,DONEMSG
|
|
CALL MSG ; Print check message in DE
|
|
JP GETL1
|
|
|
|
LOOP4: LD B,09h
|
|
CALL PRNTS ; Print space.
|
|
XOR A ; Zero A
|
|
SCF ; Set Carry
|
|
LOOP5: PUSH AF ; Store A and Flags
|
|
LD (HL),A ; Store 0 to bad location.
|
|
LD A,(HL) ; Read back
|
|
CALL PRTHX ; Print A as 2 digit hex.
|
|
CALL PRNTS ; Print space
|
|
POP AF ; Get back A (ie. 0 + C)
|
|
RLA ; Rotate left A. Bit LSB becomes Carry (ie. 1 first instance), Carry becomes MSB
|
|
DJNZ LOOP5 ; Loop if not zero, ie. print out all bit locations written and read to memory to locate bad bit.
|
|
XOR A ; Zero A, clears flags.
|
|
LD A,80h
|
|
LD B,08h
|
|
LOOP6: PUSH AF ; Repeat above but AND memory location with original A (ie. 80)
|
|
LD C,A ; Basically walk through all the bits to find which one is stuck.
|
|
LD (HL),A
|
|
LD A,(HL)
|
|
AND C
|
|
NOP
|
|
JR Z,LOOP8 ; If zero then print out the bit number
|
|
NOP
|
|
NOP
|
|
LD A,C
|
|
CPL
|
|
LD (HL),A
|
|
LD A,(HL)
|
|
AND C
|
|
JR NZ,LOOP8 ; As above, if the compliment doesnt yield zero, print out the bit number.
|
|
LOOP7: POP AF
|
|
RRCA
|
|
NOP
|
|
DJNZ LOOP6
|
|
JP GETL1
|
|
|
|
LOOP8: CALL LETNL ; New line.
|
|
LD DE,BITMSG ; BIT message
|
|
CALL MSG ; Print message in DE
|
|
LD A,B
|
|
DEC A
|
|
CALL PRTHX ; Print A as 2 digit hex, ie. BIT number.
|
|
CALL LETNL ; New line
|
|
LD DE,BANKMSG ; BANK message
|
|
CALL MSG ; Print message in DE
|
|
LD A,H
|
|
CP 50h ; 'P'
|
|
JR NC,LOOP9 ; Work out bank number, 1, 2 or 3.
|
|
LD A,01h
|
|
JR LOOP11
|
|
|
|
LOOP9: CP 90h
|
|
JR NC,LOOP10
|
|
LD A,02h
|
|
JR LOOP11
|
|
|
|
LOOP10: LD A,03h
|
|
LOOP11: CALL PRTHX ; Print A as 2 digit hex, ie. BANK number.
|
|
JR LOOP7
|
|
|
|
|
|
;
|
|
; LOAD COMMAND
|
|
;
|
|
LOAD: CALL ?RDI
|
|
JP C,?ER
|
|
LOA0: CALL NL
|
|
LD DE,MSG_LOADFROM
|
|
CALL MSG
|
|
LD HL,(DTADR)
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_LOADEXEC
|
|
CALL MSG
|
|
LD HL,(EXADR)
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_LOADSIZE
|
|
CALL MSG
|
|
LD HL,(SIZE)
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_LOADFILE
|
|
CALL MSGX
|
|
LD DE,NAME
|
|
CALL MSGX
|
|
CALL NL
|
|
CALL ?RDD
|
|
JP C,?ER
|
|
LD HL,(EXADR)
|
|
LD A,H
|
|
CP 12h
|
|
JP C,GETL1
|
|
JP (HL)
|
|
|
|
|
|
; SAVE COMMAND
|
|
|
|
SAVE: LD HL,TESTBUF
|
|
LD DE,IBUFE
|
|
LD BC,128
|
|
LDIR
|
|
LD DE,TITLE_SAVE
|
|
CALL MSG
|
|
CALL LETNL
|
|
CALL LETNL
|
|
LD DE,MSG_SAVEFROM
|
|
CALL MSG
|
|
LD HL,(DTADR)
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_SAVEEXEC
|
|
CALL MSG
|
|
LD HL,(EXADR)
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_SAVESIZE
|
|
CALL MSG
|
|
LD HL,(SIZE)
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_SAVEFILE
|
|
CALL MSGX
|
|
LD DE,NAME
|
|
CALL MSGX
|
|
CALL NL
|
|
LD A,01H ; ATTRIBUTE: OBJECT CODE
|
|
LD (ATRB),A
|
|
;
|
|
LD DE,MSG_WHDR
|
|
CALL MSGX
|
|
CALL NL
|
|
CALL QWRI
|
|
JP C,QER ; WRITE ERROR
|
|
;
|
|
LD DE,MSG_WDATA
|
|
CALL MSGX
|
|
CALL NL
|
|
;
|
|
CALL QWRD ; DATA
|
|
JP C,QER
|
|
CALL NL
|
|
LD DE,MSGOK ; OK MESSAGE
|
|
CALL MSGX ; CALL MSGX
|
|
JP GETL1
|
|
|
|
;
|
|
; ERROR (LOADING)
|
|
;
|
|
QER: CP 02h
|
|
JP Z,GETL1
|
|
LD DE,MSG_ERRWRITE
|
|
CALL MSG
|
|
JP GETL1
|
|
;
|
|
; ERROR (LOADING)
|
|
;
|
|
?ER: CP 02h
|
|
JP Z,GETL1
|
|
LD DE,MSG_ERRCHKSUM
|
|
CALL MSG
|
|
JP GETL1
|
|
;
|
|
; READ INFORMATION
|
|
;
|
|
; EXIT ACC = 0 : OK CF=0
|
|
; = 1 : ER CF=1
|
|
; = 2 : BREAK CF=1
|
|
;
|
|
?RDI: DI
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD D,0D2h
|
|
LD E,0CCh
|
|
LD BC,80h
|
|
LD HL,IBUFE
|
|
RD1: CALL MOTOR
|
|
JP C,RTP6
|
|
CALL TMARK
|
|
JP C,RTP6
|
|
; CALL PRTHL
|
|
CALL RTAPE
|
|
POP HL
|
|
POP BC
|
|
POP DE
|
|
;CALL MSTOP
|
|
PUSH AF
|
|
LD A,(TIMFG)
|
|
CP 0F0h
|
|
JR NZ,RD2
|
|
EI
|
|
RD2: POP AF
|
|
RET
|
|
|
|
;
|
|
; READ DATA
|
|
;
|
|
?RDD: DI
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD D,0D2h
|
|
LD E,53h
|
|
LD BC,(SIZE)
|
|
LD HL,(DTADR)
|
|
LD A,B
|
|
OR C
|
|
JP Z,RDD1
|
|
JR RD1
|
|
RDD1: POP HL
|
|
POP BC
|
|
POP DE
|
|
;CALL MSTOP
|
|
PUSH AF
|
|
LD A,(TIMFG)
|
|
CP 0F0h
|
|
JR NZ,RDD2
|
|
EI
|
|
RDD2: POP AF
|
|
RET
|
|
|
|
;
|
|
; READ TAPE
|
|
;
|
|
RTAPE: ;PUSH BC
|
|
;PUSH DE
|
|
;LD DE,MSG_READTAPE
|
|
;CALL MSG
|
|
;CALL NL
|
|
;POP DE
|
|
;POP BC
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD H,2
|
|
RTP1: LD BC,KEYPB
|
|
LD DE,CSTR
|
|
RTP2: CALL EDGE
|
|
JP C,RTP6
|
|
CALL DLY3
|
|
LD A,(DE)
|
|
AND 20h
|
|
JP Z,RTP2
|
|
LD D,H
|
|
LD HL,0
|
|
LD (SUMDT),HL
|
|
POP HL
|
|
POP BC
|
|
PUSH BC
|
|
PUSH HL
|
|
RTP3: CALL RBYTE
|
|
JP C,RTP6
|
|
LD (HL),A
|
|
INC HL
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JP NZ,RTP3
|
|
LD HL,(SUMDT)
|
|
CALL RBYTE ; Checksum MSB
|
|
JP C,RTP6
|
|
LD D,A
|
|
CALL RBYTE ; Checksum LSB
|
|
JP C,RTP6
|
|
LD E,A
|
|
CP L
|
|
JP NZ,RTP5
|
|
LD A,D
|
|
CP H
|
|
JP NZ,RTP5
|
|
RTP0: XOR A
|
|
;
|
|
PUSH HL
|
|
PUSH DE
|
|
PUSH DE
|
|
LD DE,MSG_CHKSUM_MZ1
|
|
CALL MSGX
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_CHKSUM_TP1
|
|
CALL MSGX
|
|
POP DE
|
|
EX DE,HL
|
|
CALL PRTHL
|
|
CALL NL
|
|
POP DE
|
|
POP HL
|
|
;
|
|
RTP4:
|
|
RET2: POP HL
|
|
POP BC
|
|
POP DE
|
|
CALL MSTOP
|
|
PUSH AF
|
|
LD A,(TIMFG)
|
|
CP 0F0h
|
|
JR NZ,RTP8
|
|
EI
|
|
RTP8: POP AF
|
|
RET
|
|
|
|
RTP5: PUSH HL
|
|
PUSH DE
|
|
PUSH DE
|
|
LD DE,MSG_CHKSUM_MZ2
|
|
CALL MSGX
|
|
CALL PRTHL
|
|
CALL NL
|
|
LD DE,MSG_CHKSUM_TP2
|
|
CALL MSGX
|
|
POP DE
|
|
EX DE,HL
|
|
CALL PRTHL
|
|
CALL NL
|
|
POP DE
|
|
POP HL
|
|
;
|
|
LD D,1
|
|
DEC D
|
|
JR Z,RTP7
|
|
LD H,D
|
|
CALL GAPCK
|
|
JP RTP1
|
|
RTP7: LD A,1
|
|
JR RTP9
|
|
RTP6: LD A,2
|
|
RTP9: SCF
|
|
JR RTP4
|
|
|
|
|
|
;
|
|
; EDGE
|
|
; BC = KEYPB
|
|
; DE = CSTR
|
|
; EXIT CF = 0 : EDGE
|
|
; = 1 : BREAK
|
|
;
|
|
EDGE: LD A,0F0h
|
|
LD (KEYPA),A
|
|
NOP
|
|
EDG1: LD A,(BC)
|
|
AND 81h ; SHIFT & BREAK
|
|
JP NZ,EDG0
|
|
SCF
|
|
RET
|
|
EDG0: LD A,(DE)
|
|
AND 20h
|
|
JP NZ,EDG1
|
|
EDG2: LD A,(BC)
|
|
AND 81h
|
|
JP NZ,EDG3
|
|
SCF
|
|
RET
|
|
EDG3: LD A,(DE)
|
|
AND 20h
|
|
JP Z,EDG2
|
|
RET
|
|
|
|
|
|
;
|
|
; 1 BYTE READ
|
|
;
|
|
; EXIT SUMDT=STORE
|
|
; CF = 1 : BREAK
|
|
; = 0 : DATA=ACC
|
|
;
|
|
RBYTE: PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
LD HL,0800h
|
|
LD BC,KEYPB
|
|
LD DE,CSTR
|
|
RBY1: CALL EDGE
|
|
JP C,RBY3
|
|
CALL DLY3
|
|
LD A,(DE)
|
|
AND 20h
|
|
JP Z,RBY2
|
|
PUSH HL
|
|
LD HL,(SUMDT)
|
|
INC HL
|
|
LD (SUMDT),HL
|
|
POP HL
|
|
SCF
|
|
RBY2: LD A,L
|
|
RLA
|
|
LD L,A
|
|
DEC H
|
|
JP NZ,RBY1
|
|
CALL EDGE
|
|
LD A,L
|
|
RBY3: POP HL
|
|
POP DE
|
|
POP BC
|
|
RET
|
|
|
|
;
|
|
; TAPE MARK DETECT
|
|
;
|
|
; E=@L@ : INFORMATION
|
|
; =@S@ : DATA
|
|
; EXIT CF = 0 : OK
|
|
; = 1 : BREAK
|
|
;
|
|
TMARK: CALL GAPCK
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
PUSH BC
|
|
PUSH DE
|
|
LD DE,MSG_TAPEMARK
|
|
CALL MSG
|
|
CALL NL
|
|
POP DE
|
|
POP BC
|
|
LD HL,2828h
|
|
LD A,E
|
|
CP 0CCh
|
|
JP Z,TM0
|
|
LD HL,1414h
|
|
TM0: LD (TMCNT),HL
|
|
LD BC,KEYPB
|
|
LD DE,CSTR
|
|
TM1: LD HL,(TMCNT)
|
|
TM2: CALL EDGE
|
|
JP C,TM4
|
|
CALL DLY3
|
|
LD A,(DE)
|
|
AND 20h
|
|
JP Z,TM1
|
|
DEC H
|
|
JP NZ,TM2
|
|
; CALL PRTHL
|
|
TM3: CALL EDGE
|
|
JP C,TM4
|
|
CALL DLY3
|
|
LD A,(DE)
|
|
AND 20h
|
|
JP NZ,TM1
|
|
DEC L
|
|
JP NZ,TM3
|
|
CALL EDGE
|
|
RET3:
|
|
TM4: POP HL
|
|
POP DE
|
|
POP BC
|
|
RET
|
|
|
|
TM4A: CALL NL
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD A,0C4h ; Move cursor left.
|
|
TM4B: CALL DPCT
|
|
CALL DPCT
|
|
CALL DPCT
|
|
CALL DPCT
|
|
CALL NL
|
|
JP GETL1
|
|
|
|
;
|
|
; MOTOR ON
|
|
;
|
|
; D=@W@ : WRITE
|
|
; =@R@ : READ
|
|
; EXIT CF=0 : OK
|
|
; =1 : BREAK
|
|
MOTOR: PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
PUSH BC
|
|
PUSH DE
|
|
LD DE,MSG_MOTORTG
|
|
CALL MSG
|
|
CALL NL
|
|
POP DE
|
|
POP BC
|
|
LD B,10
|
|
MOT1: LD A,(CSTR)
|
|
AND 10h
|
|
JR Z,MOT4
|
|
MOT2: LD B,0A6h
|
|
MOT3: CALL DLY12
|
|
DJNZ MOT3
|
|
XOR A
|
|
MOT7: JR RET3
|
|
MOT4: LD A,06h
|
|
LD HL,CSTPT
|
|
LD (HL),A
|
|
INC A
|
|
LD (HL),A
|
|
DJNZ MOT1
|
|
CALL NL
|
|
LD A,D
|
|
CP 0D7h
|
|
JR Z,MOT8
|
|
LD DE,MSG1
|
|
JR MOT9
|
|
MOT8: LD DE,MSG3
|
|
CALL MSGX
|
|
LD DE,MSG2
|
|
MOT9: CALL MSGX
|
|
MOT5: LD A,(CSTR)
|
|
AND 10h
|
|
JR NZ,MOT2
|
|
CALL ?BRK
|
|
JR NZ,MOT5
|
|
SCF
|
|
JR MOT7
|
|
|
|
;
|
|
; MOTOR STOP
|
|
;
|
|
MSTOP: PUSH AF
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH DE
|
|
LD DE,MSG_MOTORSTP
|
|
CALL MSG
|
|
CALL NL
|
|
POP DE
|
|
POP BC
|
|
LD B,10
|
|
MST1: LD A,(CSTR)
|
|
AND 10H
|
|
JR Z,MST3
|
|
MST2: LD A,06h
|
|
LD (CSTPT),A
|
|
INC A
|
|
LD (CSTPT),A
|
|
DJNZ MST1
|
|
MST3: JP ?RSTR1
|
|
|
|
;
|
|
; CHECK SUM
|
|
;
|
|
; BC = SIZE
|
|
; HL = DATA ADR
|
|
; EXIT SUMDT=STORE
|
|
; CSMDT=STORE
|
|
;
|
|
CKSUM: PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
LD DE,0
|
|
CKS1: LD A,B
|
|
OR C
|
|
JR NZ,CKS2
|
|
EX DE,HL
|
|
LD (SUMDT),HL
|
|
LD (CSMDT),HL
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
RET
|
|
CKS2: LD A,(HL)
|
|
PUSH BC
|
|
LD B,+8
|
|
CKS3: RLCA
|
|
JR NC,CKS4
|
|
INC DE
|
|
CKS4: DJNZ CKS3
|
|
POP BC
|
|
INC HL
|
|
DEC BC
|
|
JR CKS1
|
|
|
|
|
|
;
|
|
; 107 uS DELAY
|
|
;
|
|
DLY1: LD A,14
|
|
DLY1A: DEC A
|
|
JP NZ,DLY1A
|
|
RET
|
|
|
|
;
|
|
; 240 uS DELAY
|
|
;
|
|
DLY2: LD A,13
|
|
DLY2A: DEC A
|
|
JP NZ,DLY2A
|
|
RET
|
|
|
|
;
|
|
; 240 uS x 3 DELAY
|
|
;
|
|
DLY3: NEG
|
|
NEG
|
|
LD A,42
|
|
JP DLY2A
|
|
|
|
;
|
|
; 12mS DELAY
|
|
DLY12: PUSH BC
|
|
LD B,35
|
|
DLY12A: CALL DLY3
|
|
DJNZ DLY12A
|
|
POP BC
|
|
RET
|
|
|
|
|
|
;
|
|
; GAP * TAPEMARK
|
|
;
|
|
; E = @L@ : LONG GAP
|
|
; = @S@ : SHORT GAP
|
|
;
|
|
GAP: PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
LD A,E
|
|
LD BC,55F0h ;Number of pulses for the Long Gap.
|
|
LD DE,2828h ;40 + 40 LTM
|
|
CP 0CCh
|
|
JP Z,GAP0
|
|
LD BC,2AF8h ;Number of pulses for a Short Gap.
|
|
LD DE,1414h ;20 + 20 LTM
|
|
GAP0: PUSH DE
|
|
LD DE,MSG_WGAPS
|
|
CALL MSG
|
|
;
|
|
GAP1: CALL SHORT ;22000 short GAP pulses.
|
|
LD H,B
|
|
LD L,C
|
|
LD A,000h
|
|
CP L
|
|
JR NZ,GAP1D
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,004h ; 4 times.
|
|
GAP1B: CALL DPCT
|
|
DEC E
|
|
JR NZ,GAP1B
|
|
GAP1D: DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GAP1
|
|
LD H,B
|
|
LD L,C
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD DE,MSG_SPC
|
|
CALL MSG
|
|
CALL LETNL
|
|
POP DE
|
|
;
|
|
LD BC,20000 ; 2 Second delay
|
|
GAP1C: CALL DLY1
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GAP1C
|
|
;
|
|
PUSH DE
|
|
GAP1A: LD DE,MSG_WGAPL
|
|
CALL MSGX
|
|
POP DE
|
|
GAP2: PUSH DE
|
|
CALL LONG ;40 or 20 Long Pulses (LTM or STM)
|
|
LD H,00h
|
|
LD L,D
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,004h ; 4 times.
|
|
GAP2B: CALL DPCT
|
|
DEC E
|
|
JR NZ,GAP2B
|
|
LD BC,1000 ; .1 Second delay
|
|
GAP2D: CALL DLY1
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GAP2D
|
|
POP DE
|
|
DEC D
|
|
JR NZ,GAP2
|
|
LD H,000h
|
|
LD L,D
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
PUSH DE
|
|
LD DE,MSG_SPC
|
|
CALL MSG
|
|
CALL LETNL
|
|
POP DE
|
|
;
|
|
LD BC,20000 ; 2 Second delay
|
|
GAP2C: CALL DLY1
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GAP2C
|
|
;
|
|
GAP2A: PUSH DE
|
|
LD DE,MSG_WGAPS2
|
|
CALL MSGX
|
|
POP DE
|
|
GAP3: PUSH DE
|
|
CALL SHORT ;40 or 20 Short Pulses (LTM or STM)
|
|
LD H,00h
|
|
LD L,E
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,004h ; 4 times.
|
|
GAP3B: CALL DPCT
|
|
DEC E
|
|
JR NZ,GAP3B
|
|
LD BC,1000 ; .1 Second delay
|
|
GAP3D: CALL DLY1
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GAP3D
|
|
POP DE
|
|
DEC E
|
|
JR NZ,GAP3
|
|
LD H,000h
|
|
LD L,E
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
PUSH DE
|
|
LD DE,MSG_SPC
|
|
CALL MSGX
|
|
CALL LETNL
|
|
POP DE
|
|
;
|
|
LD BC,20000 ; 2 Second delay
|
|
GAP3C: CALL DLY1
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,GAP3C
|
|
;
|
|
GAP3A: PUSH DE
|
|
LD DE,MSG_WGAPL2
|
|
CALL MSGX
|
|
CALL LETNL
|
|
POP DE
|
|
CALL LONG ;1 Long Pulse
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
RET
|
|
|
|
;GAP Test - fixed 80 x short, 80 x long to see if hardware is receiving and counting correctly.
|
|
;
|
|
;GAP: PUSH BC
|
|
; PUSH DE
|
|
;GAP0: LD BC,050h ;Number of pulses for the Long Gap.
|
|
;GAP1: CALL SHORT
|
|
;GAP1A: DEC BC
|
|
; LD A,B
|
|
; OR C
|
|
; JR NZ,GAP1
|
|
; LD BC,0050h ;Number of pulses for the Long Gap.
|
|
;GAP2: CALL LONG
|
|
;GAP2A: DEC BC
|
|
; LD A,B
|
|
; OR C
|
|
; JR NZ,GAP2
|
|
;GAP3A: JR GAP3A
|
|
;GAP3: POP DE
|
|
; POP BC
|
|
; RET
|
|
|
|
|
|
;
|
|
; GAP CHECK
|
|
;
|
|
GAPCK: PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
LD DE,MSG_GAPCK
|
|
CALL MSG
|
|
CALL NL
|
|
LD BC,KEYPB
|
|
LD DE,CSTR
|
|
GAPCK1: LD H,100
|
|
GAPCK2: CALL EDGE
|
|
JR C,GAPCK3
|
|
CALL DLY3
|
|
LD A,(DE)
|
|
AND 20h
|
|
JR NZ,GAPCK1
|
|
DEC H
|
|
JR NZ,GAPCK2
|
|
GAPCK3: JP RET3
|
|
|
|
;
|
|
; 1 bit write
|
|
; Short Pulse
|
|
;
|
|
SHORT: PUSH AF
|
|
LD A,03h
|
|
LD (CSTPT),A
|
|
CALL DLY1
|
|
CALL DLY1
|
|
LD A,02h
|
|
LD (CSTPT),A
|
|
CALL DLY1
|
|
CALL DLY1
|
|
POP AF
|
|
RET
|
|
|
|
;
|
|
; 1 bit write
|
|
; Long Pulse
|
|
;
|
|
LONG: PUSH AF
|
|
LD A,03h
|
|
LD (CSTPT),A
|
|
CALL DLY1
|
|
CALL DLY1
|
|
CALL DLY1
|
|
CALL DLY1
|
|
LD A,02h
|
|
LD (CSTPT),A
|
|
CALL DLY1
|
|
CALL DLY1
|
|
CALL DLY1
|
|
CALL DLY2
|
|
POP AF
|
|
RET
|
|
|
|
|
|
; WRITE INFORMATION
|
|
|
|
QWRI: DI
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD D,0D7H ; "W"
|
|
LD E,0CCH ; "L"
|
|
LD HL,IBUFE ; 10F0H
|
|
LD BC,80H ; WRITE BYTE SIZE
|
|
WRI1: CALL CKSUM ; CHECK SUM
|
|
CALL MOTOR ; MOTOR ON
|
|
JR C,WRI3
|
|
LD A,E
|
|
CP 0CCH ; "L" - Long Gap/Tape Mark?
|
|
JR NZ,WRI2
|
|
CALL NL
|
|
PUSH DE
|
|
LD DE,MSGN7 ; WRITING
|
|
RST 18H ; CALL MSGX
|
|
LD DE,NAME ; FILE NAME
|
|
RST 18H ; CALL MSGX
|
|
CALL NL
|
|
POP DE
|
|
WRI2: CALL GAP
|
|
CALL WTAPE
|
|
WRI3: JP RET2
|
|
|
|
|
|
; WRITE DATA
|
|
; EXIT CF=0 : OK
|
|
; =1 : BREAK
|
|
|
|
QWRD: DI
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD D,0D7H ; "W"
|
|
LD E,53H ; "S"
|
|
L047D: LD BC,(SIZE) ; WRITE DATA BYTE SIZE
|
|
LD HL,(DTADR) ; WRITE DATA ADDRESS
|
|
LD A,B
|
|
OR C
|
|
JP Z,RET1
|
|
JR WRI1
|
|
|
|
; TAPE WRITE
|
|
; BC=BYTE SIZE
|
|
; HL=DATA LOW ADDRESS
|
|
; EXIT CF=0 : OK
|
|
; =1 : BREAK
|
|
|
|
WTAPE: PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD D,02H
|
|
LD A,0F0H ; 88H WOULD BE BETTER!!
|
|
LD (KEYPA),A ; E000H
|
|
WTAP1: LD A,(HL)
|
|
CALL WBYTE ; 1 BYTE WRITE
|
|
LD A,(KEYPB) ; E001H
|
|
AND 81H ; SHIFT & BREAK
|
|
JP NZ,WTAP2
|
|
LD A,02H ; BREAK IN CODE
|
|
SCF
|
|
JR WTAP3
|
|
|
|
WTAP2: INC HL
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JP NZ,WTAP1
|
|
LD HL,(SUMDT) ; SUM DATA SET
|
|
LD A,H
|
|
CALL WBYTE ; Send Checksum
|
|
LD A,L
|
|
CALL WBYTE
|
|
WTAP3A: PUSH DE
|
|
LD DE,MSG_WGAPL2
|
|
CALL MSGX
|
|
CALL LETNL
|
|
POP DE
|
|
CALL LONG
|
|
DEC D
|
|
JP NZ,L04C2 ; Another copy to be sent?
|
|
OR A
|
|
JP WTAP3
|
|
|
|
L04C2: PUSH DE
|
|
LD DE,MSG_SPCS
|
|
CALL MSGX
|
|
POP DE
|
|
LD B,0 ; Send 256 short pulses.
|
|
|
|
L04C4: CALL SHORT
|
|
LD H,00h
|
|
LD L,B
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,004h ; 4 times.
|
|
SPCS2: CALL DPCT
|
|
DEC E
|
|
JR NZ,SPCS2
|
|
DEC B
|
|
JP NZ,L04C4
|
|
LD H,00h
|
|
LD L,B
|
|
CALL PRTHL ; Print HL as 4digit hex.
|
|
LD BC,2500 ; .25 Second delay
|
|
SPCS3: CALL DLY1
|
|
DEC BC
|
|
LD A,B
|
|
OR C
|
|
JR NZ,SPCS3
|
|
CALL LETNL
|
|
POP HL ; Retrieve saved location and size
|
|
POP BC
|
|
PUSH BC
|
|
PUSH HL
|
|
JP WTAP1 ; Repeat send.
|
|
|
|
WTAP3:
|
|
RET1: POP HL
|
|
POP BC
|
|
POP DE
|
|
RET
|
|
|
|
DB 2FH
|
|
DB 4EH
|
|
|
|
; VERIFY (FROM $CMT)
|
|
; EXIT ACC=0 : OK CF=0
|
|
; =1 : ER CF=1
|
|
; =2 : BREAK CF=1
|
|
|
|
QVRFY: DI
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD BC,(SIZE)
|
|
LD HL,(DTADR)
|
|
LD D,0D2H ; "R"
|
|
LD E,53H ; "S"
|
|
LD A,B
|
|
OR C
|
|
JP Z,RTP4 ; END
|
|
CALL CKSUM
|
|
CALL MOTOR
|
|
JP C,RTP6 ; BRK
|
|
CALL TMARK ; TAPE MARK DETECT
|
|
JP C,RTP6 ; BRK
|
|
CALL TVRFY
|
|
JP RTP4
|
|
|
|
; DATA VERIFY
|
|
; BC=SIZE
|
|
; HL=DATA LOW ADDRESS
|
|
; CSMDT=CHECK SUM
|
|
; EXIT ACC=0 : OK CF=0
|
|
; =1 : ER =1
|
|
; =2 : BREAK =1
|
|
|
|
TVRFY: PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD H,02H ; COMPARE TWICE
|
|
TVF1: LD BC,KEYPB
|
|
LD DE,CSTR
|
|
TVF2: CALL EDGE
|
|
JP C,RTP6 ; BRK
|
|
CALL DLY3 ; CALL DLY2*3
|
|
LD A,(DE)
|
|
AND 20H
|
|
JP Z,TVF2
|
|
LD D,H
|
|
POP HL
|
|
POP BC
|
|
PUSH BC
|
|
PUSH HL
|
|
; COMPARE TAPE DATA AND STORAGE
|
|
TVF3: CALL RBYTE
|
|
JP C,RTP6 ; BRK
|
|
CP (HL)
|
|
JP NZ,RTP7 ; ERROR, NOT EQUAL
|
|
INC HL ; STORAGE ADDRESS + 1
|
|
DEC BC ; SIZE - 1
|
|
LD A,B
|
|
OR C
|
|
JR NZ,TVF3
|
|
; COMPARE CHECK SUM (1199H/CSMDT) AND TAPE
|
|
LD HL,(CSMDT)
|
|
CALL RBYTE
|
|
CP H
|
|
JP NZ,RTP7 ; ERROR, NOT EQUAL
|
|
CALL RBYTE
|
|
CP L
|
|
JP NZ,RTP7 ; ERROR, NOT EQUAL
|
|
DEC D ; NUMBER OF COMPARES (2) - 1
|
|
JP Z,RTP8 ; OK, 2 COMPARES
|
|
LD H,D ; (-->05C7H), SAVE NUMBER OF COMPARES
|
|
JR TVF1 ; NEXT COMPARE
|
|
|
|
; 1 BYTE WRITE
|
|
|
|
WBYTE: PUSH BC
|
|
LD B,8
|
|
CALL LONG
|
|
WBY1: RLCA
|
|
CALL C,LONG
|
|
CALL NC,SHORT
|
|
DEC B
|
|
JP NZ,WBY1
|
|
POP BC
|
|
RET
|
|
|
|
ARARA: POP HL
|
|
JP ABCD
|
|
|
|
DLY1S: PUSH AF
|
|
PUSH BC
|
|
LD C,10
|
|
L0324: CALL DLY12
|
|
DEC C
|
|
JR NZ,L0324
|
|
POP BC
|
|
POP AF
|
|
RET
|
|
|
|
; Test the 8253 Timer, configure it as per the monitor and display the read back values.
|
|
TIMERTST: CALL NL
|
|
LD DE,MSG_TIMERTST
|
|
CALL MSG
|
|
CALL NL
|
|
LD DE,MSG_TIMERVAL
|
|
CALL MSG
|
|
LD A,01h
|
|
LD DE,8000h
|
|
CALL ?TMST
|
|
NDE: JP NDE
|
|
JP GETL1
|
|
?TMST: DI
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
LD (AMPM),A
|
|
LD A,0F0H
|
|
LD (TIMFG),A
|
|
ABCD: LD HL,0A8C0H
|
|
XOR A
|
|
SBC HL,DE
|
|
PUSH HL
|
|
INC HL
|
|
EX DE,HL
|
|
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),0B0H ; 10110000 Control Counter 2 10, Write 2 bytes 11, 000 Interrupt on Terminal Count, 0 16 bit binary
|
|
LD (HL),074H ; 01110100 Control Counter 1 01, Write 2 bytes 11, 010 Rate Generator, 0 16 bit binary
|
|
LD (HL),030H ; 00110100 Control Counter 1 01, Write 2 bytes 11, 010 interrupt on Terminal Count, 0 16 bit binary
|
|
|
|
LD HL,CONT2 ; Counter 2
|
|
LD (HL),E
|
|
LD (HL),D
|
|
|
|
LD HL,CONT1 ; Counter 1
|
|
LD (HL),00AH
|
|
LD (HL),000H
|
|
|
|
LD HL,CONT0 ; Counter 0
|
|
LD (HL),00CH
|
|
LD (HL),0C0H
|
|
|
|
; LD HL,CONT2 ; Counter 2
|
|
; LD C,(HL)
|
|
; LD A,(HL)
|
|
; CP D
|
|
; JP NZ,L0323
|
|
; LD A,C
|
|
; CP E
|
|
; JP Z,CDEF
|
|
;
|
|
|
|
L0323: PUSH AF
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
;
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),080H
|
|
LD HL,CONT2 ; Counter 2
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CALL PRTHX
|
|
LD A,C
|
|
CALL PRTHX
|
|
;
|
|
CALL PRNTS
|
|
;CALL DLY1S
|
|
;
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),040H
|
|
LD HL,CONT1 ; Counter 1
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CALL PRTHX
|
|
LD A,C
|
|
CALL PRTHX
|
|
;
|
|
CALL PRNTS
|
|
;CALL DLY1S
|
|
;
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),000H
|
|
LD HL,CONT0 ; Counter 0
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CALL PRTHX
|
|
LD A,C
|
|
CALL PRTHX
|
|
;
|
|
;CALL DLY1S
|
|
;
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,0Eh ; 4 times.
|
|
L0330: CALL DPCT
|
|
DEC E
|
|
JR NZ,L0330
|
|
;
|
|
; LD C,20
|
|
;L0324: CALL DLY12
|
|
; DEC C
|
|
; JR NZ,L0324
|
|
;
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
POP AF
|
|
;
|
|
LD HL,CONT2 ; Counter 2
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CP D
|
|
JP NZ,L0323
|
|
LD A,C
|
|
CP E
|
|
JP NZ,L0323
|
|
;
|
|
;
|
|
PUSH AF
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
CALL NL
|
|
CALL NL
|
|
CALL NL
|
|
LD DE,MSG_TIMERVAL2
|
|
CALL MSG
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
POP AF
|
|
|
|
;
|
|
CDEF: POP DE
|
|
LD HL,CONT1
|
|
LD (HL),00CH
|
|
LD (HL),07BH
|
|
INC HL
|
|
|
|
L0336: PUSH AF
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
;
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),080H
|
|
LD HL,CONT2 ; Counter 2
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CALL PRTHX
|
|
LD A,C
|
|
CALL PRTHX
|
|
;
|
|
CALL PRNTS
|
|
CALL DLY1S
|
|
;
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),040H
|
|
LD HL,CONT1 ; Counter 1
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CALL PRTHX
|
|
LD A,C
|
|
CALL PRTHX
|
|
;
|
|
CALL PRNTS
|
|
CALL DLY1S
|
|
;
|
|
LD HL,CONTF ; Control Register
|
|
LD (HL),000H
|
|
LD HL,CONT0 ; Counter 0
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CALL PRTHX
|
|
LD A,C
|
|
CALL PRTHX
|
|
;
|
|
CALL DLY1S
|
|
;
|
|
LD A,0C4h ; Move cursor left.
|
|
LD E,0Eh ; 4 times.
|
|
L0340: CALL DPCT
|
|
DEC E
|
|
JR NZ,L0340
|
|
;
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
POP AF
|
|
|
|
LD HL,CONT2 ; Counter 2
|
|
LD C,(HL)
|
|
LD A,(HL)
|
|
CP D
|
|
JR NZ,L0336
|
|
LD A,C
|
|
CP E
|
|
JR NZ,L0336
|
|
CALL NL
|
|
LD DE,MSG_TIMERVAL3
|
|
CALL MSG
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
EI
|
|
RET
|
|
|
|
?TMRD: PUSH HL
|
|
LD HL,CONTF
|
|
LD (HL),080H
|
|
DEC HL
|
|
DI
|
|
LD E,(HL)
|
|
LD D,(HL)
|
|
EI
|
|
LD A,E
|
|
OR D
|
|
JR Z,?TMR1
|
|
XOR A
|
|
LD HL,0A8C0H
|
|
SBC HL,DE
|
|
JR C,?TMR2
|
|
EX DE,HL
|
|
LD A,(AMPM)
|
|
POP HL
|
|
RET
|
|
|
|
?TMR1: LD DE,0A8C0H
|
|
?TMR1A: LD A,(AMPM)
|
|
XOR 001H
|
|
POP HL
|
|
RET
|
|
|
|
?TMR2: DI
|
|
LD HL,CONT2
|
|
LD A,(HL)
|
|
CPL
|
|
LD E,A
|
|
LD A,(HL)
|
|
CPL
|
|
LD D,A
|
|
EI
|
|
INC DE
|
|
JR ?TMR1A
|
|
|
|
TIMIN: PUSH AF
|
|
PUSH BC
|
|
PUSH DE
|
|
PUSH HL
|
|
LD HL,AMPM
|
|
LD A,(HL)
|
|
XOR 001H
|
|
LD (HL),A
|
|
LD HL,CONTF
|
|
LD (HL),080H
|
|
DEC HL
|
|
PUSH HL
|
|
LD E,(HL)
|
|
LD D,(HL)
|
|
LD HL,0A8C0H
|
|
ADD HL,DE
|
|
DEC HL
|
|
DEC HL
|
|
EX DE,HL
|
|
POP HL
|
|
LD (HL),E
|
|
LD (HL),D
|
|
POP HL
|
|
POP DE
|
|
POP BC
|
|
POP AF
|
|
EI
|
|
RET
|
|
|
|
; Help/Synoposis of commands available.
|
|
;
|
|
HELP: CALL LETNL
|
|
LD DE,MSG_HELP1
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD DE,MSG_HELP2
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD DE,MSG_HELP3
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD DE,MSG_HELP4
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD DE,MSG_HELP5
|
|
CALL MSG
|
|
CALL LETNL
|
|
LD DE,MSG_HELP6
|
|
CALL MSG
|
|
CALL LETNL
|
|
CALL LETNL
|
|
JP GETL1
|
|
|
|
MSG_HELP1: DB "COMMANDS: G TEST GRAPHICS", 0Dh, 00h
|
|
MSG_HELP2: DB " M TEST MEMORY", 0Dh, 00h
|
|
MSG_HELP3: DB " R LOAD TAPE", 0Dh, 00h
|
|
MSG_HELP4: DB " T TIMER TEST", 0Dh, 00h
|
|
MSG_HELP5: DB " W WRITE TEST TAPE", 0Dh, 00h
|
|
MSG_HELP6: DB " Q QUIT TO MONITOR", 0Dh, 00h
|
|
|
|
TITLE: DB "SHARPMZ TESTER (C) P.SMART 2018", 0Dh, 00h
|
|
MSG_INITGR:DB "INIT GRAPHICS", 0Dh
|
|
MSG_INITM: DB "INIT MEMORY", 0Dh
|
|
TITLE_SAVE:DB "WRITE TEST TAPE", 0Dh
|
|
|
|
MSG1: DW 207Fh
|
|
MSG2: DB "PLAY", 0Dh, 00h
|
|
MSG3: DW 207Fh ; PRESS RECORD
|
|
DB "RECORD.", 0Dh, 00h
|
|
MSGN7: DB "WRITING ", 0Dh, 00h
|
|
MSGOK: DB "OK", 0Dh, 00h
|
|
MSG_ERRCHKSUM:
|
|
DB "CHECKSUM ERROR", 0Dh
|
|
MSG_ERRWRITE:
|
|
DB "WRITE ERROR", 0Dh
|
|
|
|
MSG_READTAPE:
|
|
DB "READ TAPE", 0Dh, 00h
|
|
MSG_TAPEMARK:
|
|
DB "TAPEMARK", 0Dh, 00h
|
|
MSG_MOTORTG:
|
|
DB "MOTOR TOGGLE", 0Dh, 00h
|
|
MSG_MOTORSTP:
|
|
DB "MOTOR STOP", 0Dh, 00h
|
|
MSG_TPMARK:
|
|
DB "TAPE MARK START", 0Dh, 00h
|
|
MSG_GAPCK:
|
|
DB "GAP CHECK", 0Dh, 00h
|
|
MSG_LOADFILE:
|
|
DB "LOAD FILE = ",0Dh, 00h
|
|
MSG_LOADFROM:
|
|
DB "LOAD ADDRESS = ", 0Dh, 00h
|
|
MSG_LOADEXEC:
|
|
DB "EXEC ADDRESS = ", 0Dh, 00h
|
|
MSG_LOADSIZE:
|
|
DB "LOAD SIZE = ", 0Dh, 00h
|
|
MSG_SAVEFILE:
|
|
DB "SAVE FILE = ",0Dh, 00h
|
|
MSG_SAVEFROM:
|
|
DB "SAVE ADDRESS = ", 0Dh, 00h
|
|
MSG_SAVEEXEC:
|
|
DB "SAVE EXEC ADDRESS = ", 0Dh, 00h
|
|
MSG_SAVESIZE:
|
|
DB "SAVE SIZE = ", 0Dh, 00h
|
|
MSG_CHKSUM_MZ1:
|
|
DB " MZ CHECKSUM (OK) = ", 0Dh, 00h
|
|
MSG_CHKSUM_TP1:
|
|
DB "TAPE CHECKSUM (OK) = ", 0Dh, 00h
|
|
MSG_CHKSUM_MZ2:
|
|
DB " MZ CHECKSUM (ER) = ", 0Dh, 00h
|
|
MSG_CHKSUM_TP2:
|
|
DB "TAPE CHECKSUM (ER) = ", 0Dh, 00h
|
|
MSG_WHDR: DB "WRITE HEADER...", 0Dh
|
|
MSG_WDATA: DB "WRITE DATA...", 0Dh
|
|
MSGGAP: DB "GAP WRITTEN", 0Dh, 00h
|
|
MSG_WGAPS: DB "WRITE GAP: ", 0Dh, 00h
|
|
MSG_WGAPS2:DB "WRITE TM SHORT: ", 0Dh, 00h
|
|
MSG_WGAPL: DB "WRITE TM LONG: ", 0Dh, 00h
|
|
MSG_WGAPL2:DB "WRITE 1 LONG BIT", 0Dh, 00h
|
|
MSG_SPCS: DB "WRITE 256 SHORT: ", 0Dh, 00h
|
|
MSG_SPC: DB ", WAIT.", 0Dh, 00h
|
|
MSGTAPE DB "HEADER WRITTEN", 0Dh, 00h
|
|
MSG_TIMERTST:
|
|
DB "8253 TIMER TEST", 0Dh, 00h
|
|
MSG_TIMERVAL:
|
|
DB "READ VALUE 1: ", 0Dh, 00h
|
|
MSG_TIMERVAL2:
|
|
DB "READ VALUE 2: ", 0Dh, 00h
|
|
MSG_TIMERVAL3:
|
|
DB "READ DONE.", 0Dh, 00h
|
|
|
|
OKCHECK: DB ", CHECK: ", 0Dh
|
|
OKMSG: DB " OK.", 0Dh
|
|
DONEMSG: DB 11h
|
|
DB "RAM TEST COMPLETE.", 0Dh
|
|
|
|
BITMSG: DB " BIT: ", 0Dh
|
|
BANKMSG: DB " BANK: ", 0Dh
|
|
|
|
GRPHPOS: DB 00h, 00h
|
|
|
|
; Test tape image to save.
|
|
TESTBUF: ; TAPE BUFFER (128 BYTES)
|
|
TATRB: DB 02h ; Code Type, 01 = Machine Code.
|
|
TNAME: DB "TEST TAPE SAVE", 0Dh, 00h, 00h ; Title/Name (17 bytes).
|
|
TSIZE: DW TESTEND - TESTSTART ; Size of program.
|
|
TDTADR: DW TESTSTART ; Load address of program.
|
|
TEXADR: DW TESTSTART ; Exec address of program.
|
|
TCOMNT: DB "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
|
|
|
|
TESTSTART: DB 01h
|
|
DB 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
|
|
DB 16,17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31
|
|
DB 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47
|
|
DB 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63
|
|
DB 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79
|
|
DB 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
|
|
DB 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111
|
|
DB 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
|
|
DB 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143
|
|
DB 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159
|
|
DB 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175
|
|
DB 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191
|
|
DB 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207
|
|
DB 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223
|
|
DB 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239
|
|
DB 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
|
|
TESTEND:
|
|
|
|
MEND:
|