PROGRAM LISTING: 89-12a/PCPRINT.M65

��qd;TABLE
P;;PRINT HANDLER^
F�CHANGEPUT;;TABLE BYh
2;;LOOKING FORr
2;;THE LETTER 'P'.|
2�

H�FINDP�
X;�

�CHANGEPUT�
Q�HATABS
9;;KEEP THE OLD�
P�ZPAGE;;TABLE ADDRESS�
Q�HATABS9;;INTO PAGE�
P�ZPAGE
;;ZERO AND�
Q>4�NEWTABLE;;PUT MY�
P�HATABS
9;;TABLE ADDRSS�
Q>5�NEWTABLE;;INTO THE�
P�HATABS9;;HNDLER TABLE�
%>�
X;�MOVELOOPQ@�ZPAGE7;;COPY ALL THEP�NEWTABLE8;;OTHER HNDLER&1;;ADDRESSES INTO0)>�;;MY TABLE, AND:
H�MOVELOOPD%>NQ>4�NEWPUT;;THEN PUT MYX;;;PUT-BYTEbS>
;;ADDRESS INlP�NEWTABLE8;;ITv
Q>5�NEWPUT�S>�NEWPUT�R>
;;CHEK FOR CTRL-MH�NOT13;;IF NOT, CONTQ>;;CHEK FOR CTRL-J4F�SKIPJMP;;IF SO, NOT DONE>!�REALPRINT;;IF NOT, DONEH�SKIPJMPRQ>
;;CHANGE CTRL-J\!�REALPRINT;;INTO 155fX;p�REALPRINT;REGULAR ADDRESSz!��;;OF PUT-BYTE�X;�X;CAUSE PROGRAM TO START�X;WHEN IT IS LOADED���	�INITIALSTART