Apple II User Manual

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