[h316.git] / lib / hachti / src / oct.asm

* OCT - TYPE OCTAL VALUE ON THE ASR
* 
* TYPE OUT THE VALUE IN A. A STAYS UNCHANGED AFTERWARDS
*
	SUBR	OCT,OCT6	PRINT OCTAL VALUE WITH 6 DIGITS + CR/LF
	SUBR	OCTN,N6		PRINT OCTAL VALUE WITH 6 DIGITS
* 
	SUBR	OCTN1,N1	PRINT OCTAL, 1 DIGIT
	SUBR	OCTN2,N2	PRINT OCTAL, 2 DIGITS
	SUBR	OCTN3,N3	PRINT OCTAL, 3 DIGITS
	SUBR	OCTN4,N4	PRINT OCTAL, 4 DIGITS
	SUBR	OCTN5,N5	PRINT OCTAL, 5 DIGITS
	SUBR	OCTN6,N6	PRINT OCTAL, 6 DIGITS
	SUBR	OCT1   		PRINT OCTAL, 1 DIGIT
	SUBR	OCT2   		PRINT OCTAL, 2 DIGITS
	SUBR	OCT3   		PRINT OCTAL, 3 DIGITS
	SUBR	OCT4   		PRINT OCTAL, 4 DIGITS
	SUBR	OCT5   		PRINT OCTAL, 5 DIGITS
	SUBR	OCT6   		PRINT OCTAL, 6 DIGITS
* 
	SUBR	TP	TYPE OUT LETTER IN A
	SUBR	CR	PRINT CR
	SUBR	LF	PRINT LF
	SUBR	SP	PRINT A SPACE CHARACTER
	SUBR	NL	PRINT CR/LF
	SUBR	TYPE,TEXT
*  
* 
********************************************************************************
*       
	REL
	ORG	0
* 
********************************************************************************
* 
* 
TP	DAC	0
	SKS	'104
	JMP	*-1
	OCP	'104
	OTA	'4	TYPE ON ASR
	JMP	*-1
	SKS	'4
	JMP	*-1
	JMP*	TP	RETURN
* 
* 
********************************************************************************
* 
OCT6	DAC	0
	JST	N6
	JST	NL
	JMP*	OCT6
OCT5	DAC	0
	JST	N5
	JST	NL
	JMP*	OCT5
OCT4	DAC	0
	JST	N4
	JST	NL
	JMP*	OCT4
OCT3	DAC	0
	JST	N3
	JST	NL
	JMP*	OCT3
OCT2	DAC	0
	JST	N2
	JST	NL
	JMP*	OCT2
OCT1	DAC	0
	JST	N1
	JST	NL
	JMP*	OCT1
* 
********************************************************************************
* 
N1	DAC	0
	JST	SAVE
	LDA	=-6
	JMP	NGO
N2	DAC	0
	JST	SAVE
	LDA	=-5
	JMP	NGO
N3	DAC	0
	JST	SAVE
	LDA	=-4
	JMP	NGO
N4	DAC	0
	JST	SAVE
	LDA	=-3
	JMP	NGO
N5	DAC	0
	JST	SAVE
	LDA	=-2
	JMP	NGO
N6	DAC	0
	JST	SAVE
	LDA	=-1
	JMP	NGO
* 
****************************************
* 
SAVE	DAC	0
	STA	ATMP
	IAB
	STA	BTMP
	JMP*	SAVE
*  
****************************************
* 
NGO	STA	PCNT
	AOA
	ALS	2	MULTIPLY BY 4
	STA	0	TO INDEX REGISTER
	LDA	=-7
	STA	CNT
* 
	CRA
	LRR	5	VORSPANNUNG
	IRS	CNT
	LLR	3
	IRS	PCNT
	JMP	*-3
* 
NXL	LLR	3
	ADD	ZERO
	JST	TP
	CRA
	IRS	CNT
	JMP	NXL
	LDA	BTMP
	IAB
	LDA	ATMP
	JMP*	N6,1	EVIL!!!
* 
*  
****************************************
* 
*  
ATMP	DAC	**	TEMPORARY STORAGE FOR A
BTMP	DAC	**	TEMPORARY STORAGE FOR B
PCNT	DAC	**
CNT	DAC	**
ZERO	DEC	48	CHARACTER ZERO
* 
********************************************************************************
* 
CR	DAC	0
	STA	ATMP
	LDA	=13
	JST	TP
	LDA	ATMP
	JMP*	CR
* 
LF	DAC	0
	STA	ATMP
	LDA	=10
	JST	TP
	LDA	ATMP
	JMP*	LF
* 
NL	DAC	0
	JST	CR
	JST	LF
	JMP*	NL
* 
SP	DAC	0
	STA	ATMP
	LDA	='040
	JST	TP
	LDA	ATMP
	JMP*	SP
* 
* 
********************************************************************************
* 
TEXT	DAC	0
	STA	ATMP
	LDA*	TEXT	GET POINTER
	STA	PTR
	IRS	TEXT	RETURN ADDRESS
* 
TLOP	LDA*	PTR
* 
	SNZ
	JMP	TDON
* 
	ICL		COPY DOWN
	SZE		DON'T PRINT ZEROES
	JST	TP
	LDA*	PTR
	CAL		CLEAR UPPER HALF
	SZE		DON'T PRINT ZEROES
	JST	TP
* 
	IRS	PTR
	JMP	TLOP	
*
TDON	LDA	ATMP
	JMP*	TEXT
* 
PTR	DAC	0
* 
********************************************************************************
* 
	END
Commit	Line	Data
903be085	1	* OCT - TYPE OCTAL VALUE ON THE ASR
	2	*
	3	* TYPE OUT THE VALUE IN A. A STAYS UNCHANGED AFTERWARDS
	4	*
0a5c1d8a	5	SUBR OCT,OCT6 PRINT OCTAL VALUE WITH 6 DIGITS + CR/LF
0a5c1d8a	6	SUBR OCTN,N6 PRINT OCTAL VALUE WITH 6 DIGITS
903be085	7	*
0a5c1d8a	8	SUBR OCTN1,N1 PRINT OCTAL, 1 DIGIT
	9	SUBR OCTN2,N2 PRINT OCTAL, 2 DIGITS
	10	SUBR OCTN3,N3 PRINT OCTAL, 3 DIGITS
	11	SUBR OCTN4,N4 PRINT OCTAL, 4 DIGITS
	12	SUBR OCTN5,N5 PRINT OCTAL, 5 DIGITS
	13	SUBR OCTN6,N6 PRINT OCTAL, 6 DIGITS
	14	SUBR OCT1 PRINT OCTAL, 1 DIGIT
	15	SUBR OCT2 PRINT OCTAL, 2 DIGITS
	16	SUBR OCT3 PRINT OCTAL, 3 DIGITS
	17	SUBR OCT4 PRINT OCTAL, 4 DIGITS
	18	SUBR OCT5 PRINT OCTAL, 5 DIGITS
	19	SUBR OCT6 PRINT OCTAL, 6 DIGITS
903be085	20	*
0a5c1d8a	21	SUBR TP TYPE OUT LETTER IN A
	22	SUBR CR PRINT CR
	23	SUBR LF PRINT LF
	24	SUBR SP PRINT A SPACE CHARACTER
	25	SUBR NL PRINT CR/LF
	26	SUBR TYPE,TEXT
	27	*
	28	*
	29	********************************************************************************
	30	*
903be085	31	REL
0a5c1d8a	32	ORG 0
	33	*
	34	********************************************************************************
	35	*
	36	*
	37	TP DAC 0
903be085	38	SKS '104
	39	JMP *-1
	40	OCP '104
0a5c1d8a	41	OTA '4 TYPE ON ASR
903be085	42	JMP *-1
0a5c1d8a	43	SKS '4
903be085	44	JMP *-1
0a5c1d8a	45	JMP* TP RETURN
	46	*
	47	*
	48	********************************************************************************
	49	*
	50	OCT6 DAC 0
	51	JST N6
	52	JST NL
	53	JMP* OCT6
	54	OCT5 DAC 0
	55	JST N5
	56	JST NL
	57	JMP* OCT5
	58	OCT4 DAC 0
	59	JST N4
	60	JST NL
	61	JMP* OCT4
	62	OCT3 DAC 0
	63	JST N3
	64	JST NL
	65	JMP* OCT3
	66	OCT2 DAC 0
	67	JST N2
	68	JST NL
	69	JMP* OCT2
	70	OCT1 DAC 0
	71	JST N1
	72	JST NL
	73	JMP* OCT1
	74	*
	75	********************************************************************************
	76	*
	77	N1 DAC 0
	78	JST SAVE
	79	LDA =-6
	80	JMP NGO
	81	N2 DAC 0
	82	JST SAVE
	83	LDA =-5
	84	JMP NGO
	85	N3 DAC 0
	86	JST SAVE
	87	LDA =-4
	88	JMP NGO
	89	N4 DAC 0
	90	JST SAVE
	91	LDA =-3
	92	JMP NGO
	93	N5 DAC 0
	94	JST SAVE
	95	LDA =-2
	96	JMP NGO
	97	N6 DAC 0
	98	JST SAVE
	99	LDA =-1
	100	JMP NGO
	101	*
	102	****************************************
	103	*
	104	SAVE DAC 0
	105	STA ATMP
	106	IAB
	107	STA BTMP
	108	JMP* SAVE
109	*
110	****************************************
111	*
112	NGO STA PCNT
113	AOA
114	ALS 2 MULTIPLY BY 4
115	STA 0 TO INDEX REGISTER
116	LDA =-7
117	STA CNT
118	*
903be085	119	CRA
0a5c1d8a	120	LRR 5 VORSPANNUNG
0a5c1d8a	121	IRS CNT
903be085	122	LLR 3
0a5c1d8a	123	IRS PCNT
	124	JMP *-3
	125	*
	126	NXL LLR 3
	127	ADD ZERO
	128	JST TP
903be085	129	CRA
0a5c1d8a	130	IRS CNT
0a5c1d8a	131	JMP NXL
903be085	132	LDA BTMP
903be085	133	IAB
0a5c1d8a	134	LDA ATMP
0a5c1d8a	135	JMP* N6,1 EVIL!!!
903be085	136	*
0a5c1d8a	137	*
	138	****************************************
	139	*
	140	*
903be085	141	ATMP DAC ** TEMPORARY STORAGE FOR A
0a5c1d8a	142	BTMP DAC ** TEMPORARY STORAGE FOR B
	143	PCNT DAC **
	144	CNT DAC **
	145	ZERO DEC 48 CHARACTER ZERO
	146	*
	147	********************************************************************************
	148	*
	149	CR DAC 0
	150	STA ATMP
	151	LDA =13
	152	JST TP
	153	LDA ATMP
	154	JMP* CR
	155	*
	156	LF DAC 0
	157	STA ATMP
	158	LDA =10
	159	JST TP
	160	LDA ATMP
	161	JMP* LF
	162	*
	163	NL DAC 0
	164	JST CR
	165	JST LF
	166	JMP* NL
	167	*
	168	SP DAC 0
	169	STA ATMP
	170	LDA ='040
	171	JST TP
	172	LDA ATMP
	173	JMP* SP
	174	*
	175	*
	176	********************************************************************************
	177	*
	178	TEXT DAC 0
	179	STA ATMP
	180	LDA* TEXT GET POINTER
	181	STA PTR
	182	IRS TEXT RETURN ADDRESS
	183	*
	184	TLOP LDA* PTR
	185	*
	186	SNZ
	187	JMP TDON
	188	*
	189	ICL COPY DOWN
	190	SZE DON'T PRINT ZEROES
	191	JST TP
	192	LDA* PTR
	193	CAL CLEAR UPPER HALF
	194	SZE DON'T PRINT ZEROES
	195	JST TP
	196	*
	197	IRS PTR
	198	JMP TLOP
	199	*
	200	TDON LDA ATMP
	201	JMP* TEXT
	202	*
	203	PTR DAC 0
903be085	204	*
	205	********************************************************************************
	206	*
	207	END