0 0000 ORG $0000 1 0000 KBDCLR EQU * --SAMPLE OF "KBDCLR" ROUTINE-- 2 0000 103F SWI2 CALL "KBDCLR" ROUTINE 3 0002 4A FCB $4A MAP NO=A ROUTINE NO=D 4 0003 0D FCB $0D 5 0004 39 RTS 6 END