q ʠ:7N*7>_>Ͻ+>7+!O0>s+0Y#"76>27!74>w<27à !7FH  ڠG:7‰xڃ:727à27x>Oڐx27:727à:727ڿ¿@±ҿxӿ > >< P:727>=  *7> G͞> G͞ Þ!7n&Pw!74*7>_>7W~T P g #A ~ڕ c u #T :7ҕ ̓ A :7ҕ ̓ T 27*7!!0:7G:7:7ڭ ڿ ñ  |/g}/o# :727à:727"7  :7/< 27}ְ27à!0~ 6# 2727G"7í18#>w#w>#6. 27>C >27U #6.~G?xf xw END RBEL: MVI A,18 STA ALCNT ;SET ALARM COUNT=18 LDA FLAG2 ANI 0FEH STA FLAG2 ;SET ALARM JMP EXEC PRCUL: CALL CLEFT ;EXECUTE CURSOR LEFT JMP EXEC PRLF: CALL LF ;EXECUTE LINE FEED JMP EXEC PRCR: CALL CR ;EXECUTE CARR RET JMP EXEC PRHT: CALL VTAB ;ON HT DO VT52 TAB JMP EXEC PRDC4: CALL FTAB ;ON DC4 DO FIELD TAB JMP EXEC PRESC: LDA FLAG1 ;LEAD-IN REC'D..... ORI 01H ; ...SET LEAD-IN ... STA FLAG1 ; ...FLAG, AND ... JMP EXEC ; ...GET OUT. ;........LOOKING FOR CHAR FOLLOWING REMOTE LEAD IN............ RLIOP: MOV A,B ;GET CHAR RLC ;PARITY ERROR? JC FLOFF ;J-YES LDA FLAG1 ANI 02H ;RA FLAG SET? MOV A,B JNZ CUAD ;J-YES. THIS IS X OR Y ADDRESS CPI 20H ;COL 0 OR 1? JC CTRL ;YES - GO PROCESS CTRL CHAR CPI 3AH ;CHAR LESS THAN ':'? JC RESLI ;YES-UNDEF CODE, GO RESET LI CPI 60H ;CHAR IN COL 6 OR 7 ? JC DOTB3 ;NO-CHAR IS LEGAL REM CMND CPI 7FH ;YES-CHAR='DEL'? JZ EXEC ;YES-DO NOTHING RESLI: LDA FLAG1 ;NO -CHAR IS NOT