0 0000 ORG $0000 1 0000 PRTINI EQU * --SAMPLE OF "PRTINI" ROUTINE-- 2 0000 5F CLRB SET PORT No. 3 0001 103F SWI2 CALL "PRTINI" ROUTINE 4 0003 4A FCB $4A MAP NO=A ROUTINE NO=18 5 0004 18 FCB $18 6 0005 39 RTS 7 END