Filter
Top Products
1531 E9DE 2E 11 A4 ROL PRIFLG ;RESTORE FLG
1532 E9E1 60 RTS
1533 E9E2 ;USER DEFINED
1534 E9E2 C9 55 OUTA3 CMP #'U' ;USER ROUTINE?
1535 E9E4 D0 04 BNE OUTA4
1536 E9E6 38 SEC ;SET FLG FOR NORMAL OUTPUT
1537 E9E7 6C 0A 01 JMP (UOUT) ;YES
1538 E9EA ;NOWHERE OR TO TTY ,D/P
1539 E9EA C9 58 OUTA4 CMP #'X' ;EAT IT?
1540 E9EC D0 8D BNE OUT1 ;OUTPUT TO TTY OR D/P
1541 E9EE 68 PLA
1542 E9EF 60 RTS
1543 E9F0
1544 E9F0 ;THIS ROUTINE OUTPUTS A CRLF TO ANY OUTPUT DEV
1545 E9F0 ;LF AND NULL IS SENT ONLY TO TTY
1546 E9F0 A9 0D CRLF LDA #CR
1547 E9F2 20 BC E9 JSR OUTALL
1548 E9F5 20 42 E8 JSR TTYTST ;TTY OR KB ?
1549 E9F8 D0 29 BNE CR2J
1550 E9FA AD 13 A4 LDA OUTFLG ;LF ONLY TO TTY
1551 E9FD C9 54 CMP #'T'
1552 E9FF F0 22 BEQ CR2J
1553 EA01 C9 4B CMP #'K'
1554 EA03 F0 1E BEQ CR2J
1555 EA05 C9 50 CMP #'P'
1556 EA07 F0 1A BEQ CR2J
1557 EA09 A9 0A LDA #LF
1558 EA0B 20 BC E9 JSR OUTALL
1559 EA0E A9 FF LDA #NULLC
1560 EA10 4C BC E9 JMP OUTALL
1561 EA13
1562 EA13 ;CRLF TO TERMINAL (TTY OR D/P) ONLY
1563 EA13 48 CRLOW PHA ;SAVE A
1564 EA14 AD 13 A4 LDA OUTFLG
1565 EA17 48 PHA
1566 EA18 20 01 E9 JSR OUTLOW
1567 EA1B 20 F0 E9 JSR CRLF
1568 EA1E 68 PLA
1569 EA1F 8D 13 A4 STA OUTFLG
1570 EA22 68 PLA
1571 EA23 60 CR2J RTS
1572 EA24
1573 EA24 ;OUTPUT <CR> TO TTY IF SWITCH ON TTY & INFLG NOT L
1574 EA24 ;DONT CLR DISPLAY BUT CLEARS PNTRS FOR NEXT LINE
1575 EA24 ;IF PRNTR HAS PRINTED ON 21RST CHR DONT OUTPUT <CR>
1576 EA24 AD 12 A4 CRCK LDA INFLG ;NO <CR> IF "L"
1577 EA27 C9 4C CMP #'L'
1578 EA29 D0 01 BNE CRCK1
1579 EA2B 60 RTS
1580 EA2C 20 42 E8 CRCK1 JSR TTYTST ;CHECK IF TTY OR KB
1581 EA2F F0 E2 BEQ CRLOW ;BRNCH IF TTY
1582 EA31 ;IF PRINTR PTR=0 ,DO NOT CLR PRI
1583 EA31 AD 16 A4 LDA CURPOS
1584 EA34 F0 05 BEQ CRCK2 ;IF PTR=0 ,NO <CR>
1585 EA36 A9 0D LDA #CR
1586 EA38 20 00 F0 JSR OUTPRI
1587 EA3B A9 8D CRCK2 LDA #CR+$80 ;<CR> ONLY FOR TV
1588 EA3D 4C 02 EF JMP OUTDP1
1589 EA40 EA NOP
1590 EA41 EA NOP
1591 EA42
1592 EA42 ;WRITE A THEN X IN ASCII TO THE OUTPUT DEV