*SOLOS:  A PTDOS COMMAND TO GO TO SOLOS
 COPY NPTDEFS
SRESET EQU 0BCB0H
 ORG CXBUF
SOLOS EQU $
 LXI H,'TP'  ;COMMAND IS 'PT'
 SHLD 0C83CH  ;STORE IN CUSTOM TABLE, 1st POSITION
 LXI H,SRESET
 SHLD 0C83EH  ;DOES SHORT RESET TO GET BACK TO PTDOS
 JMP 0C004H  ;SOLOS RETRN ENTRY POINT
 XEQ SOLOS
 END