/COSINE DISPLAY PROGRAM /26MAY77DS /ASSEMBLE WITH TERM AND COSINE CLA JMS CRLF TAD (-100) /LINES TO PRINT DCA 101 NEXT, TAD X+1 TAD (51) /OFFSET TO MIDDLE OF SCREEN CIA DCA 100 LOOP, JMS PRINTB ISZ 100 JMP LOOP TAD (MSG1) JMS TYPE JMS NEXTX ISZ 101 JMP NEXT JMP I (7605) /RETURN TO MONITOR MSG1, TEXT "OS/78_" /END OF CDEMO