[h316.git] / lib / iolib / src / o$pb.asm

*    (O$PB)  - COPY OF O$AB   
*
*  
* COMPUTER:   H316
*   
* PROGRAM CATEGORY:  I/O LIBRARY
*    
* PROGRAM TITLE:  O$PB (O$PS,O$PLDR) 
*                 TO PUNCH BINARY TAPE ON THE HIGH SPEED PUNCH
*
* REVISIONS: 
*            1.0 (2005-02.04)
*
* AUTHOR
*
*    PHILIPP HACHTMANN
*
*
*
* STORAGE
*
*    150 (OCTAL)
*    104 (DECIMAL)
*
*
* USE
*
*    CALL    O$PB                   PTP BINARY PUNCH ROUTINE
*    DAC     DATA                   DATA ADDRESS
*                                   NORMAL RETURN
*
*    CALL    O$PS                   END OF MESSAGE ROUTINE
*
*    CALL    O$PLDR                 PUNCH BLANK LEADER
*
*
*    CALL  O$AB -
*
*    THIS ROUTINE IS USED TO PUNCH BINARY PAPER TAPE, THE ADDRESS
*    OF THE BINARY WORD COUNT APPEARS IN THE VARIABLE FIELD (DATA)
*    FOLLOWING THE CALL PSEUDO-OP. THE BINARY INFORMATION TO BE 
*    PUNCHED MUST START AT DATA+1.
*    THE NORMAL RETURN IS TAKEN WHEN THE NUMBER OF WORDS SPECIFIED
*    BY THE WORD COUNT HAS BEEN PUNCHED.
*
*    CALL O$AS - 
*  
*    EOM (203 OCT), X-OFF (223 OCT), AND RUBOUT (377 OCT) CHARACTERS
*    ARE PUNCHED WHEN THIS ROUTINE IS USED.
*    RETURN IS TO THE CALLING PROGRAMM
*
*    CALL O$PLDR - 
*   
*    PUNCH BLANK LEADER. NORMAL RETURN.
*
*
* METHOD
*    
*   BINARY INFORMATION IS PUNCHED AS IST APPEARS IN THE BUFFER (DATA+1).
*   EACH RECORD ON PAPER TAP EWILL HAVE THE FOLLOWING FORMAT:
*   START OF MESSAGE, BINARY INFORMATION, X-OFF, TWO LEADER CHARS.
*
*
*
********************************************************************************
*
*
	SUBR	O$PB
	SUBR	O$PS
	SUBR	O$PLDR,PLDR
	REL
WRU	OCT	024000
WRUX	OCT	160003
LF	OCT	050000
LFX	OCT	164003
XON	OCT	104000
XONX	OCT	170003
XOFF	OCT	114000
XOFX	OCT	174003
FOUR	OCT	000004
O$PB	PZE	**	PTP PUNCH ENTRY
	STX	XR	SAVE INDEX REGISTER FROM CALLING PROGRAMM
	OCP	2	ACTIVATE PAPER TAPE PUNCH
*
	LDA*	O$PB	WORD COUNT ADDRESS
BIN5	STA	TMP
	LDA*	TMP
	TCA		TWOS COMPLEMENT BINARY WORD COUNT
	STA	0
	LDA*	O$PB	BINARY DATA ADDRESS
	ADD*	TMP	DATA ADDRESS+WORD COUNT
	ADD	='40001
	STA	DATA	DATA ADDRESS + WORD COUNT, 1
	JST	STP
	LDA	='201	BEGINNING OF MESSAGE
	JST	BCD8
BIN6	LDA*	DATA	BINARY WORD TO BE PUNCHED
	LRL	16	B-REG: BINARY WORD TO BE PUNCHED
	JST	PNCH	GO PUNCH BINARY WORD
	IRS	0
	JMP	BIN6	CONTINUE PUNCHING BINARY CHARACTERS
	JMP	RETN	LEAVE ROUTINE
PNCH	PZE	**	CONVERT AND PUNCH BINARY CHARACTERS
	LLL	4	
	JST	CHAR	PUNCH BINARY WORD (1-4)
	JST	CHAR	PUNCH BINARY WORD (5-10)
	JST	CHAR	PUNCH BINARY WORD (11-16)
	JMP*	PNCH	RETURN FOR ADDITIONAL WORDS
CHAR	PZE	**
	LGL	11
	CAS	WRU
	JMP	*+2
	LDA	WRUX
	CAS	LF
	JMP	*+2
	LDA	LFX
	CAS	XON
	JMP	*+2
	LDA	XONX
	CAS	XOFF
	JMP	*+2
	LDA	XOFX
	SRC
	ERA	FOUR
	ALR	5
OUT	JST	BCD8
	LLL	6
	JMP*	CHAR
BCD8	PZE	**	ASCII PUNCH ROUTINE
	OTA	2
	JMP	*-1
	JMP*	BCD8
RETN	LDA	='223	X-OFF
	JST	BCD8
	LDA	='377	RUBOUT CHARACTER
	JST	BCD8	LEADER CHAR.
	IRS	O$PB	INCREMENT FOR NORMAL RETURN
	LDA	XR	RESTORE INDEX FOR CALLING PROGRAMM
	STA	0
	JMP*	O$PB
*
O$PS	PZE	**	PUNCH END OF MESSAGE ENTRY
	JST	STP
	LDA	='203	PUNCH END OF MESSAGE
	JST	BCD8
	LDA	='223	PUNCH X-OFF
	JST	BCD8
	LDA	='377	RUBOUT CHARACTER
	JST	BCD8	LEADER CHAR.
	JMP*	O$PS	RETURN TO CALLING PROGRAMM
*
STP	DAC	**
	LDA	='222
	JST	BCD8
	LDA	='377
	JST	BCD8
	JMP*	STP
DATA	PZE	0
XR	PZE	0
TMP	PZE	0
	FIN
*
LDRC	DEC	150	LENGTH OF LEADER
PLDR	DAC	**	PUNCH LEADER ENTRY
	STX	XR	SAVE X REGISTER
	LDA	LDRC	LENGTH OF LEADER
	TCA		TWOS COMPLEMENT OF LEADER
	STA	0
	OCP	2	
	CRA
LD1	OTA	2	PUNCH!
	JMP	*-1
	IRS	0
	JMP	LD1
	LDX	XR	RESTORE X REGISTER
	JMP*	PLDR	RETURN
*
	END	O$PB
Commit	Line	Data
c08e22bb	1	* (O$PB) - COPY OF O$AB
	2	*
	3	*
	4	* COMPUTER: H316
	5	*
	6	* PROGRAM CATEGORY: I/O LIBRARY
	7	*
	8	* PROGRAM TITLE: O$PB (O$PS,O$PLDR)
	9	* TO PUNCH BINARY TAPE ON THE HIGH SPEED PUNCH
	10	*
	11	* REVISIONS:
	12	* 1.0 (2005-02.04)
	13	*
	14	* AUTHOR
	15	*
	16	* PHILIPP HACHTMANN
	17	*
	18	*
	19	*
	20	* STORAGE
	21	*
	22	* 150 (OCTAL)
	23	* 104 (DECIMAL)
	24	*
	25	*
	26	* USE
	27	*
	28	* CALL O$PB PTP BINARY PUNCH ROUTINE
	29	* DAC DATA DATA ADDRESS
	30	* NORMAL RETURN
	31	*
	32	* CALL O$PS END OF MESSAGE ROUTINE
	33	*
	34	* CALL O$PLDR PUNCH BLANK LEADER
	35	*
	36	*
	37	* CALL O$AB -
	38	*
	39	* THIS ROUTINE IS USED TO PUNCH BINARY PAPER TAPE, THE ADDRESS
	40	* OF THE BINARY WORD COUNT APPEARS IN THE VARIABLE FIELD (DATA)
	41	* FOLLOWING THE CALL PSEUDO-OP. THE BINARY INFORMATION TO BE
	42	* PUNCHED MUST START AT DATA+1.
	43	* THE NORMAL RETURN IS TAKEN WHEN THE NUMBER OF WORDS SPECIFIED
	44	* BY THE WORD COUNT HAS BEEN PUNCHED.
	45	*
	46	* CALL O$AS -
	47	*
	48	* EOM (203 OCT), X-OFF (223 OCT), AND RUBOUT (377 OCT) CHARACTERS
	49	* ARE PUNCHED WHEN THIS ROUTINE IS USED.
	50	* RETURN IS TO THE CALLING PROGRAMM
	51	*
	52	* CALL O$PLDR -
	53	*
	54	* PUNCH BLANK LEADER. NORMAL RETURN.
	55	*
	56	*
	57	* METHOD
	58	*
	59	* BINARY INFORMATION IS PUNCHED AS IST APPEARS IN THE BUFFER (DATA+1).
	60	* EACH RECORD ON PAPER TAP EWILL HAVE THE FOLLOWING FORMAT:
	61	* START OF MESSAGE, BINARY INFORMATION, X-OFF, TWO LEADER CHARS.
	62	*
	63	*
	64	*
65	********************************************************************************
66	*
67	*
68	SUBR O$PB
69	SUBR O$PS
70	SUBR O$PLDR,PLDR
71	REL
9ae5cfca	72	WRU OCT 024000
	73	WRUX OCT 160003
	74	LF OCT 050000
	75	LFX OCT 164003
	76	XON OCT 104000
	77	XONX OCT 170003
	78	XOFF OCT 114000
	79	XOFX OCT 174003
	80	FOUR OCT 000004
c08e22bb	81	O$PB PZE ** PTP PUNCH ENTRY
	82	STX XR SAVE INDEX REGISTER FROM CALLING PROGRAMM
	83	OCP 2 ACTIVATE PAPER TAPE PUNCH
	84	*
	85	LDA* O$PB WORD COUNT ADDRESS
	86	BIN5 STA TMP
	87	LDA* TMP
	88	TCA TWOS COMPLEMENT BINARY WORD COUNT
	89	STA 0
	90	LDA* O$PB BINARY DATA ADDRESS
	91	ADD* TMP DATA ADDRESS+WORD COUNT
	92	ADD ='40001
	93	STA DATA DATA ADDRESS + WORD COUNT, 1
	94	JST STP
	95	LDA ='201 BEGINNING OF MESSAGE
	96	JST BCD8
	97	BIN6 LDA* DATA BINARY WORD TO BE PUNCHED
	98	LRL 16 B-REG: BINARY WORD TO BE PUNCHED
	99	JST PNCH GO PUNCH BINARY WORD
	100	IRS 0
	101	JMP BIN6 CONTINUE PUNCHING BINARY CHARACTERS
	102	JMP RETN LEAVE ROUTINE
	103	PNCH PZE ** CONVERT AND PUNCH BINARY CHARACTERS
	104	LLL 4
	105	JST CHAR PUNCH BINARY WORD (1-4)
	106	JST CHAR PUNCH BINARY WORD (5-10)
	107	JST CHAR PUNCH BINARY WORD (11-16)
	108	JMP* PNCH RETURN FOR ADDITIONAL WORDS
	109	CHAR PZE **
	110	LGL 11
	111	CAS WRU
	112	JMP *+2
	113	LDA WRUX
	114	CAS LF
	115	JMP *+2
	116	LDA LFX
	117	CAS XON
	118	JMP *+2
	119	LDA XONX
	120	CAS XOFF
	121	JMP *+2
	122	LDA XOFX
	123	SRC
	124	ERA FOUR
	125	ALR 5
	126	OUT JST BCD8
	127	LLL 6
	128	JMP* CHAR
c08e22bb	129	BCD8 PZE ** ASCII PUNCH ROUTINE
	130	OTA 2
	131	JMP *-1
	132	JMP* BCD8
	133	RETN LDA ='223 X-OFF
	134	JST BCD8
	135	LDA ='377 RUBOUT CHARACTER
	136	JST BCD8 LEADER CHAR.
	137	IRS O$PB INCREMENT FOR NORMAL RETURN
	138	LDA XR RESTORE INDEX FOR CALLING PROGRAMM
	139	STA 0
	140	JMP* O$PB
	141	*
	142	O$PS PZE ** PUNCH END OF MESSAGE ENTRY
	143	JST STP
	144	LDA ='203 PUNCH END OF MESSAGE
	145	JST BCD8
	146	LDA ='223 PUNCH X-OFF
	147	JST BCD8
	148	LDA ='377 RUBOUT CHARACTER
	149	JST BCD8 LEADER CHAR.
	150	JMP* O$PS RETURN TO CALLING PROGRAMM
	151	*
	152	STP DAC **
	153	LDA ='222
	154	JST BCD8
	155	LDA ='377
	156	JST BCD8
	157	JMP* STP
	158	DATA PZE 0
	159	XR PZE 0
	160	TMP PZE 0
	161	FIN
	162	*
	163	LDRC DEC 150 LENGTH OF LEADER
	164	PLDR DAC ** PUNCH LEADER ENTRY
	165	STX XR SAVE X REGISTER
	166	LDA LDRC LENGTH OF LEADER
	167	TCA TWOS COMPLEMENT OF LEADER
	168	STA 0
	169	OCP 2
	170	CRA
	171	LD1 OTA 2 PUNCH!
	172	JMP *-1
	173	IRS 0
	174	JMP LD1
	175	LDX XR RESTORE X REGISTER
	176	JMP* PLDR RETURN
	177	*
	178	END O$PB