��qd X; "PCPRINT"n X; BY: JOHN WESTx X; 5-24-89� X; (c) 1989, ANTIC PUBLISHING� X;� X;ASM,,#D:PCPRINT.COM� X;� X;SAVE#D:PCPRINT.M65� X;� "X;CHANGE CTRL-M,CTRL-J INTO 155� X;� EI� X;� �ZPAGE �� �HATABS ;;START OF HNDLER� ;TABLE X;�INITIALSTART"X;,$> 6X;@ �FINDPJQ�HATABS9;;FIND THETR> P;;PRINT HANDLER^F�CHANGEPUT;;TABLE BYh2;;LOOKING FORr2;;THE LETTER 'P'.|2� H�FINDP�X;� �CHANGEPUT� Q�HATABS9;;KEEP THE OLD�P�ZPAGE;;TABLE ADDRESS�Q�HATABS9;;INTO PAGE�P�ZPAGE;;ZERO AND�Q>4�NEWTABLE;;PUT MY� P�HATABS9;;TABLE ADDRSS�Q>5�NEWTABLE;;INTO THE� P�HATABS9;;HNDLER TABLE�%>�X; �MOVELOOPQ@�ZPAGE7;;COPY ALL THE P�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> �P�NEWTABLE8�:�X;�X;� �NEWTABLE� = = � �PUTBYTE� = = = = �X;�X;� �NEWPUT�R> ;;CHEK FOR CTRL-MH�NOT13;;IF NOT, CONT Q> ;;IF SO, CHANGE !�REALPRINT;;TO 0 AND DONE �NOT13*R> ;;CHEK FOR CTRL-J4 F�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
Back to previous page