sw/src/mandel_screen/bak/pchar.ra.backup

   1         SECT    PCHAR
   2         JA      #ST     / JUMP IN
   3         TEXT    +PCHAR +
   4
   5         SECT8   MUH
   6         FNOP
   7         TEXT    +PCHAR8+
   8
   9 EXTERN  #RETRN
  10
  11
  12 / PDP-8 SUBROUTINE!
  13
  14         TCF=6042        / CLEAR TELEPRINTER FLAG
  15 TOCHR,  4               / LOCATION OF TTY STATUS
  16                         / POSITIVE=CHARACTER IN QUEUE
  17                         / NEGATIVE=BUSY
  18                         / ZERO=IDLE
  19
  20 PC8,    CLA CLL
  21
  22         RDF
  23         DCA     DFIELD  / SAVE DATA FIELD
  24
  25         CDF 0
  26 BLOOP,  CLA CLL
  27         TAD%    TOCHR   / TELEPRINTER STATUS
  28         SZA
  29         JMP     BLOOP
  30         CLA CLL CML RAR
  31         DCA%    TOCHR   / SET BUSY
  32
  33         TAD     DFIELD  / DATA FIELD RESTORATION
  34         TAD     CDFXX
  35         DCA     .+1
  36         CDF     0       / WILL BE OVERWRITTEN
  37
  38         TAD     CHAR2   / LOAD CHARACTER TO PRINT
  39
  40         TLS             / OUT!
  41
  42 /       TSF
  43 /       JMP     .-1     / WAIT TO BE DONE WITH CHARACTER
  44
  45
  46         CIF CDF 0
  47         JMP%    RETURN+1
  48
  49 DFIELD, 0
  50 CDFXX,  CDF 0           / INSTRUCTION TEMPLATE
  51 RETURN, ADDR    #RETRN
  52 CHAR,   1234
  53 CHAR1,  4321
  54 CHAR2,  1234
  55         0;0;0;0;0;0;0;0
  56
  57
  58 /FPP code here; using the rest of the SECT8 page.
  59
  60
  61
  62 / **************************************************************
  63
  64         BASE 0
  65
  66 / PCHAR(CHAR)
  67
  68
  69 #PCBAS, 7007
  70         7017
  71         7027
  72 B1,     7107
  73         7117
  74         7127
  75 B2,     7207
  76         7217
  77         7227
  78 B3,     7307
  79         7317
  80         7327
  81 B4,     7407
  82         7417
  83         7427
  84 B5,     7507
  85         7517
  86         7527
  87 PTR,
  88 B6,     7607
  89         7617
  90         7627
  91 ARGP1,
  92 B7,     7607
  93         7617
  94         7627
  95
  96 XR,     ORG     .+30
  97
  98
  99 #ST,                            / START OF FPP ROUTINE
 100         STARTD                  / 24 BIT DATA ONLY
 101
 102         0210    /FLDA   30              / GET RETURN JA
 103         FSTA    #GOBAK          / PUT TO RETURN LOCATION
 104
 105         0200    /FLDA   0       / JA AROUND ARGUMENTS
 106
 107         BASE    #PCBAS
 108         SETX    XR              / USE OWN INDEX REGISTERS
 109         SETB    #PCBAS          / OUR BASE
 110
 111         FSTA    #PCBAS          / TO POINTER
 112
 113         LDX     0,1             / 0 TO INDEX REG 1
 114
 115         FLDA%   #PCBAS,1+       / LOAD FROM #PCBAS+INDEX1
 116         FSTA    ARGP1           / ADDRESS OF ARGUMENT 1
 117
 118         STARTF
 119         FLDA%   ARGP1           / NOW WE HAVE ARGUMENT 1
 120         ALN     0               / MAKE INTEGER OF IT
 121         FSTA    CHAR
 122
 123         TRAP3   PC8
 124
 125         STARTF                  / BACK TO 3-WORD MODE
 126         JA      #GOBAK          / RETURN JUMP
 127 #GOBAK, 0;0                     / RETURN JUMP TARGET
 128
 129
 130
 131
 132         END