LOAD CEN.ASM

BLOAD CEN.ASM,A$1800


!L
   1        ORG $7200
   2        OBJ $800
   3 ;---->>> MOD2
   4 ; 04/10/87
   5        NLS 
   6        JMP $0000
   7        HEX 0000
   8        JMP $0000
   9 LCNT\\ HEX 00
  10 CONYXX HEX 00
  11 RSPG\\ HEX 00
  12 CONV\F HEX 00
  13 STRT\\ HEX F7
  14 RPGH\\ HEX 00
  15 PG\BUF EQU $8200
  16 ROM/1  EQU $DF00
  17 ROM/10 EQU $DF0A
  18 ROM/VL EQU $DF14
  19 SQ\BUF EQU $9900
  20 SL\BUF EQU $99C4
  21 TB\BUF EQU $9800
  22 P1\BUF EQU $9600
  23 P2\BUF EQU $9680
  24 H1\BUF EQU $9200
  25 H2\BUF EQU $9280
  26 H3\BUF EQU $9300
  27 H4\BUF EQU $9380
  28 DD\BUF EQU $93C0
  29 PP\BUF EQU $93E0
  30 DC\BUF EQU $93F2
  31 PN\BUF EQU $93F6
  32 FT\BUF EQU $9400
  33 VT\BUF EQU $9480
  34 SCR/FG EQU $1E00
  35 SCR/TY EQU $1E08
  36 PRT/FG EQU $1E06
  37 ABOR\F EQU $1E4E
  38 P/SLOT EQU $1ED0
  39 PR?BRL EQU $1ED1
  40 PR/TYP EQU $1ED3
  41 CWID\\ EQU $1ED4
  42 FORM\\ EQU $1ED5
  43 ACAP\F EQU $1ED8
  44 FF/WAT EQU $1ED7
  45 COP/ML EQU $1E4F
  46 PR?WRT EQU $1E4D
  47 JAMS\F EQU $1E5A
  48 ;
  49 S/WID  EQU $148
  50 S/LEN  EQU $149
  51 ;
  52 SEQUEN EQU $1F00
  53 SV|Y\T EPZ $1E
  54 Z1C    EPZ $1C
  55 Z1A    EPZ $1A
  56 ZFC    EPZ $FC
  57 RMAR\\ HEX 00
  58 LMAR\\ HEX 00
  59 SMAR\\ HEX 00
  60 LNSK\\ HEX 01
  61 PASK\\ HEX 02
  62 INDT\\ HEX 05
  63 EWID\\ HEX 50
  64 BWID\\ HEX 50
  65 NUM\\  HEX 0000
  66 FFSK\\ HEX 00
  67 SVLMAR HEX 00
  68 SVRMAR HEX 00
  69 WHED\\ HEX 00
  70 PRE/PN HEX 00
  71 PREPPI HEX 00
  72 B?P#\F HEX 00
  73 BOT?\F HEX 00
  74 CENT\F HEX 00
  75 AFIN\F HEX 00
  76 HEAD\F HEX 00
  77 Page\F HEX 00
  78 PURG\F HEX 00
  79 ROMN\F HEX 00
  80 SCEN\F HEX 00
  81 SPAC\F HEX 00
  82 ;
  83 STCY\F HEX 00
  84 ALLCAP HEX 00
  85 UNPC\F HEX 00
  86 DHYP\F HEX 00
  87 ;
  88 PTHY\F HEX 00
  89 UNDL\F HEX 00
  90 SSQ\PT HEX 00
  91 PPPS\T HEX 00
  92 VKPS\T HEX 00
  93 VIFC\F HEX 00
  94 BEG\PT HEX 00
  95 END\PT HEX 00
  96 END2PT HEX 00
  97 WORD\T HEX 00
  98 CR#\T  HEX 00
  99 SV|X\T HEX 00
 100 NUM\T  HEX 00
 101 PN/LEN HEX 00
 102 CR\F   HEX 00
 103 PGNL\T HEX 00
 104 PGNH\T HEX 00
 105 CONV/C HEX 00
 106 SVPURG HEX 00
 107 VP$P\T HEX 00
 108 VLT\T  HEX 00
 109 MAIN\T HEX 00
 110 Z$$\F  HEX 00
 111 LIN\PT HEX 00
 112 PGNL\\ HEX 01
 113 PGNH\\ HEX 00
 114 KPPN\F HEX 00
 115 ;-----------------***
 116 ;
 117 ;
 118        ORG $1AB4
 119        OBJ $A00
 120 ;
 121 ;
 122 ; ----------------***
 123        STX BEG\PT
 124        LDA CENT\F
 125        BEQ NO/CEN
 126        BMI YS/CEN
 127 SH/CEN JSR NO/CEN
 128        SEC 
 129        LDA EWID\\
 130        SBC LIN\PT
 131        TAX 
 132 CALC0  SEC 
 133        RTS 
 134 NT/EMP EQU CALC0
 135 YS/CEN LDA PR?BRL
 136        BMI BR/CEN
 137        SEC 
 138        LDA CWID\\
 139        SBC RMAR\\
 140        SBC END\PT
 141        CLC 
 142        ADC LMAR\\
 143 RG/CEN CLC 
 144        SBC BEG\PT
 145        BCC NG/CEN
 146        LSR 
 147        TAX 
 148        SEC 
 149        RTS 
 150 NG/CEN SEC 
 151        ROR 
 152        TAX 
 153        SEC 
 154        RTS 
 155 NO/CEN LDX #$00
 156        SEC 
 157        RTS 
 158 BR/CEN SEC 
 159        LDA CWID\\
 160        SBC END\PT
 161        JMP RG/CEN
 162 ;
 163 ;
 164 XX     HEX 00
 165        HEX 8E3272AD2072F031
 166        HEX 300D20ED1A38AD14
 167        HEX 72ED4372AA3860AD
 168        HEX D11E302138ADD41E
 169        HEX ED0E72ED3372186D
 170        HEX 0F7218ED32729004
 171        HEX 4AAA3860386AAA38
 172        HEX 60A200386038ADD4
 173        HEX 1EED33724CDE1A00
 174        HEX 0000
 175 ;
 176        END 
 177 ;
 178        END 
!