1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-19 17:13:17 +00:00
Files
pkimpel.retro-220/software/examples/List-Cards.lst
Paul Kimpel 8b6199afd8 Commit retro-220 version 0.02:
1. Finish implementation of Cardatron input and output units.
2. Minor corrections to BAC-Assembler script and BALGOL-Generator transcription.
3. Apply band-select "punches" in column 1 of WINTER.PI.card assembler deck.
4. Implement striping on Console register displays to highlight the opcode (62) fields.
5. Implement List-Cards utility to read cards from CR1 and list them on LP2.
2017-05-24 09:09:08 -07:00

84 lines
3.7 KiB
Plaintext

Assembler for the Burroughs 220 BALGOL Compiler & Intrinsics
END OF PASS 1, ERRORS = 0
SYMBOL TABLE
1 BMOD 911 BUF 941 FR1 971 FW5 902 L1
904 L2 1 RLO
LIST CARDS FROM CR1 TO LP2 USING FORMAT BAND 5
2 0000 LOCN 0900
3 0900 0 1000 62 0969 CRF FR1+28,11 LOAD READER FORMAT 1
4 0901 0 2008 63 0999 CWF FW5+28,52 LOAD PRINTER FORMAT 5
5 0902 0 1000 60 0939 L1 CRD BUF+28,1 READ A CARD
6 0903 0 2008 61 0939 CWR BUF+28,2,5 PRINT A CARD
7 0904 0 1000 64 0902 L2 CRI L1,1 LOOP BACK IF READER READY
8 0905 0 0000 30 0904 BUN L2 SPIN UNTIL READER IS READY
10 0906 BUF DEFN 0911 CARD BUFFER (USES 0922-0939)
11 0906 LOCN 0941
12 0941 3 3333 33 3333 FR1 FBGR INPUT,P10Z,16(T5A)
0942 3 3333 33 3333
0943 3 3333 33 3333
0944 3 3333 33 3333
0945 3 3333 33 3333
0946 3 3333 33 3333
0947 3 3333 33 3333
0948 3 3333 33 3333
0949 3 3333 33 3333
0950 3 3333 33 3333
0951 3 3333 33 3333
0952 0 0000 00 0000
0953 0 0000 00 0000
0954 2 1111 11 1111
0955 2 1111 11 1111
0956 2 1111 11 1111
0957 2 1111 11 1111
0958 2 1111 11 1111
0959 2 1111 11 1111
0960 2 1111 11 1111
0961 2 1111 11 1111
0962 2 1111 11 1111
0963 2 1111 11 1111
0964 2 1111 11 1111
0965 2 1111 11 1111
0966 2 1111 11 1111
0967 2 1111 11 1111
0968 2 1111 11 1111
0969 2 1111 11 1111
13 0970 LOCN 0971
14 0971 3 3333 33 3333 FW5 FBGR PRINT,8B,16(T5A),32B
0972 3 3333 33 3333
0973 3 3333 33 3333
0974 3 3333 33 3333
0975 3 3333 33 3333
0976 3 3333 33 3000
0977 0 0000 00 0000
0978 0 0311 11 1111
0979 1 1311 11 1111
0980 1 1311 11 1111
0981 1 1311 11 1111
0982 1 1311 11 1111
0983 1 1311 11 1111
0984 1 1311 11 1111
0985 1 1311 11 1111
0986 1 1311 11 1111
0987 1 1311 11 1111
0988 1 1311 11 1111
0989 1 1311 11 1111
0990 1 1311 11 1111
0991 1 1311 11 1111
0992 1 1311 11 1111
0993 1 1311 11 1111
0994 1 1000 00 0000
0995 0 0000 00 0000
0996 0 0000 00 0000
0997 0 0000 00 0000
0998 0 0000 00 0000
0999 0 0000 00 0000
15 1000 FINI 900
END OF PASS 2, ERRORS = 0