Directory of image this file is from
This file as a plain text file

*20
/THIS PROGRAM IS SAVED AS 
	DEMO1 ON TAPE.
	IT TYPES GO THEN
	HALTS EXPECTING AN OCTAL
	NUMBER IN THE RIGHT SWITCHES
	YOU DEPRESS CONTINUE AND
	IT PRINTS THE DECIMAL
	EQUIVALENT OF THE NUMBER YOU
	PUT IN THE RIGHT SWITCHES
	AND LOOPS BACK ................
GO,	PDP
	PMODE
	TLS
	LINC
	LMODE
	LDA I
	307
	JMP LTYPO
	LDA I
	317
	JMP LTYPO
	HLT
	RSW
	STC H9Z
	JMP H9S
	JMP GO
H9S,	LDA
	0
	STC H9V
	LDA I
	0
	STC H9W
	STC H9X
	STC H9Y
	SET I 1
	H9W
	LDA
	H9Z
	JMP H9J
	LDH
	H9W!4000
	STC H9A
	LDH
	H9X
	STC H9B
	LDH
	H9X!4000
	STC H9C
	LDH
	H9Y
	STC H9D
	LDH
	H9Y!4000
	STC H9E
	SET I 16
	-5
	SET I 1
	H9A-1
H9F,	LDA I 1
	STC H9I
	LDA
	H9I
	ADA I
	-14
	AZE
	JMP H9R
	JMP H9H
H9R,	LDA
	H9I
	ADA I
	-17
	AZE
	JMP H9T
	ADA I
	255
	JMP H9G
H9H,	ADA I
	240
	JMP H9G
H9T,	LDA
	H9I
	ADA I
	260
H9G,	JMP LTYPO
	XSK I 16
	JMP H9F
	LDA I
	212
	JMP LTYPO
	LDA I
	215
	JMP LTYPO
H9V,	0
H9J,	SCR I 1
	ROL I 1
	APO I
	COM
	STC H9N
	ADD 0
	STC H9P
	LDA I
H9K,	1714
	LZE
	ROR 6
	STH I 1
	SET I 2
	H9Q-1
	JMP H9M
	AZE
	JMP H9L
	ADD H9K
	STH 1
	LZE
	ROR 6
	STH I 1
	JMP .-10
H9L,	 STH I 1
	JMP H9M
	JMP H9L
	0000
H9M,	LDA
	0
	STC H9P-2
	SET I 3
	1777
	XSK I 2
	ADD H9N
	XSK I 3
	STA I
H9N,	0
	ADA 2
	APO
	JMP .-5
	LDA
	3
	SRO I
	3567
	JMP
	STH I 1
H9P,	JMP
H9Q,	1750
	144
	12
	1
H9W,	0
H9X,	0
H9Y,	0
H9Z,	0
H9A,	0
H9B,	0
H9C,	0
H9D,	0
H9E,	0
H9I,	0
LTYPO,	PDP
	PMODE
	TSF
	JMP .-1
	TLS
	CLA
	LINC
	LMODE
	JMP 0