github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-29 21:18:09 +00:00
Code Issues Releases Wiki Activity
Files
084926efd8992501438376ef5e75579eae1277ab
pkimpel.retro-220/software/BALGOL/BALGOL-Library/WRITE.card

259 lines
41 KiB
Plaintext
Raw Blame History

1 HEAD THE WRITE PROCEDURE .00.0
1 REORD .00.0
1 ERROR DEFN 100 .00.0
1 RITE DEFN 200 .01.0
1 LOCN 0 .02.0
1 ZOUT DEFN 125 .03.0
1 ALPHA DEFN 126 .04.0
1 BETA DEFN 127 .05.0
1 GAMMA DEFN 128 .06.0
1 WIDTH DEFN 129 .07.0
1 OP DEFN 130 .08.0
1 DEC DEFN 131 .09.0
1 NEXTN DEFN 132 .10.0
1 DELTA DEFN 133 .11.0
1 THISN DEFN 134 .12.0
1 WRITE CNST 0100010000 .13.0
1 STA 8 FORMT,04 .14.0
1 LDB 8 *+2 .15.0
1 RTF 8 SIGN2,1 .16.0
1 RTF 101,30 .17.0
1 LDB 8 WRITE .18.0
1 STB 8 XIT,04 .19.0
1 LDR - 9999 .20.0
1 LSA 9,7557 .21.0
1 BFR 8 I+,22,00 .22.0
1 LDB 100 .23.0
1 STP - 0 .24.0
1 BFR - 1,22,01 .25.0
1 *I STA NEXTN .26.0
1 STB 8 OUT,04 .27.0
1 LDR OP .28.0
1 BZR 8 OVTST .29.0
1 CAD THISN .30.0
1 CLL DELTA .31.0
1 BFR 8 FF,52,46 .32.0
1 BFR 8 XX,52,67 .33.0
1 BFR 8 II,52,49 .34.0
1 BFR 8 SS,52,62 .35.0
1 BFR 8 AA,52,41 .36.0
1 BUN 8 ERR .37.0
1 AA LDR 8 NNINE .38.0
1 *A DFL WIDTH,0,1 .39.0
1 STP 8 EXIT1 .40.0
1 BUN 8 SUBR2 .41.0
1 CAD WIDTH .42.0
1 BZA 8 CYCLE .43.0
1 BFR 8 D+,22,99 .44.0
1 SLT 10 .45.0
1 BUN 8 A- .46.0
1 OVTST LDB 8 WRITE+1 .47.0
1 BOF 6 ERROR+21 .48.0
1 FORMT CAD 9999 .49.0
1 IFL 8 FORMT,04,1 .50.0
1 BPA 8 O+ .51.0
1 LDR 8 NNINE .52.0
1 BMA 8 R+ .53.0
1 *C BFA 8 FORMT,22,14 .54.0
1 STP 8 EXIT1 .55.0
1 NNINE F4248 9900,30,SUBR2 .56.0
1 BFR 8 FORMT,22,99 .57.0
1 SLT 10 .58.0
1 BUN 8 C- .59.0
1 BB CAD WIDTH .60.0
1 ADL ZOUT .61.0
1 ADL ZOUT .62.0
1 CYCLE CAD OP .63.0
1 BFA 8 OVTST,33,0 .64.0
1 *O BFA 8 *+2,33,00 .65.0
1 SUB 8 +0010000000 .66.0
1 STA OP .67.0
1 STA DEC,02 .68.0
1 I2 SRT 2 .69.0
1 STA WIDTH,03 .70.0
1 BFA 8 BB,72,42 .71.0
1 BFA 8 WW,72,66 .72.0
1 BFA 8 PP,72,57 .73.0
1 BFA 8 TT,72,63 .74.0
1 BFA 8 CC,72,43 .75.0
1 BFA 8 FORMT,03,00 .76.0
1 *D CAD NEXTN .77.0
1 STA THISN .78.0
1 BSA 8 BB,9 .79.0
1 OUT BUN 9999 .80.0
1 *R LDB 8 FORMT .81.0
1 BFA 8 Z+,66,00 .82.0
1 SLT 3 .83.0
1 BFR 8 S+,03,00 .84.0
1 *B SUB 8 +0010000000 .85.0
1 BFA 8 I9999,33,00 .86.0
1 DFL - 9999,63,1 .87.0
1 *A LDR - 9999 .88.0
1 STR 8 FORMT,04 .89.0
1 BUN 8 FORMT .90.0
1 *S STA - 9999,33 .91.0
1 BUN 8 B- .92.0
1 I9999 CAD - 9999 .93.0
1 I03 SRT 3 .94.0
1 STA - 9999,66 .95.0
1 BUN 8 FORMT .96.0
1 *Z CAD NEXTN .97.0
1 XIT BSA 9999,9 .98.0
1 BUN 8 A- .99.0
1 CC CWR 124,51 1.00.0
1 WW SRT 3 01.01.0
1 STR 8 *+1,31 01.02.0
1 F4246 2408,44,0200 01.03.0
1 F4246 0101,30,0200 1.04.0
1 *C LDB 8 *+2 01.05.0
1 RTF 8 SIGN2,1 01.06.0
1 RTF 101,24 01.07.0
1 BUN 8 CYCLE 1.08.0
1 PP CWR 124,51 1.09.0
1 BUN 8 C- 1.10.0
1 TT BFA 8 A+,03,0 1.11.0
1 SPO 8 B+,1 1.12.0
1 ADA 8 I9999 1.13.0
1 BUN 8 TT 1.14.0
1 *B CNST 21602020202 1.15.0
1 *A CAD ZOUT 1.16.0
1 BZA 8 CYCLE 1.17.0
1 ADD 8 18 1.18.0
1 SRT 4 1.19.0
1 STR 8 *+1,32 1.20.0
1 SPO 101,99 1.21.0
1 BUN 8 C- 1.22.0
1 II LDB 8 I10 1.23.0
1 BZA 8 Q+ 1.24.0
1 *C BFA 8 I51,11,0 1.25.0
1 *S STA THISN 1.26.0
1 I80 CAR 80 1.27.0
1 MAJOR STB GAMMA 1.28.0
1 CLL ALPHA 1.29.0
1 STA ALPHA,04 01.30.0
1 STA BETA 01.31.0
1 CAD THISN 1.32.0
1 I10 SRS 10 1.33.0
1 I23 LSA 1,23 1.34.0
1 ADD WIDTH 1.35.0
1 SUB GAMMA 1.36.0
1 BMA 8 ERR 1.37.0
1 H0 ADL ZOUT 1.38.0
1 H50 F424 5000,19,ZOUT 1.39.0
1 CAD THISN 1.40.0
1 LDR 8 I20 1.41.0
1 STP 8 EXIT1 1.42.0
1 BMA 8 SUBR1 1.43.0
1 DFL GAMMA,00,1 1.44.0
1 BRP 8 F+ 1.45.0
1 LDR BETA 1.46.0
1 BZR 8 CYCLE 1.47.0
1 LDR 8 I23 1.48.0
1 STP 8 EXIT1 1.49.0
1 BUN 8 SUBR1 1.50.0
1 CAD BETA 1.51.0
1 SUB 8 H50 1.52.0
1 LDB 8 I2 1.53.0
1 CLL WIDTH 1.54.0
1 IFL WIDTH,00,3 1.55.0
1 BUN 8 S- 1.56.0
1 *F DFL ALPHA,00,1 1.57.0
1 LDR ALPHA 1.58.0
1 BZR 8 H+ 1.59.0
1 LDR DELTA 1.60.0
1 BZR 8 I+ 1.61.0
1 DFL DELTA,00,1 1.62.0
1 LDR 8 I80 1.63.0
1 BUN 8 SUBR1 1.64.0
1 *H LDR 8 I03 1.65.0
1 BUN 8 SUBR1 1.66.0
1 *I CAD THISN 1.67.0
1 LDR 8 I8 01.68.0
1 I1 SLT 1 01.69.0
1 STA THISN 01.70.0
1 SUBR1 SLT 18 01.71.0
1 SUBR2 SRT 8 01.72.0
1 LBC ZOUT 01.73.0
1 SLA - 8 01.74.0
1 DLB ZOUT,94,0 01.75.0
1 DBB 8 EXIT1,24 01.76.0
1 I20 LSA 0,20 01.77.0
1 ADD - 125 01.78.0
1 STA - 125,00 01.79.0
1 IFL ZOUT,00,2 1.80.0
1 EXIT1 BUN 9999 1.81.0
1 *Q DBB 8 I80,9 1.82.0
1 I51 SLA 51 1.83.0
1 DBB 8 C-,1 1.84.0
1 XX CLR 7557 1.85.0
1 I8 SRT 8 1.86.0
1 CFA 8 +50,04 1.87.0
1 STR THISN 1.88.0
1 BCL 8 D+ 1.89.0
1 *E STA 8 TEMP,04 1.90.0
1 DFL 8 TEMP,04,49 1.91.0
1 LDB 8 TEMP 1.92.0
1 CAD OP 1.93.0
1 SRT 4 1.94.0
1 STR 8 B+,42 1.95.0
1 CAD 8 TEMP 1.96.0
1 TEMP CLR 9999 1.97.0
1 *B IBB 8 MAJOR,0000 1.98.0
1 *D LSA 0,7557 1.99.0
1 SUB 8 +50 2.00.0
1 STA DELTA,02 02.01.0
1 CFR OP,02 02.02.0
1 BCE 8 *+3 02.03.0
1 *F CAD 8 +50 02.04.0
1 BUN 8 E- 02.05.0
1 CAD 8 I51 02.06.0
1 STA THISN,11 2.07.0
1 BUN 8 E- 2.08.0
1 FF DFL WIDTH,03,4 2.09.0
1 BRP A+ 2.10.0
1 BUN 8 ERR1 02.11.0
1 CAD 8 +5000000000 2.12.0
1 *A BZA 8 *-1 02.13.0
1 CLR 7557 02.14.0
1 STA 8 H0,22 02.15.0
1 SRT 8 02.16.0
1 STR THISN 02.17.0
1 SRS 10 02.18.0
1 ADD OP 02.19.0
1 EXT 8 I51 2.20.0
1 CFA WIDTH,03 2.21.0
1 BCL 8 C+ 02.22.0
1 ERR1 IFL WIDTH,0,4 2.23.0
1 ERR CAD WIDTH 02.24.0
1 ADL ZOUT 2.25.0
1 ADL ZOUT 2.26.0
1 DFL ZOUT,0,2 2.27.0
1 LDR 8 I14 2.28.0
1 STP 8 EXIT1 2.29.0
1 BUN 8 SUBR1 2.30.0
1 BUN 8 CYCLE 2.31.0
1 *C LDR 8 H0 2.32.0
1 *E CAD 8 I1 2.33.0
1 *D LDB DEC 2.34.0
1 IBB 8 MAJOR,1 2.35.0
1 SS CLR 7557 2.36.0
1 SRT 8 2.37.0
1 STR THISN 2.38.0
1 I14 LSA 0,14 2.39.0
1 SUB 8 +50 2.40.0
1 CLR 7557 2.41.0
1 BMA 8 A+ 2.42.0
1 *C CFA OP,02 2.43.0
1 BCH 8 ERR 2.44.0
1 ADD 9 I1 2.45.0
1 BUN 8 D- 2.46.0
1 *A STA DELTA,00 2.47.0
1 BUN 8 E- 2.48.0
1 SIGN2 CNST 20000000000 2.49.0
1 LOCN LOCN *+3 2.50.0
1 CNST 40000990000 2.51.0
1 CNST $WRITE ERROR=1 RITE=2 $ 2.52.0
1 CNST 90000000000 2.53.0
1 LOCN LOCN 2.54.0
1 FINI WRITE 2.55.0
Reference in New Issue View Git Blame Copy Permalink