YUL_SYSTEM_ASSEMBLER_1800_PASS_2.argus
# Copyright: Public domain.
# Filename: YUL_SYSTEM_ASSEMBLER_1800_PASS_2.mitigus
# Purpose: Part of the source code for YUL (revision 9).
# Assembler: TBD
# Contact: Jim Lawton <jim.lawton@gmail.com>
# Website: https://www.ibiblio.org/apollo/index.html
# Page scans: https://archive.org/details/yulsystemsourcec00hugh
# Pages: 479-481
# Mod history: 2016-10-06 JL Created.
# 2016-12-29 JL Transcribed pages 479-481.
# Annotations:
#
# B L A I R - S M I T H
# Y U L S Y S T E M
#
# Listings in
# MITIGUS Format
#
# Note: Page numbers are scan page numbers rather than listing.
L @YUL SYSTEM ASSEMBLER 1800 PASS 2
# Page 479
# @YUL SYSTEM ASSEMBLER 1800 PASS 2 USER'S OWN PAGE NO. 1 PAGE 215
R0001 WE ARE DEEPLY INDEBTED TO THE ONE, THE ONLY, THE GREAT JOHN SHAW FOR THE FOLLOWING STRONG MAGIC....
R0003 JSOCTL
0004 SETLOC,2 SIZ PASS 2 B1
0005 MASKGRP,4 S,1 F,1
R0006 THE 1800 PART OF PASS 2 CONTAINS ONLY THE CUSSES RELATING TO CARD NUMBERS, AND CODING TO SET UP THE CUSS LIST.
00072 OCT 0
0008 RESERVE 15
0009 1800 MXR MASKBASE S,1 F,1
0010 OCT 0
0011 SETLOC,4 768 B5
0012 B,B2T5M OCT 36
0013 B,B6T16M OCT 0177 74
0014 B,B18T21M OCT 0000 017
0015 B,B22T32M OCT -7 7760 0000
0016 B,B34T37M OCT -7 4000
0017 B,B38T48M OCT -3777
# Page 480
# @YUL SYSTEM ASSEMBLER 1800 PASS 2 USER'S OWN PAGE NO. 2 PAGE 216
P0018 BANK 5 PORTION OF 1800 PASS 2. ENTER IN COSEQUENCE MODE WITH 1800 MXR IN Z,MXR, ADDRESS CUSSALOG IN
R0020 AU2, AND ADDRESS CUSS LIST IN AU1. BANK INDICATOR 5 IS LEFT IN R5. BANK 5 ALSO CONTAINS MASKS FOR 1800 PASS 2.
0022 SETLOC,3 0 B5
0023 UNSCRAMB SWE, B38T48M N,AU2 0 N,AU1 C ZERO DEMAND BITS, MOVE SUBADDR OF CUSS3.
0025 SWS, B34T37M N,AU2 25 N,AU1 C MOVE POISON BIT AND LENGTH OF CUSS 3.
0027 SWS, B22T32M N,AU2 4,L N,AU1 C MOVE SUBADDRESS OF CUSS 2.
0029 SWS, B18T21M N,AU2 13 N,AU1 C MOVE POISON BIT AND LENGTH OF CUSS 2.
0031 SWS, B6T16M N,AU2 8,L N,AU1 C MOVE SUBADDRESS OF CUSS 1.
0033 SWS, B2T5M N,AU2,1 1 N,AU1,1 C MOVE POISON BIT AND LENGTH OF CUSS 1.
0035 NA N,AU2 SENTINEL UNSCRAMB C
0036 TX Z,AU2 - Z,R5 S SET BANK INDICATOR 5 IN R5, EXIT.
0038 CUSSALOG M,D,400 CDNO CUSS
0039 RESERVE 18
0040 M,D,0FE NMC1 CUSS CAFS CUSS
0041 RESERVE 3
0042 M,D,E00 NMC2 CUSS
0043 RESERVE 8
0044 SENTINEL DEC BB00 FFFF
0045 CDNO CUSS ALF,4 CARD NUMBER OUT OF SEQUENCE
0046 NMC1 CUSS ALF,5 NO MATCH FOUND FOR CARD NUMBER OR ACCEPT
0047 ALF OR TEXT
0048 CAFS CUSS ALF,5 FIRST CARD NUMBER NOT LESS THAN SECOND
0049 NMC2 CUSS ALF,5 NO MATCH FOUND FOR SECOND CARD NUMBER
# END OF REVISION 27 OF PROGRAM YULPASS2 BY HB-S
# Page 481
# @YUL SYSTEM ASSEMBLER 1800 PASS 2 PAGE 217
# No source on this page, assembly listing output.