Program Logic Manual - All about the IBM 1130 Computing System

TYPEZ*82220A2•KZ4003KZ100.... • A1 .. ....ENTRY VIA LW ....A4.• READ *. YES• INTERRUPT FROM TYPEZ • ..x.. FUNCTIONX.SELECT KEYBOARD .• •ILSO4••..,.. .. .....•• • NO• A2 • .• • 82 :.X •KZ200 82230••• X xEl B2 B4• • . •INITIALIZE • •CONVERT ONE E8C•• COUNT BUFFER .• SET INTERRUPT •• TO TYPEWRITER • •0CGURRED SWITCH.. SETUP RESTART • CODE •. . • •X 80260C.....C2K2600I 012E4*TYPE ONE •TEST DEVICE • ••.. X • CHARACTER ORREADY• CONTROL •C4•SENSE INTERRUPT.WITH RESET SAVE• •80210 001SET BUFFER •ADD WD CNT. •ENTER CAR.• RETURNXKZ300• •• 02 •• •D2XXNO.• •INTERRUPT • .•X....• 02 •YETYES.....D4 •*RETURN TO ILSO4••E2••• CLEAR INTERRUPT.*OCCURED SWITCH •KI500E3•K2600 012E4••. " :TEST I/ DEVICE :•K2600...••E4• TEST READYX XF2F3F4•NODECREMENTCHARACTER COUNT.SENSE OSW• • •• KEYBOARD .......RESPONSE•• YESXG2 G3.•... 04°... . .•READ CHARACTER • NO .•• ALL .. YES .. DEVICE •• • •INTO BUFFER ..... CHARACTERS .. ..... READY ..x...... G4 •• • . ..PROCESSED.. • •••••I 1.... • YES •••• • NOX• •A2 . • J4 ••.... •......X• XH4...w3YES ...•RESTART.... • • RETURN TO • • WAIT AT 2AREQUEST .. • CALLER • DISPLAY /2000.. •X •• NO 11,1••. •. G4 . .• • J4 ....• •X....JI J2'.... R•HOLEZ 013A1.NO . .. ....J4• END OF .4*.CONVERTS :X LINE RETURNCHARACTERS IN ••..CHARACTER..• BUFFER TO E8C • •. ....X. 82 •• YES•. K2• ....83.14011E BLANK INTO. • RETURN TO •BUFFER X. CALLER• •.x•Flowchart F1012. System Library, TYPEZFlowcharts 305