X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fo%24pb.asm;fp=lib%2Fiolib%2Fsrc%2Fo%24pb.asm;h=c59c4376ae9ae14110d2e3224caa1b00739ffdd8;hb=9ae5cfcad767420b936f13e674a4cc1b6e4cc126;hp=9331ed54e3fc1516128a4c9cc9df5a63a93438b7;hpb=b0031f2a6627a315bfefbd4de7c237719a17c54b;p=h316.git

diff --git a/lib/iolib/src/o$pb.asm b/lib/iolib/src/o$pb.asm
index 9331ed5..c59c437 100644
--- a/lib/iolib/src/o$pb.asm
+++ b/lib/iolib/src/o$pb.asm
@@ -69,6 +69,15 @@
 	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
@@ -117,15 +126,6 @@ CHAR	PZE	**
 OUT	JST	BCD8
 	LLL	6
 	JMP*	CHAR
-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
 BCD8	PZE	**	ASCII PUNCH ROUTINE
 	OTA	2
 	JMP	*-1