File INTEST.13

Directory of image this file is from
This file as a plain text file
FIELD 1
START=200

*START

PTEST1,
NOPUNCH
FIELD 0
*0
ENPUNCH


/TEST 1
/******

/MOV,MVI,STA,LDA,STAX,LXI,SHLD,LHLD,XCHG
/PUSH,POP,XTHL,SPHL
/INR,INX,DCR,DCX,CMA




ITEST1,	MVI A 373
	INR A
	MOV B A
	INR B
	MOV C B
	INR C
	MOV D C
	INR D
	MOV E D
	INR E
	MOV H E
	INR H
	MOV L H
	INR L
	MOV M L			/2>402
	INR L

	MVI M 123		/123>403
	LDA 402
	STA 404			/2>404
	MVI C 5
	MVI B 1
	MVI E 6
	MVI D 1
	MVI A 321
	STAX B			/321>405
	DCR A
	STAX D			/320>406
	LXI B 123456
	LXI D 52525
	LXI H 37373
	SHLD 407		/37373>(407)(410)
	XCHG
	SHLD 411		/52525>(411)(412)
	MOV H C
	MOV L B
	SHLD 413		/247>413,056>414
	XCHG
	SHLD 415		/37373>(415)(416)
	LHLD 403
	SHLD 417		/2>417,123>420
	MVI B 27
	MVI C 0
	DCR H
	STC

LOOP1,	INR C
	INR B
	JNZ LOOP1

	MVI L 21
	MOV M C			/-27>421
	LXI SP 402
	PUSH PSW		/320>401,127>400
	CMC
	DCR A
	PUSH PSW		/317>377,206>376
	CMA

	MOV L A
	DCR L
	MOV H L
	DCR H
	MOV E H
	DCR E
	MOV D E
	DCR D
	MOV C D
	DCR C
	MOV B C
	DCR B

	PUSH B			/52>375,53>374
	PUSH D			/54>373,55>372
	PUSH H			/56>371,57>370

	POP PSW
	POP B
	POP D
	POP H

	DCX SP
	DCX SP
	DCX SP
	DCX SP
	DCX SP
	DCX SP
	DCX SP
	DCX SP

	NOP

	PUSH H			/317>367,206>366
	PUSH D			/ 52>365, 53>364
	PUSH B			/ 54>363, 55>362
	PUSH PSW		/ 56>361,  7>360
	PUSH PSW
	DAD SP
	XTHL			/320>357,164>356
	MVI L 376
	MVI H 377
	DAD SP
	LXI SP 0
	SPHL
	INX SP
	INX SP
	PUSH H			/0>355,354>354
	MVI H 20
	MVI A 0

LOOP2,	INX B
	INX D
	DCX H
	CMP L
	JNZ LOOP2

	CMP H
	JNZ LOOP2

	PUSH B			/75>353,31>352
	PUSH D			/73>351,27>350
	LXI H 175703

LOOP3,	DCX B
	DCX D
	INX H
	CMP L
	JNZ LOOP3

	CMP H
	JNZ LOOP3

	PUSH B			/70>347,334>346
	PUSH D			/66>345,332>344
	HLT
IEND1,
FIELD 1

*START+IEND1-ITEST1

PTEST2,

NOPUNCH
FIELD 0
*0
ENPUNCH

/TEST 2
/******

/ALL JUMP-INSTRUCTIONS,PCHL


ITEST2,	LXI SP 601
	MVI H 0
	MVI L 0
	PUSH H
	POP PSW
	JMP OVER1

	STA 601			/166>601
OVER1,	STA 602			/0>602
	JNC OVER2

	STA 603			/166>603
OVER2,	STA 604			/0>604
	JNZ OVER3

	STA 605			/166>605
OVER3,	STA 606			/0>606
	JP OVER4

	STA 607			/166>607
OVER4,	STA 610			/0>610
	JPO OVER5

	STA 611			/166>611
OVER5,	STA 612			/0>612
	JC OVER6

	STA 613			/0>613
OVER6,	STA 614			/0>614
	JZ OVER7

	STA 615			/0>615
OVER7,	STA 616			/0>616
	JM OVER10

	STA 617			/0>617
OVER10,	STA 620			/0>620
	JPE OVER11

	STA 621			/0>621
OVER11,	STA 622			/0>622
	CMA
	MOV H A
	MOV L A
	PUSH H
	POP PSW
	JMP OVER12






	STA 623			/166>623
OVER12,	STA 624			/377>624
	JNC OVER13

	STA 625			/377>625
OVER13,	STA 626			/377>626
	JNZ OVER14

	STA 627			/377>627
OVER14,	STA 630			/377>630
	JP OVER15

	STA 631			/377>631
OVER15,	STA 632			/377>632
	JPO OVER16

	STA 633			/377>633
OVER16,	STA 634			/377>634
	JC OVER17

	STA 635			/166>635
OVER17,	STA 636			/377>636
	JZ OVER20

	STA 637			/166>637
OVER20,	STA 640			/377>640
	JM OVER21

	STA 641			/166>641
OVER21,	STA 642			/377>642
	JPE OVER22

	STA 643			/166>643
OVER22,	STA 644			/377>644
	LXI H OVER23
	PCHL

	STA 645			/166>645
OVER23,	STA 646			/377>646
	HLT

IEND2,
FIELD 1

*START+IEND1+IEND2-ITEST2
PTEST3,

NOPUNCH
FIELD 0
*0
ENPUNCH


/TEST 3
/******

/ALL CALL-INSTRUCTIONS



ITEST3,	LXI SP 601
	MVI H 0
	MVI L 0
	PUSH H
	POP PSW
	CALL SUB1

	STA 601			/166>601
SUB1,	STA 602			/0>602
	CNC SUB2

	STA 603			/166>603
SUB2,	STA 604			/0>604
	CNZ SUB3

	STA 605			/166>605
SUB3,	STA 606			/0>606
	CP SUB4

	STA 607			/166>607
SUB4,	STA 610			/0>610
	CPO SUB5

	STA 611			/166>611
SUB5,	STA 612			/0>612
	CC SUB6

	STA 613			/0>613
SUB6,	STA 614			/0>614
	CZ SUB7

	STA 615			/0>615
SUB7,	STA 616			/0>616
	CM SUB10

	STA 617			/0>617
SUB10,	STA 620			/0>620
	CPE SUB11

	STA 621			/0>621
SUB11,	STA 622			/0>622
	CMA
	MOV H A
	MOV L A
	PUSH H
	POP PSW
	CALL SUB12





	STA 623			/166>623
SUB12,	STA 624			/377>624
	CNC SUB13

	STA 625			/377>625
SUB13,	STA 626			/377>626
	CNZ SUB14

	STA 627			/377>627
SUB14,	STA 630			/377>630
	CP SUB15

	STA 631			/377>631
SUB15,	STA 632			/377>632
	CPO SUB16

	STA 633			/377>633
SUB16,	STA 634			/377>634
	CC SUB17

	STA 635			/166>635
SUB17,	STA 636			/377>636
	CZ SUB20

	STA 637			/166>637
SUB20,	STA 640			/377>640
	CM SUB21

	STA 641			/166>641
SUB21,	STA 642			/377>642
	CPE SUB22

	STA 643			/166>643
SUB22,	STA 644			/377>644
	HLT
IEND3,
FIELD 1


*START+IEND1+IEND2+IEND3

PTEST4,


NOPUNCH
FIELD 0
*0
ENPUNCH



/TEST 4
/******

/ALL RETURN-INSTRUCTIONS




ITEST4,	LXI SP 501
	MVI H 0
	MVI L 0
	PUSH H
	POP PSW
	LXI SP 600-44
	RET

	STA 601			/166>601
RTAD1,	STA 602			/0>602
	RNC

	STA 603			/166>603
RTAD2,	STA 604			/0>604
	RNZ

	STA 605			/166>605
RTAD3,	STA 606			/0>606
	RP

	STA 607			/166>607
RTAD4,	STA 610			/0>610
	RPO

	STA 611			/166>611
RTAD5,	STA 612			/0>612
	RC
	INX SP
	INX SP

	STA 613			/0>613
RTAD6,	STA 614			/0>614
	RZ
	INX SP
	INX SP

	STA 615			/0>615
RTAD7,	STA 616			/0>616
	RM
	INX SP
	INX SP

	STA 617			/0>617
RTAD10,	STA 620			/0>620
	RPE
	INX SP
	INX SP

	STA 621			/0>621
RTAD11,	STA 622			/0>622
	CMA
	MOV H A
	MOV L A
	PUSH H
	POP PSW
	RET

	STA 623			/166>623
RTAD12,	STA 624			/377>624
	RNC
	INX SP
	INX SP

	STA 625			/377>625
RTAD13,	STA 626			/377>626
	RNZ
	INX SP
	INX SP

	STA 627			/377>627
RTAD14,	STA 630			/377>630
	RP
	INX SP
	INX SP

	STA 631			/377>631
RTAD15,	STA 632			/377>632
	RPO
	INX SP
	INX SP

	STA 633			/377>633
RTAD16,	STA 634			/377>634
	RC

	STA 635			/166>635
RTAD17,	STA 636			/377>636
	RZ

	STA 637			/166>637
RTAD20,	STA 640			/377>640
	RM

	STA 641			/166>641
RTAD21,	STA 642			/377>642
	RPE

	STA 643			/166>643
RTAD22,	STA 644			/377>644
	HLT

IEND4,


FIELD 1
STR41=START+IEND1+IEND2+IEND3+IEND4
*STR41
PT41,

NOPUNCH
FIELD 0
*600-44
ENPUNCH


IT41,	DW RTAD1
	DW RTAD2
	DW RTAD3
	DW RTAD4
	DW RTAD5
	DW RTAD6
	DW RTAD7
	DW RTAD10
	DW RTAD11
	DW RTAD12
	DW RTAD13
	DW RTAD14
	DW RTAD15
	DW RTAD16
	DW RTAD17
	DW RTAD20
	DW RTAD21
	DW RTAD22
END41,
FIELD 1
START5=STR41+END41-IT41
*START5
PTEST5,

NOPUNCH
FIELD 0
*0
ENPUNCH

/TEST 5
/******

/RST,EI,DI,NOP,HLT


ITEST5,	NOP		/OR JMP CONT1,CONT2
	NOP
	NOP
	JMP MAIN
	HLT
	HLT

	RST 0
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT

	RST 10
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT

	RST 20
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT

	RST 30
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT

	RST 40
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT

	RST 50
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT
	HLT

	RST 60
	HLT

MAIN,	LXI SP 601
	LXI H CONT1
	SHLD 4
	RST 70
	HLT

CONT1,	LXI H CONT2
	SHLD 4
	EI
IWAIT1,	JMP IWAIT1		/NO INTERRUPT EXPECTED AT FIRST
				/EINGABE VON RST 70
CONT2,	LXI H END
	SHLD 4
	EI
	NOP
	DI
IWAIT2,	JMP IWAIT2
	HLT

END,	HLT
IEND5,
FIELD 1
START6=START5+IEND5-ITEST5
*START6
PTEST6,

NOPUNCH
FIELD 0
*0
ENPUNCH

/TEST 6
/******

/ALL ROTATE-INSTRUCTIONS
/DAD,STC,CMC


ITEST6,	STC
	MVI A 253
	RAL
	STA 601			/127>601
	RAR
	STA 602			/253>602
	CMC
	RAL
	STA 603			/126>603
	RAR
	STA 604			/253>604
	LXI SP 601
	JNC ROUND1
	CMA

ROUND1,	STA 605			/253>605
	LXI SP 601
	LXI H 173000
	PUSH H
	POP PSW
	RLC
	PUSH PSW		/355>600,3>577
	CMA
	RLC
	PUSH PSW		/ 44>576,2>575
	CMA
	RRC
	PUSH PSW		/355>574,3>573
	CMA
	RRC
	PUSH PSW		/ 11>572,2>571
	LXI H 123456
	DAD H
	PUSH H			/116>570,134>567
	JC ROUND2
	CMA

ROUND2,	STA 606			/11>606
	DAD H
	PUSH H			/234>566,270>565
	JNC ROUND3
	CMA

ROUND3,	STA 607			/11>641S
	STC
	CMC
	LXI B 120671
	DAD B
	PUSH H			/ 76>564,161>563
	JC ROUND4
	CMA

ROUND4,	STA 610			/ 11>610
	DAD B
	PUSH H			/340>562, 52>561
	JNC ROUND5
	CMA

ROUND5,	STA 611			/ 11>611
	LXI D 037415
	LXI H 170512
	DAD D
	PUSH H			/ 60>560,127>557
	JC ROUND6
	CMA

ROUND6,	STA 612			/ 11>612
	DAD D
	PUSH H			/157>556,144>555
	JNC ROUND7
	CMA

ROUND7,	STA 613			/ 11>613
	HLT
IEND6,
FIELD 1
START7=START6+IEND6
*START7
PTEST7,

NOPUNCH
FIELD 0
*0
ENPUNCH


/TEST 7
/******

/ALL ARITHMETIC-INSTRUCTIONS
/DAA



ITEST7,	LXI SP 601
	LXI H 53126
	PUSH H
	POP PSW
	ADI 122
	PUSH PSW		/250>600, 202>577
	ADI 130
	PUSH PSW		/  0>576, 127>575
	PUSH H
	POP PSW

	MVI C 122
	MVI E 130
	ADD C
	PUSH PSW		/250>574, 202>573
	ADD E
	PUSH PSW		/0>572, 127>571
	PUSH H
	POP PSW
	ACI 122
	PUSH PSW		/250>570, 202>567
	ACI 130
	PUSH PSW		/0>566, 127>565
	PUSH H
	POP PSW

	MVI B 122
	MVI D 130
	ADC B
	PUSH PSW		/250>564, 202>563
	ADC D
	PUSH PSW		/0>562, 127>561
	LXI H 13726
	PUSH H
	POP PSW
	SUI 30
	PUSH PSW		/377>560, 207>557
	SUI 377
	PUSH PSW		/0>556, 126>555
	PUSH H
	POP PSW

	MVI C 30
	MVI E 377
	SUB C
	PUSH PSW		/377>554, 207>553
	SUB E
	PUSH PSW		/0>552, 126>551
	PUSH H
	POP PSW
	SBI 30
	PUSH PSW		/377>550, 207>547
	SBI 377
	PUSH PSW		/377>546, 106>545
	PUSH H
	POP PSW

	MVI B 30
	MVI D 377
	SBB B
	PUSH PSW		/377>544, 207>543
	SBB D
	PUSH PSW		/377>542, 107>541

	MVI H 127
	PUSH H
	POP PSW
	CPI 127
	PUSH PSW		/127>540, 126>537
	CPI 130
	PUSH PSW		/127>536, 207>535
	CPI 126
	PUSH PSW		/127>534, 22>533

	MVI B 130
	CMP B
	PUSH PSW		/127>532, 207>531
	DCR B
	CMP B
	PUSH PSW		/127>530, 126>527
	DCR B
	CMP B
	PUSH PSW		/127>526, 22>525

	MVI A 31		/19
	ADI 50			/28
	DAA
	PUSH PSW		/107>524, 6>523
	ADI 6			/6
	DAA
	PUSH PSW		/123>522, 26>521
	ADI 101			/41
	DAA
	PUSH PSW		/224>520, 202>517
	ADI 202			/82
	DAA
	PUSH PSW		/166>516, 3>515
	ADI 103			/43
	DAA
	PUSH PSW		/31>514, 3>513
	HLT
IEND7,
FIELD 1
START8=START7+IEND7
*START8
PTEST8,

NOPUNCH
FIELD 0
*0
ENPUNCH

/TEST 8
/******

/ALL LOGIC-INSTRUCTIONS


ITEST8,	LXI SP 601
	LXI H 125000
	PUSH H
	POP PSW
	ANI 125
	PUSH PSW		/0>600,126>577
	MVI A 352
	ANI 56
	PUSH PSW		/52>576, 22>575
	MVI A 252
	MVI B 125
	MVI D 56
	ANA B
	PUSH PSW		/0>574, 126>573
	MVI A 352
	ANA D
	PUSH PSW		/52>572, 22>571
	PUSH H
	POP PSW
	ORI 125
	PUSH PSW		/377>570, 206>567
	MVI A 352
	ORI 156
	PUSH PSW		/356>566, 206>565
	PUSH H
	POP PSW
	MVI B 125
	MVI E 156
	ORA B
	PUSH PSW		/377>564, 206>563
	MVI A 352
	ORA E
	PUSH PSW		/356>562, 206>561
	PUSH H
	POP PSW
	XRI 252			/CLA
	XRI 37
	XRI 230
	PUSH PSW		/207>560, 206>557
	XRA A			/CLA
	MVI L 37
	MVI H 116
	XRA L
	XRA H
	PUSH PSW		/121>556, 2>555
	HLT
IEND8,
FIELD 1
START9=START8+IEND8
*START9
PTEST9,

NOPUNCH
FIELD 0
*0
ENPUNCH
ITEST9,	LXI SP 303
	LXI H 0
	PUSH H
	POP PSW
	IN 0
	PUSH PSW		/52>302,2>301
	MVI A 252
	OUT 300			/252>300
	HLT
IEND9,
Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search