/	SIMPLE "HELLO WORLD" PROGRAM.

/	LAST EDIT: 20-OCT-2017	CJL

/	THIS PROGRAM IS PROVIDED AS THE INITIAL DEFAULT PROGRAM FILE FOR DEVELOPMENT
/	WITHIN THE PEPS ENVIRONMENT.  yOU CAN CHANGE IT AS MANY TIMES AS YOU DESIRE.

/	THIS PROGRAM CAN ALWAYS BE BROUGHT UP FROM THE STANDARD FILE: HELLOWORLD.PAL.
/	TO USE IN P?S/8, SAVE IT IN A SINGLE TFS FILE SUCH AS HELLOW.  TO USE IN OS/8
/	SAVE IT IN A SINGLE TEXT FILE SUCH AS HELLOW.PA.

/	STANDARD OPENING DEFAULTS APPLY.

	FIELD	0			/CAN RUN ON 4K MACHINES.

	*200				/THE USUAL STARTING ADDRESS.

/	THE FLAG MAY ALREADY BE UP; THIS WORKS IN BOTH OPERATING SYSTEMS.

	TSF				/FLAG ALREADY UP [P?S/8 STYLE]?
	TLS				/NO, RAISE IT NOW TO PRIME THE PUMP.

LOOP,	TAD I	TXTPTR			/GET A CHARACTER
	SPA				/AT END OF LIST?
	JMP I	L7600			/YES, EXIT TO OPERATING SYSTEM.
	TSF				/FLAG UP?
	JMP	.-1			/NO, WAIT FOR IT.
	TLS				/YES, OUTPUT IT NOW.
	CLA				/CLEAN UP
	ISZ	TXTPTR			/BUMP TO NEXT CHARACTER IN THE STRING.
	JMP	LOOP			/KEEP GOING.

HSTRNG,	"H;"E;"L;"L;"O;" ;"W;"O;"R;"L;"D/TEXT STRING OF "HELLO WORLD" MESSAGE.
L7600,	7600				/WHERE OPERATING SYSTEM EXIT IS.  THIS ALSO
					/ENDS THE TEXT STRING [A NEGATIVE CONSTANT].
TXTPTR,	HSTRNG				/TEXT POINTER [ALREADY INITIALIZED].

	$				/THAT'S ALL FOLK!