.NLIST .INCLUDE /ASCII.MAC/ ; .INCLUDE /HWDF.MAC/ ; .INCLUDE /DSMAC.MAC/ ; .INCLUDE /MYMAC.MAC/ .LIST .TITLE HGICP .IDENT /01/ ; ; TKB info ; ; Build Date 08-Jan-2026 ; /CP/-CM/-SE ; ; TASK=HGICP ; STACK=281 ; UNITS=20 ; UIC=[10,10] ; PRI=0 ; IDENT=V02.00 ; ; ; Label info ; ; ; Label dump ; ; TASK= Task name : HGICP ; PAR= Task partition : GEN ; PAR=:L_BSA Base address of task : 0 ; Highest windows 0 virtual address : 62377 ; Highest virtual address in task : 62377 ; Load size in 64 byte blocks (size of root segment) : 404 624 ; Maximum size in 64 byte blocks (size of root segment + overlays) : 404 624 ; Taks offset in partition : 0 ; Number of windows block : 1 ; System I.D. : 1 ; Size of overlay segment descriptors : 18 ; Task flags word : TS_NEW, TS_CHK ; Task creation date - year, month, day : 08-Jan-2026 ; -> Shared Regions ; Task priority : 0 ; Task transfer address : 1 ; EXTTSK= Task extension (64-byte blocks) : 0 ; Block number of segment load list : 0 ; Block number of header : 2 ; Number of blocks in label : 2 ; Number of logical units : 20 ; Relative block of R/O image : 54 ; R/O load size : 0 ; R/O data size in 32-word blocks : 0 ; Relative block number of data header : 0 ; High virtual address of data window 1 : 0 ; High virtual address of data : 0 ; Load size of data : 0 ; Maximum size of data : 0 ; ?? : 207 317 ; ; Common Label dump ; Shared region name : POSRES ; Base virtual address : 140000 ; Highest address in first library window : 140000 ; Highest address in library : 177777 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 384 ; Library offset into region : 0 ; Number of library window blocks : 258 ; Size of library overlay segment descriptor : 18 ; Library flag word : LD_RES, LD_SCL ; Library creation date : 13-Sep-1985 ; /Common Label dump ; ; Common Label dump ; Shared region name : CGLFPU ; Base virtual address : 140000 ; Highest address in first library window : 140000 ; Highest address in library : 177777 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 250 ; Library offset into region : 0 ; Number of library window blocks : 257 ; Size of library overlay segment descriptor : 18 ; Library flag word : LD_RES, LD_CLS ; Library creation date : 12-May-1984 ; /Common Label dump ; ; Common Label dump ; Shared region name : RMSRES ; Base virtual address : 140000 ; Highest address in first library window : 140000 ; Highest address in library : 177777 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 3 ; Library offset into region : 0 ; Number of library window blocks : 258 ; Size of library overlay segment descriptor : 18 ; Library flag word : LD_REL, LD_RES, LD_CLS ; Library creation date : 08-Aug-1983 ; /Common Label dump ; ; Common Label dump ; Shared region name : ; Base virtual address : 0 ; Highest address in first library window : 0 ; Highest address in library : 0 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 0 ; Library offset into region : 0 ; Number of library window blocks : 0 ; Size of library overlay segment descriptor : 0 ; Library flag word : 0 ; Library creation date : 01-Jan-1900 ; /Common Label dump ; ; Common Label dump ; Shared region name : ; Base virtual address : 0 ; Highest address in first library window : 0 ; Highest address in library : 0 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 0 ; Library offset into region : 0 ; Number of library window blocks : 0 ; Size of library overlay segment descriptor : 0 ; Library flag word : 0 ; Library creation date : 01-Jan-1900 ; /Common Label dump ; ; Common Label dump ; Shared region name : ; Base virtual address : 0 ; Highest address in first library window : 0 ; Highest address in library : 0 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 0 ; Library offset into region : 0 ; Number of library window blocks : 0 ; Size of library overlay segment descriptor : 0 ; Library flag word : 0 ; Library creation date : 01-Jan-1900 ; /Common Label dump ; ; Common Label dump ; Shared region name : ; Base virtual address : 0 ; Highest address in first library window : 0 ; Highest address in library : 0 ; Library load size (64 byte blocks) : 0 ; Library max size (64 byte blocks) : 0 ; Library offset into region : 0 ; Number of library window blocks : 0 ; Size of library overlay segment descriptor : 0 ; Library flag word : 0 ; Library creation date : 01-Jan-1900 ; /Common Label dump ; /Label dump ; ; ; ; Header info ; ; ; Header dump ; ; Current stack pointer : 000000 ; Header length : 210./000322 ; Event flag mask : 107120 ; Supervisor mode mapping mask : 120 ; I- and D-space mode mapping mask : 216 ; ?? : 131716 ; Event flag address : 131716 ; Current UIC : [10,10] ; Default UIC : [10,10] ; Initial PS : 174017 ; Initial PC : 000001 ; Initial SP : 001404 ; ODT SST vector address : 000000 ; ODT SST vector length : 0 ; Task SST vector address : 000000 ; Task SST vector length : 0 ; Power fail AST control block : 000000 ; Floating-point AST control block : 000000 ; Receive AST control block : 000000 ; Address of event flag context : 000000 ; Address of floating-point context : 140322 ; Pointer to number of window block -> H.NWIN (NumberOfWindows) : 000216 ; Directive status word : 0 ; Address of FCS impure storage : 000000 ; Address of FORTRAN impure storage : 000000 ; Address of overlay impure storage : 060112 ; Address of impure vectors : 000000 ; Swapping priority : 000 ; Mailbox LUN : 000000 ; Receive by reference AST control block : 000000 ; H_X25 : 000 ; Reserved : 000 ; Reserved : 000000 ; Reserved : 000000 ; Header guard word pointer : 000320 ; Number of luns : 20 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; UCBAddress : 000000 ; WindowBlockPointer : 000000 ; Number of Window blocks : 3 ; Partition control block address : 000000 ; Low virtual address limit : 000000 ; High virtual address limit : 000000 ; Address of attachment descriptor : 000000 ; Size of window in 32w blocks : 000000 ; Physical memory offset in 32w blocks : 000000 ; First PDR address : 000 ; Number of PDR's to map : 000 ; Contents of last PDR : 000000 ; Partition control block address : 000000 ; Low virtual address limit : 000000 ; High virtual address limit : 000000 ; Address of attachment descriptor : 000000 ; Size of window in 32w blocks : 000000 ; Physical memory offset in 32w blocks : 000000 ; First PDR address : 000 ; Number of PDR's to map : 000 ; Contents of last PDR : 000000 ; Partition control block address : 000000 ; Low virtual address limit : 000000 ; High virtual address limit : 000000 ; Address of attachment descriptor : 000000 ; Size of window in 32w blocks : 000000 ; Physical memory offset in 32w blocks : 000000 ; First PDR address : 000 ; Number of PDR's to map : 000 ; Contents of last PDR : 000000 ; Current PS : 000000 ; Current PC : 000000 ; Current R5 Initial value - Relative block number of header : 000002 ; Current R4 Initial value - Ident word #2 : 131716 ; Current R3 Initial value - Ident word #1 : 107120 ; Ident : V02.00 ; Current R2 Initial value - Task name word #2 (if include debugger) : 000000 ; Current R1 Initial value - Task name word #1 (if include debugger) : 000000 ; Task name : ; Current R0 Initial value - Program transfer address (if include debugger) : 000000 ; Header guard word : 000000 .ASECT .=^O<0> START: .WORD 0 ;[Header] | Current stack pointer ;Header length .ASCII |P|<216> ;Event flag mask | Supervisor mode mapping mask ;I- and D-space mode mapping mask .WORD 131716 ;?? | Event flag address .BYTE 10, 10 ;Current UIC .BYTE 10, 10 ;Default UIC .WORD 174017 ;Initial PS .WORD 1 ;Initial PC .WORD AIND ;Initial SP .WORD 0 ;ODT SST vector address .WORD 0 ;ODT SST vector length .WORD 0 ;Task SST vector address .WORD 0 ;Task SST vector length .WORD 0 ;Power fail AST control block .WORD 0 ;Floating-point AST control block .WORD 0 ;Receive AST control block .WORD 0 ;Address of event flag context .NOVPT: .WORD 140322 ;Address of floating-point context .WORD K00216 ;Pointer to number of window block -> H.NWIN (NumberOfWindows) $DSW: .WORD 0 ;Directive status word .FSRPT: .WORD 0 ;Address of FCS impure storage $OTSV: .WORD 0 ;Address of FORTRAN impure storage .NOVPT: .WORD .NOVLY ;Address of overlay impure storage $VEXT: .WORD 0 ;Address of impure vectors $SWPR: .BYTE 0 ;Swapping priority $NML: .BYTE 0 ;Mailbox LUN .WORD 0 ;Receive by reference AST control block .BYTE 0 ;H_X25 .BYTE 0 ;Reserved .WORD 0 ;Reserved .WORD 0 ;Reserved .WORD 320 ;Header guard word pointer .WORD 24 ;Number of luns ; ;LUN table (2 words per LUN) ; .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer .WORD 0 ;UCBAddress .WORD 0 ;WindowBlockPointer K00216: .WORD 3 ;Number of Window blocks ; ;Window Blocks ; .WORD 0 ;Partition control block address .WORD 0 ;Low virtual address limit .WORD 0 ;High virtual address limit .WORD 0 ;Address of attachment descriptor .WORD 0 ;Size of window in 32w blocks .WORD 0 ;Physical memory offset in 32w blocks .BYTE 0 ;First PDR address .BYTE 0 ;Number of PDR's to map .WORD 0 ;Contents of last PDR .WORD 0 ;Partition control block address .WORD 0 ;Low virtual address limit .WORD 0 ;High virtual address limit .WORD 0 ;Address of attachment descriptor .WORD 0 ;Size of window in 32w blocks .WORD 0 ;Physical memory offset in 32w blocks .BYTE 0 ;First PDR address .BYTE 0 ;Number of PDR's to map .WORD 0 ;Contents of last PDR .WORD 0 ;Partition control block address .WORD 0 ;Low virtual address limit .WORD 0 ;High virtual address limit .WORD 0 ;Address of attachment descriptor .WORD 0 ;Size of window in 32w blocks .WORD 0 ;Physical memory offset in 32w blocks .BYTE 0 ;First PDR address .BYTE 0 ;Number of PDR's to map .WORD 0 ;Contents of last PDR .WORD 0 ;Current PS .WORD 0 ;Current PC .WORD 2 ;Current R5 Initial value - Relative block number of header .RAD50 |.00| ;Current R4 Initial value - Ident word #2 | Ident .RAD50 |V02| ;Current R3 Initial value - Ident word #1 .RAD50 | | ;Current R2 Initial value - Task name word #2 (if include debugger) | Task name .RAD50 | | ;Current R1 Initial value - Task name word #1 (if include debugger) .WORD 0 ;Current R0 Initial value - Program transfer address (if include debugger) .WORD 0 ;Header guard word [/Header] .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 131716 .WORD 2 .WORD 0 .WORD 0 AIND: CALL $ARG1 MOV R5, K05742 TST D$BA BNE M01426 CALL $EAINI M01426: TST K06246 BEQ M01440 CALL $ECONF M01440: MOV #1, R0 M01444: INC R0 CALL $MCHEC CMP R0, #5 BNE M01444 MOV 2(R5), K05714 MOV 6(R5), K06036 MOV #1, K05744 CLR K05746 CLR K06110 CLR K06004 CLR K05770 CLR K05772 CLR K05730 CLR K05732 CLR K05724 CLR K05726 MOV #5726, K06050 MOV #5730, K06052 MOV #5724, K06054 MOV #1, K05774 CLR K05776 CLR K06000 CLR K06006 CLR K06010 CLR K06012 CLR K06014 CLR K06016 CLR K05734 CLR K27314 MOV #1, K27312 MOV #177777, R1 MOV R1, K06112 MOV R1, K06106 MOV R1, K06046 MOV R1, K06060 MOV 12(R5), K06104 INC R0 CMPB (R5), R0 BPL M01714 JMP M02470 M01714: CMP #177777, 14(R5) BEQ M01772 CALL $WBCHK MOV 14(R5), R2 INC K27314 MOV (R2)+, R3 MOV (R2), R4 MOV R3, K05744 MOV R4, K05746 TST R4 BNE M01764 TST R3 CLN M01764: BGT M01772 CALL $EICOU M01772: INC R0 CMPB (R5), R0 BPL M02004 JMP M02470 M02004: CMP #177777, 16(R5) BEQ M02034 CALL $WBCHK MOV 16(R5), K06106 MOV @16(R5), K06110 M02034: INC R0 CMPB (R5), R0 BMI M02434 CMP #177777, 20(R5) BEQ M02070 CALL $WBCHK MOV 20(R5), K06046 CALL M05564 M02070: INC R0 CMPB (R5), R0 BMI M02470 CMP #177777, 22(R5) BEQ M02164 CALL $WBCHK MOV 22(R5), K06050 MOV @22(R5), R4 CMP R4, #4 BEQ M02140 CMP R4, #5 BNE M02144 M02140: INC K06004 M02144: MOV R4, K05726 BMI M02160 CMP #5, R4 BPL M02164 M02160: CALL $EICON M02164: INC R0 CMPB (R5), R0 BMI M02470 TST K06004 BEQ M02214 MOV #2, R4 MOV #6002, K06052 BR M02242 M02214: CMP #177777, 24(R5) BEQ M02266 CALL $WBCHK MOV 24(R5), K06052 MOV @24(R5), R4 M02242: MOV R4, K05730 MOV R4, K05732 BMI M02262 CMP #2, R4 BPL M02266 M02262: CALL $EIFOR M02266: INC R0 CMPB (R5), R0 BMI M02470 CMP #177777, 26(R5) BEQ M02342 CALL $WBCHK MOV 26(R5), K06054 MOV @26(R5), R4 MOV R4, K05724 BMI M02336 CMP #2, R4 BPL M02342 M02336: CALL $EITRI M02342: INC R0 CMPB (R5), R0 BMI M02470 CMP #177777, 30(R5) BEQ M02372 CALL $WBCHK MOV 30(R5), K06112 M02372: INC R0 CMPB (R5), R0 BMI M02470 CMP #177777, 32(R5) BEQ M02436 CALL $WBCHK MOV 32(R5), K06060 MOV R5, R1 CALL $CPARS INC K05734 M02434: BR M02470 M02436: INC R0 CMP (R5), R0 BMI M02470 CMP #177777, 34(R5) BEQ M02470 CALL $WBCHK MOV 34(R5), R4 CLR (R4)+ CLR (R4) M02470: TST K27314 BNE M02524 CMP #1, K27312 BEQ M02524 CMP K05744, K27312 BPL M02524 MOV K27312, K05744 M02524: TST K05734 BNE M02604 CMP #2, K05724 BEQ M02604 MOV K27312, R0 SXT R1 CMP K05746, R1 BNE M02570 CMP K05744, R0 BEQ M02570 ROR R2 .WORD CLZ!CLV M02570: BLE M02604 MOV K27312, K05744 CLR K05746 M02604: CMP K05726, #4 BMI M02622 MOV #2, K05730 M02622: MOV #400, K05760 CLR K05762 MOV #177770, R4 CMP #2, K05730 BNE M02660 MOV #200, K05760 INC R4 M02660: MOV K05744, R1 MOV K05746, R0 ASHC R4, R0 MOV R1, K05754 MOV R0, K05756 NEG R4 ASHC R4, R0 CMP R0, K05746 BNE M02720 CMP R1, K05744 M02720: BEQ M02734 ADD #1, K05754 ADC K05756 M02734: MOV K05760, K05750 TST K05756 BNE M02756 CMP K05754, #1 M02756: BNE M02766 MOV K05744, K05750 M02766: ADD #1, K05754 ADC K05756 MOV 2(R5), K06124 MOVB C$MDB2, K06146 BISB #40, K06146 MOV #6122, R5 MOV K06104, K06132 BIS #1, K06110 MOV K06112, K06136 CLR K06150 CALL ABST00 CMP #177777, @K06124 BEQ M03110 M03070: TST K06150 BEQ M03070 BIT #100000, @K06124 BEQ M03166 M03106: RETURN M03110: MOV K06124, R3 ADD #3, R3 CMPB #4, (R3) BEQ M03144 CMPB #5, (R3) BEQ M03152 CMPB #6, (R3) BEQ M03160 BR M03106 M03144: MOVB #5, (R3) BR M03106 M03152: MOVB #7, (R3) BR M03106 M03160: MOVB #14, (R3) BR M03106 M03166: MOV K05742, R5 MOV 10(R5), R4 CLR R3 M03200: TSTB (R4) BEQ M03222 CMPB (R4)+, #40 BEQ M03222 INC R3 CMP R3, #50 BMI M03200 M03222: MOV R3, K27322 MOV @4(R5), K27324 MOV #27326, R0 MOV 10(R5), R2 MOVB K27322, 54(R0) MOV R2, 50(R0) MOVB K27324, 63(R0) BIS #400, 22(R0) MOVB #0, 25(R0) MOVB #1, 27(R0) BISB #10, 26(R0) MOV #1000, 36(R0) MOV K05754, 12(R0) MOV K05756, 14(R0) BISB #41, 20(R0) BISB #42, 20(R0) MOV R5, -(SP) MOV R0, -(SP) MOV #1, -(SP) MOV SP, R5 CALL $RMCRE ADD #4, SP MOV (SP)+, R5 MOV 6(R0), K05722 TST K05722 BGT M03422 CALL M05546 M03416: JMP M03106 M03422: MOV #27506, R0 MOV #27326, 44(R0) MOVB #1, 37(R0) MOV R5, -(SP) MOV R0, -(SP) MOV #1, -(SP) MOV SP, R5 CALL $RMCON ADD #4, SP MOV (SP)+, R5 MOV 6(R0), K05722 TST K05722 BGT M03510 CALL M05546 BR M03416 M03510: MOV 6(R5), R3 MOV K05764, (R3)+ MOV K05766, (R3)+ MOV K27312, (R3)+ MOV K05770, (R3)+ MOV K05772, (R3)+ MOV K05732, (R3)+ MOV K05726, (R3)+ MOV #10, R2 CLR R4 M03556: CLR R1 RORB K27310 ADC R1 ADD R1, R4 MOV R1, (R3)+ SOB R2, M03556 TST R4 BNE M03614 MOV 6(R5), R4 ADD #16, R4 MOV #1, (R4) M03614: MOV #31, R2 M03620: CLR (R3)+ SOB R2, M03620 MOV #1, K06026 CLR K06030 MOV #1000, R2 MOV 6(R5), R4 MOV #6020, R3 MOV R4, (R3)+ ADD R2, R4 MOV R4, (R3)+ ADD R2, R4 MOV R4, (R3)+ MOV K06026, 46(R0) MOV K06030, 50(R0) MOV K06020, 32(R0) MOV #1000, 30(R0) MOV R5, -(SP) MOV R0, -(SP) MOV #1, -(SP) MOV SP, R5 CALL $RMWRI ADD #4, SP MOV (SP)+, R5 MOV 6(R0), K05722 TST K05722 BGT M03762 CALL M05546 BR M03416 M03762: MOV K06106, K06044 MOV K06104, K06042 CMP #177777, K06106 BEQ M04050 MOV @K06106, K06102 MOV #6102, K06044 BIC #1, K06102 MOV @K06104, K06120 MOV K06120, -(SP) MOV #1037, -(SP) EMT 377 M04050: MOV K06112, K06056 MOV #4164, R4 MOV #6032, R5 MOV K06056, K06100 MOV K06044, K06076 MOV K06042, K06074 MOV K05714, R2 CLR (R2)+ CLR (R2) CALL Z$AIN BR M04132 M04126: JMP M03106 M04132: CMP #177777, K05716 BEQ M04156 MOV K06120, -(SP) MOV #1051, -(SP) EMT 377 BR M04126 M04156: CALL M05660 BR M04126 MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) TST K06016 BNE M04504 MOV K05716, R0 BIT #100000, R0 BNE M04362 ADD #1, K06006 ADC K06010 ADD K05720, K05770 ADC K05772 CMP #40040, R0 BEQ M04374 CMP #40100, R0 BEQ M04374 MOV K05744, R0 MOV K05746, R1 SUB K05770, R0 SBC R1 SUB K05772, R1 MOV R0, K06114 MOV R1, K06116 BIS R0, R1 BEQ M04374 CMP K06116, K05762 BNE M04340 CMP K06114, K05760 ROR R0 .WORD CLZ!CLV M04340: BLT M04352 MOV K05760, K05752 BR M04412 M04352: MOV K06114, K05752 BR M04412 M04362: CALL M05660 CALL M04530 BR M04504 M04374: CALL M05660 CALL M05244 CALL M04656 BR M04504 M04412: INC K05774 CMP K05774, #4 BNE M04434 MOV #1, K05774 M04434: MOV K05774, R0 DEC R0 ASL R0 MOV 6020(R0), K06070 MOV #6064, R5 MOV #4164, R4 CALL Z$ABUF CMP #177777, @K06066 BEQ M04362 CALL M05244 BR M04504 M04504: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 TST (SP)+ MOV #563, -(SP) EMT 377 M04530: CLR K06246 CALL M05712 MOV R5, -(SP) MOV #4630, -(SP) MOV #27326, -(SP) MOV #2, -(SP) MOV SP, R5 CALL $RMCLO ADD #6, SP MOV (SP)+, R5 MOV R5, -(SP) MOV #4630, -(SP) MOV #27326, -(SP) MOV #2, -(SP) MOV SP, R5 CALL $RMERA ADD #6, SP MOV (SP)+, R5 JMP M05230 MOV R1, -(SP) MOV #27326, R1 MOV 6(R1), K05722 CALL M05546 MOV (SP)+, R1 JMP M05230 M04656: CLR K06246 CALL M05712 MOV #1, K06026 CLR K06030 MOV R0, -(SP) MOV #27506, R0 MOV K06026, 46(R0) MOV K06030, 50(R0) MOV K06020, 26(R0) MOV #1000, 24(R0) MOV (SP)+, R0 MOV R5, -(SP) MOV #5000, -(SP) MOV #4530, -(SP) MOV #27506, -(SP) MOV #3, -(SP) MOV SP, R5 CALL $RMREA ADD #10, SP MOV (SP)+, R5 RETURN MOV R0, -(SP) MOV R1, -(SP) MOV #27506, R0 MOV K06020, R1 MOV K05764, (R1)+ MOV K05766, (R1)+ TST (R1)+ MOV K05770, (R1)+ MOV K05772, (R1)+ MOV (SP)+, R1 MOV #1, K06026 CLR K06030 MOV K06026, 46(R0) MOV K06030, 50(R0) MOV K06020, 32(R0) MOV (SP)+, R0 MOV R5, -(SP) MOV #5136, -(SP) MOV #4530, -(SP) MOV #27506, -(SP) MOV #3, -(SP) MOV SP, R5 CALL $RMWRI ADD #10, SP MOV (SP)+, R5 RETURN MOV R5, -(SP) MOV #5176, -(SP) MOV #4530, -(SP) MOV #27506, -(SP) MOV #3, -(SP) MOV SP, R5 CALL $RMDIS ADD #10, SP MOV (SP)+, R5 RETURN MOV R5, -(SP) MOV #4530, -(SP) MOV #27326, -(SP) MOV #2, -(SP) MOV SP, R5 CALL $RMCLO ADD #6, SP MOV (SP)+, R5 M05230: MOV K06120, -(SP) MOV #1041, -(SP) EMT 377 RETURN M05244: TST K06000 BNE M05466 MOV K06006, K05736 SUB K06012, K05736 CMP #2, K05736 BMI M05512 TST K05736 BEQ M05466 INC K05776 CMP K05776, #4 BNE M05326 MOV #1, K05776 M05326: MOV K05776, K05736 DEC K05736 ASL K05736 ADD #6020, K05736 MOV @K05736, K05736 ADD #1, K06026 ADC K06030 MOV R4, -(SP) MOV #27506, R4 MOV K06026, 46(R4) MOV K06030, 50(R4) MOV K05736, 32(R4) MOV (SP)+, R4 INC K06000 MOV R5, -(SP) MOV #5470, -(SP) MOV #5512, -(SP) MOV #27506, -(SP) MOV #3, -(SP) MOV SP, R5 CALL $RMWRI ADD #10, SP MOV (SP)+, R5 M05466: RETURN CLR K06000 ADD #1, K06012 ADC K06014 JMP M05244 M05512: MOV R1, -(SP) MOV K05714, R1 MOV #140004, (R1)+ CLR (R1) MOV (SP)+, R1 INC K06016 CALL M05712 CALL M04530 RETURN M05546: MOV K05714, R1 MOV #140010, (R1)+ MOV K05722, (R1) RETURN M05564: MOV R0, R2 ASL R2 ADD R5, R2 MOV (R2), R2 CLRB K27310 CLR K27312 MOV #10, R1 M05610: TST (R2)+ BEQ M05632 INC K27312 SEC M05622: RORB K27310 SOB R1, M05610 BR M05636 M05632: CLC BR M05622 M05636: TSTB K27310 BNE M05656 INC K27312 MOVB #1, K27310 M05656: RETURN M05660: MOV K05714, R2 MOV K05716, (R2)+ MOV K05720, (R2) RETURN INC K06150 TST (SP)+ MOV #563, -(SP) EMT 377 M05712: RETURN K05714: .WORD 0 K05716: .WORD 0 K05720: .WORD 0 K05722: .WORD 0 K05724: .WORD 0 K05726: .WORD 0 K05730: .WORD 0 K05732: .WORD 0 K05734: .WORD 0 K05736: .WORD START .WORD 0 K05742: .WORD 0 K05744: .WORD 0 K05746: .WORD 0 K05750: .WORD 0 K05752: .WORD 0 K05754: .WORD 0 K05756: .WORD 0 K05760: .WORD 0 K05762: .WORD 0 K05764: .WORD 0 K05766: .WORD 0 K05770: .WORD 0 K05772: .WORD 0 K05774: .WORD 0 K05776: .WORD 0 K06000: .WORD 0 .WORD 2 K06004: .WORD 0 K06006: .WORD 0 K06010: .WORD 0 K06012: .WORD 0 K06014: .WORD 0 K06016: .WORD 0 K06020: .WORD 0 .WORD 0 .WORD 0 K06026: .WORD 0 K06030: .WORD 0 .WORD 14 .WORD 5716 K06036: .WORD 0 .WORD 5750 K06042: .WORD 0 K06044: .WORD 0 K06046: .WORD 0 K06050: .WORD 0 K06052: .WORD 0 K06054: .WORD 0 K06056: .WORD 0 K06060: .WORD 0 .WORD 5764 .WORD 6 K06066: .WORD K05716 K06070: .WORD 0 .WORD 5752 K06074: .WORD 0 K06076: .WORD 0 K06100: .WORD 0 K06102: .WORD 0 K06104: .WORD START K06106: .WORD START K06110: .WORD 0 K06112: .WORD 0 K06114: .WORD 0 K06116: .WORD 0 K06120: .WORD 0 .WORD 10 K06124: .WORD START .WORD 6146 .WORD 6144 K06132: .WORD 0 .WORD 6110 K06136: .WORD 0 .WORD 5676 .WORD 6152 .WORD 1 K06146: .WORD 0 K06150: .WORD 0 .WORD 0 $RMCLO: MOV #54, -(SP) JSR R1, 0 $RMCON: MOV #60, -(SP) JSR R1, 0 $RMCRE: MOV #34, -(SP) JSR R1, 0 $RMDIS: MOV #64, -(SP) JSR R1, 0 $RMERA: MOV #20, -(SP) JSR R1, 0 $RMREA: MOV #150, -(SP) BR M06236 $RMWRI: MOV #154, -(SP) M06236: JSR R1, 0 D$BA: M06243 =: .+1 HALT K06244: .BYTE 0 K06245: .BYTE 0 K06246: .BYTE 0 K06247: .BYTE 0 C$MDB0: .BYTE 0 C$MDB1: .BYTE 100 C$MDB2: .BYTE 200 C$MDB3: .BYTE 300 C$PREV: .WORD 0 $IFORM: .WORD 0 $ABINI: .BYTE 0 K06261: .BYTE 0 K06262: .BYTE 0 K06263: .BYTE 0 CLKFRQ: MOV #1, K06342 MOV 2(R5), K06326 MOV 4(R5), K06330 MOV R5, -(SP) MOV #6324, R5 CALL FCLFRQ MOV (SP)+, R5 RETURN .WORD 6 K06326: .WORD 0 K06330: .WORD 0 .WORD 0 .WORD 6342 .WORD 0 .WORD 0 K06342: .WORD 0 SCRINI: MOV #10, R4 CALL M10242 BCC M06362 JMP M10174 M06362: CALL M10176 CLR K27230 CLR K27264 TST @4(R5) BLT M06414 CMP @4(R5), #7 BLE M06426 M06414: MOV #3, @2(R5) JMP M10174 M06426: MOV @4(R5), R0 ASL R0 ADD K13022, R0 TST 2(R0) BNE M06460 MOV #3, @2(R5) JMP M10174 M06460: SETF LDD #140640, AC1 CMPD @14(R5), AC1 CFCC BLT M06512 LDD #40640, AC2 CMPD @14(R5), AC2 CFCC BLE M06524 M06512: MOV #4, @2(R5) JMP M10174 M06524: CMPD @16(R5), AC1 CFCC BLT M06550 LDD #40640, AC1 CMPD @16(R5), AC1 CFCC BLE M06562 M06550: MOV #5, @2(R5) JMP M10174 M06562: LDD @14(R5), AC1 CMPD @16(R5), AC1 CFCC BGT M06610 MOV #6, @2(R5) JMP M10174 M06610: TST @10(R5) BLT M06626 CMP @10(R5), #5 BLE M06640 M06626: MOV #7, @2(R5) JMP M10174 M06640: TST @12(R5) BLT M06656 CMP @12(R5), #2 BLE M06670 M06656: MOV #10, @2(R5) JMP M10174 M06670: CMP @20(R5), #1 BLT M06710 CMP @20(R5), #7 BLE M06722 M06710: MOV #15, @2(R5) JMP M10174 M06722: LDD @14(R5), AC1 STD AC1, K27212 LDD @16(R5), AC1 STD AC1, K27216 MOV @4(R5), K27234 MOV #1, R4 M06754: MOV R4, R0 ASL R0 MOV R0, R3 ADD K13022, R3 MOV (R3), 27242(R0) INC R4 CMP R4, #10 BLE M06754 MOV R4, K27226 MOV @10(R5), K27240 MOV @12(R5), K27242 SETF LDD K27222, AC1 TST @10(R5) BNE M07042 LDD #40200, AC1 M07042: CMP @10(R5), #1 BNE M07056 LDD #40600, AC1 M07056: CMP @10(R5), #2 BNE M07072 LDD #41200, AC1 M07072: CMP @10(R5), #3 BNE M07106 LDD #41600, AC1 M07106: STD AC1, K27222 CMP @10(R5), #4 BEQ M07132 CMP @10(R5), #5 BNE M07140 M07132: MOV #2, K27242 M07140: MOV R5, -(SP) MOV #14236, R5 CALL M57272 MOV #14242, R5 CALL M57272 MOV (SP)+, R5 SETF LDD #40000, AC1 LDD @14(R5), AC2 SUBD AC1, AC2 STD AC2, K27270 ADDD @16(R5), AC1 STD AC1, K27274 MOV R5, -(SP) MOV #14246, R5 CALL M57272 MOV #14262, R5 CALL M57272 MOV #14270, R5 CALL M57272 MOV #14276, R5 CALL M57272 MOV #14304, R5 CALL M57272 MOV #14312, R5 CALL M57272 MOV (SP)+, R5 MOV 20(R5), K13044 MOV R5, -(SP) MOV #13040, R5 CALL M57272 MOV (SP)+, R5 CLR @2(R5) MOV #1, K27264 JMP M10174 SCROLL: MOV #4, R4 CALL M10242 BCC M07356 JMP M10174 M07356: CALL M10220 CMP K27264, #1 BEQ M07404 MOV #17, @2(R5) JMP M10174 M07404: TST @6(R5) BNE M07424 MOV #24, @2(R5) JMP M10174 M07424: TST @6(R5) BGE M07444 MOV #23, @2(R5) JMP M10174 M07444: TST @10(R5) BGE M07464 MOV #16, @2(R5) JMP M10174 M07464: TST @10(R5) BNE M07502 MOV #1, K27232 BR M07510 M07502: MOV @10(R5), K27232 M07510: SETF LDD K27176, AC1 STD AC1, K27300 MOV #1, K27226 M07530: TST K27230 BMI M07664 CMP K27242, #2 BNE M07604 MOV K13034, R0 MOV 2(R0), K27310 MOV 4(R0), K27312 MOV R5, -(SP) MOV #14320, R5 CALL CNVDIF MOV (SP)+, R5 BR M07642 M07604: MOV K13034, R0 SETF SETI LDCLD 2(R0), AC1 MULD #40640, AC1 LDD K27222, AC2 MULD K14356, AC2 DIVD AC2, AC1 STD AC1, K27304 M07642: MOV R5, -(SP) MOV #14326, R5 CALL M57272 MOV (SP)+, R5 MOV #177777, K27230 M07664: SETF LDD K27176, AC1 CMPD K27300, AC1 CFCC BLT M07764 MOV R5, -(SP) MOV #14336, R5 CALL M57272 MOV (SP)+, R5 SETF LDD K27202, AC1 LDD K27300, AC2 SUBD AC1, AC2 STD AC2, K27300 NEGD AC1 STD AC1, -(SP) MOV SP, K13052 MOV R5, -(SP) MOV #13046, R5 CALL M57272 MOV (SP)+, R5 CMP (SP)+, (SP)+ M07764: SETF LDD K27300, AC1 ADDD K27206, AC1 STD AC1, K27300 CMP K27242, #2 BNE M10062 MOV K27226, R0 ASL R0 MOV R0, K27266 ASL R0 ADD K13034, R0 MOV 177776(R0), K27310 MOV (R0), K27312 MOV R5, -(SP) MOV #14320, R5 CALL CNVDIF MOV (SP)+, R5 BR M10122 M10062: MOV K27226, R0 ASL R0 ADD K13034, R0 SETI LDCLD (R0), AC1 MULD #40640, AC1 LDD K27222, AC2 MULD K14356, AC2 DIVD AC2, AC1 STD AC1, K27304 M10122: MOV R5, -(SP) MOV #14346, R5 CALL M57272 MOV (SP)+, R5 MOV @6(R5), R0 SUB K27232, R0 CMP K27226, R0 BLE M10156 BR M10170 M10156: ADD K27232, K27226 JMP M07530 M10170: CLR @2(R5) M10174: RETURN M10176: MOV 6(R5), R0 MOV R0, K13020 SUB #2, R0 MOV R0, K13022 RETURN M10220: MOV 4(R5), R0 MOV R0, K13032 SUB #2, R0 MOV R0, K13034 RETURN M10242: MOV R5, R0 M10244: TST (R0)+ CMP #177777, (R0) BEQ M10270 BIT #1, (R0) BNE M10302 SOB R4, M10244 CCC M10266: RETURN M10270: MOV #1, @2(R5) M10276: SEC BR M10266 M10302: MOV #2, @2(R5) BR M10276 $ARG1: MOVB (R5), R1 TSTB R1 BEQ M10342 CMP 2(R5), #177777 BEQ M10342 BIT #1, 2(R5) BNE M10342 M10340: RETURN M10342: MOV #10356, R5 CALL DOUT TST (SP)+ BR M10340 .WORD 0 $LARGC: MOV R5, R1 MOV R0, R2 ASL R2 ADD R2, R1 MOV (R1), R1 RETURN $EVCHK: CALL $LARGC MOV (R1), R3 SWAB R3 TSTB R3 BEQ M10416 MOV #15, R4 BR $EDISP M10416: RETURN $EDISP: MOV 2(R5), R3 TST (R3)+ MOV R0, (R3) SWAB (R3) MOVB R4, (R3) MOV #177777, -(R3) TST (SP)+ RETURN $ENOAD: CLR R0 MOV #163, R4 BR $EDISP $MCHEC: CMPB (R5), R0 BMI $EMAND CALL $LARGC CMP #177777, R1 BNE $WBCZ $EMAND: MOV #12, R4 BR $EDISP $WBCZ: BIT #1, R1 BEQ M10514 MOV #13, R4 BR $EDISP M10514: RETURN $EICOU: MOV #14, R4 BR $EDISP $EICON: MOV #160, R4 BR $EDISP $EIFOR: MOV #162, R4 BR $EDISP $EITRI: MOV #36, R4 BR $EDISP $ECONF: CLR R0 MOV #157, R4 BR $EDISP $ECFRE: .WORD 12704 .WORD 161 .WORD 716 $EAINI: CLR R0 MOV #156, R4 BR $EDISP $WBCHK: CALL $LARGC BR $WBCZ ERASE: MOV #13102, R5 CALL M57272 MOV #13112, R5 CALL M57272 MOV #13106, R5 CALL M57272 RETURN FCLFRQ: MOV #1, K11426 SETF M10644: MOV K11426, R0 ASL R0 ASL R0 LDD 11362(R0), AC2 CMPD @2(R5), AC2 CFCC BLT M10704 LDD 11366(R0), AC2 CMPD @2(R5), AC2 CFCC BLT M10772 M10704: INC K11426 CMP K11426, #7 BLE M10644 LDD K11336, AC2 CMPD @2(R5), AC2 CFCC BLT M10750 LDD K11362, AC2 CMPD @2(R5), AC2 CFCC BLE M11162 M10750: LDD K11316, AC2 STD AC2, @4(R5) CLR @14(R5) CLR @12(R5) RETURN M10772: MOV K11426, R0 ASL R0 ASL R0 MOV R0, K11430 SETF LDD 11316(R0), AC2 DIVD @2(R5), AC2 STD AC2, -(SP) MOV SP, K11434 MOV R5, -(SP) MOV #11432, R5 CALL M11270 MOV (SP)+, R5 CMP (SP)+, (SP)+ MOV R1, K11440 MOV R0, K11436 MOV K11430, R0 SETF LDD 11316(R0), AC2 DIVD K11436, AC2 STD AC2, @4(R5) CMP @10(R5), #1 BNE M11110 RETURN M11110: LDD K11436, AC2 SETI STCDL AC2, @14(R5) DEC K11426 MOV K11426, @12(R5) M11134: SETF LDD @4(R5), AC2 CMPD @6(R5), AC2 CFCC BGE M11160 MOV #177777, @14(R5) M11160: RETURN M11162: SETF LDD K11356, AC2 DIVD @2(R5), AC2 STD AC2, -(SP) MOV SP, K11434 MOV R5, -(SP) MOV #11432, R5 CALL M11270 MOV (SP)+, R5 CMP (SP)+, (SP)+ MOV R1, K11440 MOV R0, K11436 SETF LDD K11356, AC2 DIVD K11436, AC2 STD AC2, @4(R5) MOV #7, @12(R5) LDD K11436, AC2 SETI STCDL AC2, @14(R5) BR M11134 M11270: SETF LDD @2(R5), AC0 ADDD #40000, AC0 MODD #40200, AC0 STD AC1, -(SP) MOV (SP)+, R0 MOV (SP)+, R1 RETURN K11316: .WORD 142571 .WORD 140000 .WORD 41172 .WORD 0 .WORD 41572 .WORD 0 .WORD 42172 .WORD 0 K11336: .WORD 42572 .WORD 0 .WORD 43172 .WORD 0 .WORD 43572 .WORD 0 .WORD 44172 .WORD 0 K11356: .WORD 44572 .WORD 0 K11362: .WORD 44372 .WORD 0 .WORD 37172 .WORD 175373 .WORD 37572 .WORD 174337 .WORD 40172 .WORD 175327 .WORD 40572 .WORD 175577 .WORD 41172 .WORD 175426 .WORD 41572 .WORD 175373 .WORD 42172 .WORD 175373 .WORD 42572 .WORD 175373 K11426: .WORD 0 K11430: .WORD 0 .WORD 1 K11434: .WORD 0 K11436: .WORD 0 K11440: .WORD 0 $WRF: CALL $SAV6 MOV 22(SP), R1 MOV 24(SP), R2 CLR R3 CLR R4 SUB #120, SP MOV SP, R5 MOV R5, -(SP) MOV 142(SP), -(SP) MOV 142(SP), -(SP) CLR -(SP) TST 2(SP) BNE M11524 BIS #2, (SP) MOV #6, 2(SP) M11524: ROL R1 ADC (SP) TST R1 BNE M11560 MOV #1, 2(SP) CLR -(SP) MOV #2, -(SP) MOV #1, -(SP) JMP M11764 M11560: CLR -(SP) SEC RORB R1 MOV R1, -(SP) CLRB (SP) BIC (SP), R1 SWAB (SP) CALL $NORM MOV (SP)+, R0 SUB #200, R0 BGT M11630 M11612: CALL $ML5 CALL $NORM DEC (SP) INC R0 BLE M11612 M11630: CALL $DV10 INC (SP) CALL $NORM TST R0 BGT M11630 BEQ M11660 M11650: CALL $SHFRC INC R0 BNE M11650 M11660: MOV 4(SP), R0 BIT #2, 2(SP) BNE M11700 ADD (SP), R0 BR M11702 M11700: INC R0 M11702: CMP R0, #7 BLE M11714 MOV #7, R0 M11714: MOV R0, -(SP) TST R0 BMI M11744 CALL $RLD CMP R1, #10000 BCS M11744 CALL $DV10 INC 2(SP) M11744: MOV 2(SP), -(SP) BIT #2, 6(SP) BEQ M11764 MOV #1, (SP) M11764: MOV R3, -(SP) MOV 14(SP), R3 SUB 2(SP), R3 SUB 12(SP), R3 DEC R3 DEC R3 BIT #2, 10(SP) BEQ M12022 SUB #4, R3 M12022: TST R3 BLE M12036 MOVB #40, (R5)+ DEC R3 BR M12022 M12036: MOV (SP)+, R3 BIT #1, 6(SP) BEQ M12056 MOVB #55, (R5)+ BR M12062 M12056: MOVB #40, (R5)+ M12062: TST (SP) BLE M12236 M12066: CALL $ML5 CALL $SHFL MOV R1, R0 BIC #7777, R0 BIC R0, R1 SWAB R0 ASR R0 ASR R0 ASR R0 ASR R0 ADD #60, R0 MOVB R0, (R5)+ DEC 2(SP) BNE M12144 CLR R1 CLR R2 CLR R3 CLR R4 M12144: DEC (SP) BGT M12066 BEQ M12242 DEC 10(SP) BPL M12066 M12160: TST (SP)+ TST (SP)+ MOV (SP)+, R3 BIT #2, (SP) BNE M12272 M12174: TST (SP)+ TST (SP)+ TST (SP)+ MOV (SP)+, R1 MOV R5, R2 SUB R1, R2 CALL $PUTCH ADD #120, SP CALL $RES6 MOV (SP)+, 6(SP) ADD #6, SP RETURN M12236: MOVB #60, (R5)+ M12242: MOVB #56, (R5)+ BR M12262 M12250: TST (SP) BEQ M12066 MOVB #60, (R5)+ INC (SP) M12262: DEC 10(SP) BPL M12250 BR M12160 M12272: MOVB #105, (R5)+ DEC R3 TST R3 BPL M12314 NEG R3 MOVB #55, (R5)+ BR M12320 M12314: MOVB #53, (R5)+ M12320: CLR R2 DIV #12, R2 ADD #60, R2 MOVB R2, (R5)+ ADD #60, R3 MOVB R3, (R5)+ BR M12174 M12344: CALL $SHFL DEC R0 $NORM: CMP #4000, R1 BHI M12344 M12360: CMP #10000, R1 BHI M12376 CALL $SHFRC INC R0 BR M12360 M12376: RETURN $DV10: MOV R5, -(SP) MOV #74, R5 M12406: CMP #50000, R1 BHI M12420 ADD #130000, R1 M12420: ROL R4 ROL R3 ROL R2 ROL R1 DEC R5 BNE M12406 MOV R1, R5 BIC #7777, R5 BIC R5, R1 MOV (SP)+, R5 RETURN $SHFRC: CLC $SHFR: ROR R1 ROR R2 ROR R3 ROR R4 RETURN $RLD: MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) CLR R2 MOV #4000, R1 M12502: CALL $DV10 DEC R0 BLE M12534 BR M12502 $ML5: MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R4, -(SP) CALL $SHFL CALL $SHFL M12534: ADD (SP)+, R4 ADC R3 ADC R2 ADC R1 ADD (SP)+, R3 ADC R2 ADC R1 ADD (SP)+, R2 ADC R1 ADD (SP)+, R1 RETURN $SHFL: ASL R4 $SHFLX: ROL R3 ROL R2 ROL R1 RETURN $SAV6: MOV R4, -(SP) MOV 2(SP), R4 MOV R5, 2(SP) MOV R3, -(SP) MOV R2, -(SP) MOV R1, -(SP) MOV R0, -(SP) JMP (R4) $RES6: MOV (SP)+, R5 MOV (SP)+, R0 MOV (SP)+, R1 MOV (SP)+, R2 MOV (SP)+, R3 MOV (SP)+, R4 RTS R5 $PUTCH: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R2, R0 MOV T.XXX, R2 M12652: MOVB (R1)+, (R2)+ SOB R0, M12652 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 RETURN .WORD 2 .WORD 10 K12672: .WORD 0 K12674: .WORD 0 .WORD 20402 .WORD 2 .WORD 24 K12704: .WORD 0 K12706: .WORD 0 .WORD 20402 .WORD 2 .WORD 24 K12716: .WORD 0 K12720: .WORD 0 .WORD 20402 .WORD 2 K12726: .WORD 4 K12730: .WORD 0 .WORD 0 .WORD 20402 .WORD 4 .WORD 4 K12742: .WORD 0 K12744: .WORD 0 .WORD 130404 .WORD 4 K12752: .WORD 4 K12754: .WORD 0 .WORD 0 .WORD 130404 .WORD 4 K12764: .WORD 0 .WORD 26712 .WORD 13142 .WORD 13122 .WORD 3 .WORD 13126 .WORD 13332 K13002: .WORD 0 .WORD 3 .WORD 13326 K13010: .WORD 0 .WORD 13272 .WORD 2 .WORD 20 K13020: .WORD 0 K13022: .WORD 0 .WORD 20402 .WORD 2 .WORD 2 K13032: .WORD 0 K13034: .WORD 0 .WORD 120402 .WORD 2 .WORD 14226 K13044: .WORD 0 .WORD 3 .WORD 14156 K13052: .WORD 0 .WORD 14142 .WORD 134 .WORD 0 .WORD 133 .WORD 0 .WORD 102 .WORD 0 .WORD 4 .WORD 7 .WORD 7 .WORD 7 .WORD 1 .WORD 13056 .WORD 1 .WORD 13062 .WORD 3 .WORD 13066 .WORD 13072 .WORD 13074 .WORD 0 .WORD 0 .WORD 1 .WORD 0 .WORD 4 .WORD 0 .WORD 7 .WORD 0 .WORD 15 .WORD 0 .WORD 0 .WORD 0 .WORD 12 .WORD 0 .WORD 132 .WORD 0 .WORD 134 .WORD 0 .WORD 120 .WORD 0 .WORD 42572 .WORD 0 .WORD 124 .WORD 0 .WORD 126 .WORD 0 .WORD 100 .WORD 0 .WORD 76 .WORD 0 .WORD 74 .WORD 0 .WORD 42110 .WORD 0 .WORD 42541 .WORD 0 .WORD 45 .WORD 0 .WORD 6 .WORD 0 .WORD 174 .WORD 0 .WORD 41 .WORD 0 .WORD 42 .WORD 0 .WORD 42014 .WORD 0 .WORD 55 .WORD 0 .WORD 42112 .WORD 0 .WORD 24 .WORD 0 .WORD 41240 .WORD 0 .WORD 41560 .WORD 0 .WORD 30 .WORD 0 .WORD 41040 .WORD 0 .WORD 32 .WORD 0 .WORD 42064 .WORD 0 .WORD 20 .WORD 0 .WORD 41640 .WORD 0 .WORD 26 .WORD 0 .WORD 2 .WORD 0 .WORD 41370 .WORD 0 .WORD 41464 .WORD 0 .WORD 41250 .WORD 0 .WORD 41360 .WORD 0 .WORD 41664 .WORD 0 .WORD 41310 .WORD 0 .WORD 42226 .WORD 0 .WORD 14 .WORD 0 .WORD 1 .WORD 13156 .WORD 1 .WORD 13162 .WORD 5 .WORD 13166 .WORD 13146 .WORD 13172 .WORD 13146 .WORD 13172 .WORD 2 .WORD 13176 .WORD 13122 .WORD 2 .WORD 13202 .WORD 13122 .WORD 2 .WORD 13206 .WORD 26574 .WORD 2 .WORD 13212 .WORD 13122 .WORD 2 .WORD 13216 .WORD 13136 .WORD 3 .WORD 13126 .WORD 13146 .WORD 13146 .WORD 3 .WORD 13152 .WORD 13172 .WORD 13172 .WORD 3 .WORD 13126 .WORD 13222 .WORD 13222 .WORD 3 .WORD 13152 .WORD 13226 .WORD 13226 .WORD 3 .WORD 13232 .WORD 13236 .WORD 13242 .WORD 3 .WORD 13246 .WORD 13222 .WORD 13222 .WORD 3 .WORD 13252 .WORD 13256 .WORD 13146 .WORD 3 .WORD 13232 .WORD 13136 .WORD 13262 .WORD 3 .WORD 13246 .WORD 13222 .WORD 13266 .WORD 3 .WORD 13252 .WORD 13146 .WORD 13256 .WORD 2 .WORD 13216 .WORD 26732 .WORD 3 .WORD 13126 .WORD 27026 .WORD 13222 .WORD 3 .WORD 13132 .WORD 27026 .WORD 13226 .WORD 3 .WORD 13126 .WORD 13222 .WORD 27026 .WORD 3 .WORD 13132 .WORD 13226 .WORD 27026 .WORD 3 .WORD 13126 .WORD 13222 .WORD 27032 .WORD 3 .WORD 13132 .WORD 13226 .WORD 27032 .WORD 3 .WORD 13126 .WORD 27032 .WORD 13222 .WORD 3 .WORD 13132 .WORD 27032 .WORD 13226 .WORD 3 .WORD 13272 .WORD 13276 .WORD 13302 .WORD 3 .WORD 13306 .WORD 13312 .WORD 13312 .WORD 3 .WORD 13316 .WORD 13126 .WORD 13126 .WORD 3 .WORD 13126 .WORD 27022 .WORD 13322 .WORD 1 .WORD 26712 .WORD 3 .WORD 13326 .WORD 26712 .WORD 13152 .WORD 3 .WORD 13126 .WORD 13332 .WORD 26654 .WORD 3 .WORD 13336 .WORD 13342 .WORD 13126 .WORD 3 .WORD 13272 .WORD 13346 .WORD 13352 .WORD 3 .WORD 13306 .WORD 13356 .WORD 13146 .WORD 3 .WORD 13126 .WORD 13362 .WORD 13366 .WORD 3 .WORD 13336 .WORD 13122 .WORD 13126 .WORD 3 .WORD 13272 .WORD 13372 .WORD 13352 .WORD 3 .WORD 13306 .WORD 13372 .WORD 13372 .WORD 3 .WORD 13126 .WORD 13376 .WORD 13366 .WORD 2 .WORD 13216 .WORD 26730 .WORD 4 .WORD 13402 .WORD 26734 .WORD 13122 .WORD 13122 .WORD 3 .WORD 13126 .WORD 26746 .WORD 27036 .WORD 3 .WORD 13132 .WORD 26746 .WORD 27036 .WORD 0 .WORD 0 .WORD 1 .WORD 0 .WORD 4 .WORD 0 .WORD 2 .WORD 0 .WORD 132 .WORD 0 .WORD 134 .WORD 0 .WORD 120 .WORD 0 .WORD 0 .WORD 0 .WORD 124 .WORD 0 .WORD 126 .WORD 0 .WORD 106 .WORD 0 .WORD 100 .WORD 0 .WORD 76 .WORD 0 .WORD 74 .WORD 0 .WORD 131 .WORD 0 .WORD 1 .WORD 14162 .WORD 1 .WORD 14166 .WORD 5 .WORD 14172 .WORD 14176 .WORD 27176 .WORD 27270 .WORD 27274 .WORD 2 .WORD 14202 .WORD 14142 .WORD 2 .WORD 14206 .WORD 14142 .WORD 2 .WORD 14212 .WORD 14152 .WORD 2 .WORD 14216 .WORD 27116 .WORD 2 .WORD 14222 .WORD 14142 .WORD 2 .WORD 27310 .WORD 27304 .WORD 3 .WORD 14146 .WORD 27300 .WORD 27304 .WORD 3 .WORD 14232 .WORD 27202 .WORD 14176 .WORD 3 .WORD 14152 .WORD 27300 .WORD 27304 K14356: .WORD 43777 .WORD 177000 TCCB: MOV 2(R5), R0 MOV R0, K15654 SUB #4, R0 MOV R0, K15656 MOV 4(R5), R0 MOV R0, K15666 SUB #4, R0 MOV R0, K15670 CMPB #2, (R5) BEQ M14446 TST 6(R5) BMI M14446 MOV @6(R5), K15644 BR M14454 M14446: MOV #1, K15644 M14454: MOV #1, K15646 CMP K15646, K15644 BLE M14476 JMP M15346 M14476: MOV K15646, R0 ASL R0 ASL R0 MOV R0, R4 ADD K15670, R4 SETF CLRD (R4) ADD K15656, R0 LDD (R0), AC2 MULD K15350, AC2 STD AC2, K15610 LDD K15354, AC3 CMPD AC2, AC3 CFCC BLT M14562 LDD K15360, AC3 CMPD AC2, AC3 CFCC BLE M14574 M14562: LDD K15364, AC3 STD AC3, (R4) JMP M15326 M14574: LDD K15370, AC3 CMPD AC2, AC3 CFCC BGT M14764 LDD K15374, AC3 CMPD AC2, AC3 CFCC BGT M14702 LDD K15400, AC2 STD AC2, K15614 LDD K15404, AC2 STD AC2, K15620 LDD K15410, AC2 STD AC2, K15624 LDD K15414, AC2 STD AC2, K15630 LDD K15420, AC2 STD AC2, K15634 LDD K15424, AC2 STD AC2, K15640 BR M15240 M14702: LDD K15430, AC2 STD AC2, K15614 LDD K15434, AC2 STD AC2, K15620 LDD K15440, AC2 STD AC2, K15624 LDD K15444, AC2 STD AC2, K15630 LDD K15450, AC2 STD AC2, K15634 LDD K15454, AC2 STD AC2, K15640 BR M15240 M14764: LDD K15460, AC2 CMPD K15610, AC2 CFCC BGT M15062 LDD K15464, AC2 STD AC2, K15614 LDD K15470, AC2 STD AC2, K15620 LDD K15474, AC2 STD AC2, K15624 LDD K15500, AC2 STD AC2, K15630 LDD K15504, AC2 STD AC2, K15634 LDD K15510, AC2 STD AC2, K15640 BR M15240 M15062: LDD K15514, AC2 CMPD K15610, AC2 CFCC BGT M15160 LDD K15520, AC2 STD AC2, K15614 LDD K15524, AC2 STD AC2, K15620 LDD K15530, AC2 STD AC2, K15624 LDD K15534, AC2 STD AC2, K15630 LDD K15540, AC2 STD AC2, K15634 LDD K15544, AC2 STD AC2, K15640 BR M15240 M15160: LDD K15550, AC2 STD AC2, K15614 LDD K15554, AC2 STD AC2, K15620 LDD K15560, AC2 STD AC2, K15624 LDD K15564, AC2 STD AC2, K15630 LDD K15570, AC2 STD AC2, K15634 LDD K15574, AC2 STD AC2, K15640 M15240: LDD K15610, AC2 LDD K15620, AC3 MULD AC2, AC3 ADDD K15614, AC3 MULD AC2, AC2 LDD K15624, AC1 MULD AC2, AC1 ADDD AC1, AC3 STD AC3, K15604 LDD K15634, AC1 MULD K15610, AC1 ADDD K15630, AC1 MULD K15640, AC2 ADDD AC2, AC1 STD AC1, K15600 DIVD AC1, AC3 STD AC3, (R4) M15326: INC K15646 CMP K15646, K15644 BGT M15346 JMP M14476 M15346: RETURN K15350: .WORD 45164 .WORD 22000 K15354: .WORD 37527 .WORD 5075 K15360: .WORD 43527 .WORD 154000 K15364: .WORD 142571 .WORD 140000 K15370: .WORD 42613 .WORD 151727 K15374: .WORD 41726 .WORD 24366 K15400: .WORD 40737 .WORD 17353 K15404: .WORD 40216 .WORD 15606 K15410: .WORD 36600 .WORD 165327 K15414: .WORD 37447 .WORD 154352 K15420: .WORD 36510 .WORD 4127 K15424: .WORD 34442 .WORD 77220 K15430: .WORD 41020 .WORD 70064 K15434: .WORD 37476 .WORD 26334 K15440: .WORD 35136 .WORD 152410 K15444: .WORD 37400 .WORD 35106 K15450: .WORD 35450 .WORD 173314 K15454: .WORD 32422 .WORD 351 K15460: .WORD 43230 .WORD 71075 K15464: .WORD 41407 .WORD 1430 K15470: .WORD 37400 .WORD 173065 K15474: .WORD 34306 .WORD 37005 K15500: .WORD 37546 .WORD 130754 K15504: .WORD 35072 .WORD 31272 K15510: .WORD 31243 .WORD 22035 K15514: .WORD 43375 .WORD 126051 K15520: .WORD 41710 .WORD 25773 K15524: .WORD 37314 .WORD 21577 K15530: .WORD 33436 .WORD 125320 K15534: .WORD 37675 .WORD 25706 K15540: .WORD 34563 .WORD 123015 K15544: .WORD 130433 .WORD 55024 K15550: .WORD 41401 .WORD 66637 K15554: .WORD 37160 .WORD 157501 K15560: .WORD 131577 .WORD 60562 K15564: .WORD 37507 .WORD 131564 K15570: .WORD 34362 .WORD 55 K15574: .WORD 130474 .WORD 122666 K15600: .WORD 0 .WORD 0 K15604: .WORD 0 .WORD 0 K15610: .WORD 0 .WORD 0 K15614: .WORD 0 .WORD 0 K15620: .WORD 0 .WORD 0 K15624: .WORD 0 .WORD 0 K15630: .WORD 0 .WORD 0 K15634: .WORD 0 .WORD 0 K15640: .WORD 0 .WORD 0 K15644: .WORD 0 K15646: .WORD 0 .WORD 4 .WORD 4 K15654: .WORD 0 K15656: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K15666: .WORD 0 K15670: .WORD 0 .WORD 130404 TCCE: MOV 2(R5), R0 MOV R0, K17166 SUB #4, R0 MOV R0, K17170 MOV 4(R5), R0 MOV R0, K17200 SUB #4, R0 MOV R0, K17202 CMPB #2, (R5) BEQ M15760 TST 6(R5) BMI M15760 MOV @6(R5), K17206 BR M15766 M15760: MOV #1, K17206 M15766: MOV #1, K17210 CMP K17210, K17206 BLE M16010 JMP M16664 M16010: MOV K17210, R0 ASL R0 ASL R0 MOV R0, R4 ADD K17202, R4 SETF CLRD (R4) ADD K17170, R0 LDD (R0), AC1 MULD K16666, AC1 STD AC1, K17116 LDD K16672, AC2 CMPD AC1, AC2 CFCC BLT M16074 LDD K16676, AC2 CMPD AC1, AC2 CFCC BLE M16106 M16074: LDD K16702, AC2 STD AC2, (R4) JMP M16644 M16106: TSTD AC1 CFCC BGT M16272 LDD K16706, AC2 CMPD AC1, AC2 CFCC BGT M16210 LDD K16712, AC1 STD AC1, K17132 LDD K16716, AC1 STD AC1, K17136 LDD K16722, AC1 STD AC1, K17142 LDD K16726, AC1 STD AC1, K17146 LDD K16732, AC1 STD AC1, K17152 LDD K16736, AC1 STD AC1, K17156 BR M16546 M16210: LDD K16742, AC1 STD AC1, K17132 LDD K16746, AC1 STD AC1, K17136 LDD K16752, AC1 STD AC1, K17142 LDD K16756, AC1 STD AC1, K17146 LDD K16762, AC1 STD AC1, K17152 LDD K16766, AC1 STD AC1, K17156 BR M16546 M16272: LDD K16772, AC1 CMPD K17116, AC1 CFCC BGT M16370 LDD K16776, AC1 STD AC1, K17132 LDD K17002, AC1 STD AC1, K17136 LDD K17006, AC1 STD AC1, K17142 LDD K17012, AC1 STD AC1, K17146 LDD K17016, AC1 STD AC1, K17152 LDD K17022, AC1 STD AC1, K17156 BR M16546 M16370: LDD K17026, AC1 CMPD K17116, AC1 CFCC BGT M16466 LDD K17032, AC1 STD AC1, K17132 LDD K17036, AC1 STD AC1, K17136 LDD K17042, AC1 STD AC1, K17142 LDD K17046, AC1 STD AC1, K17146 LDD K17052, AC1 STD AC1, K17152 LDD K17056, AC1 STD AC1, K17156 BR M16546 M16466: LDD K17062, AC1 STD AC1, K17132 LDD K17066, AC1 STD AC1, K17136 LDD K17072, AC1 STD AC1, K17142 LDD K17076, AC1 STD AC1, K17146 LDD K17102, AC1 STD AC1, K17152 LDD K17106, AC1 STD AC1, K17156 M16546: LDD K17116, AC1 MULD K17112, AC1 STD AC1, K17116 LDD K17136, AC2 MULD AC1, AC2 ADDD K17132, AC2 MULD AC1, AC1 LDD K17142, AC3 MULD AC1, AC3 ADDD AC3, AC2 STD AC2, K17122 LDD K17152, AC3 MULD K17116, AC3 ADDD K17146, AC3 MULD K17156, AC1 ADDD AC1, AC3 STD AC3, K17126 DIVD AC3, AC2 STD AC2, (R4) M16644: INC K17210 CMP K17210, K17206 BGT M16664 JMP M16010 M16664: RETURN K16666: .WORD 45164 .WORD 22000 K16672: .WORD 143431 .WORD 130000 K16676: .WORD 44225 .WORD 21400 K16702: .WORD 142571 .WORD 140000 K16706: .WORD 143405 .WORD 141437 K16712: .WORD 40417 .WORD 75574 K16716: .WORD 37662 .WORD 1106 K16722: .WORD 36510 .WORD 72444 K16726: .WORD 136654 .WORD 151450 K16732: .WORD 136174 .WORD 137736 K16736: .WORD 135066 .WORD 134522 K16742: .WORD 37241 .WORD 20272 K16746: .WORD 141525 .WORD 71451 K16752: .WORD 140601 .WORD 157154 K16756: .WORD 140511 .WORD 34606 K16762: .WORD 137626 .WORD 177241 K16766: .WORD 136104 .WORD 141724 K16772: .WORD 43410 .WORD 55632 K16776: .WORD 36175 .WORD 12272 K17002: .WORD 40720 .WORD 31314 K17006: .WORD 40010 .WORD 173033 K17012: .WORD 37702 .WORD 177534 K17016: .WORD 37027 .WORD 135744 K17022: .WORD 35174 .WORD 172414 K17026: .WORD 44007 .WORD 7032 K17032: .WORD 137571 .WORD 175565 K17036: .WORD 41622 .WORD 132674 K17042: .WORD 40362 .WORD 64344 K17046: .WORD 40610 .WORD 110122 K17052: .WORD 37466 .WORD 60233 K17056: .WORD 135072 .WORD 152157 K17062: .WORD 40172 .WORD 12670 K17066: .WORD 40520 .WORD 100231 K17072: .WORD 37043 .WORD 173654 K17076: .WORD 37515 .WORD 157267 K17102: .WORD 36222 .WORD 123664 K17106: .WORD 134053 .WORD 117653 K17112: .WORD 35603 .WORD 11157 K17116: .WORD 0 .WORD 0 K17122: .WORD 0 .WORD 0 K17126: .WORD 0 .WORD 0 K17132: .WORD 0 .WORD 0 K17136: .WORD 0 .WORD 0 K17142: .WORD 0 .WORD 0 K17146: .WORD 0 .WORD 0 K17152: .WORD 0 .WORD 0 K17156: .WORD 0 .WORD 0 .WORD 4 .WORD 4 K17166: .WORD 0 K17170: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K17200: .WORD 0 K17202: .WORD 0 .WORD 130404 K17206: .WORD 0 K17210: .WORD 0 TCCJ: MOV 2(R5), R0 MOV R0, K20504 SUB #4, R0 MOV R0, K20506 MOV 4(R5), R0 MOV R0, K20516 SUB #4, R0 MOV R0, K20520 CMPB #2, (R5) BEQ M17276 TST 6(R5) BMI M17276 MOV @6(R5), K20524 BR M17304 M17276: MOV #1, K20524 M17304: MOV #1, K20526 CMP K20526, K20524 BLE M17326 JMP M20202 M17326: MOV K20526, R0 ASL R0 ASL R0 MOV R0, R4 ADD K20520, R4 SETF CLRD (R4) ADD K20506, R0 LDD (R0), AC1 MULD K20204, AC1 STD AC1, K20434 LDD K20210, AC2 CMPD AC1, AC2 CFCC BLT M17412 LDD K20214, AC2 CMPD AC1, AC2 CFCC BLE M17424 M17412: LDD K20220, AC2 STD AC2, (R4) JMP M20162 M17424: LDD K20224, AC2 CMPD AC1, AC2 CFCC BGT M17610 TSTD AC1 CFCC BGT M17526 LDD K20230, AC1 STD AC1, K20440 LDD K20234, AC1 STD AC1, K20444 LDD K20240, AC1 STD AC1, K20450 LDD K20244, AC1 STD AC1, K20454 LDD K20250, AC1 STD AC1, K20460 LDD K20254, AC1 STD AC1, K20464 BR M20064 M17526: LDD K20260, AC1 STD AC1, K20440 LDD K20264, AC1 STD AC1, K20444 LDD K20270, AC1 STD AC1, K20450 LDD K20274, AC1 STD AC1, K20454 LDD K20300, AC1 STD AC1, K20460 LDD K20304, AC1 STD AC1, K20464 BR M20064 M17610: LDD K20310, AC1 CMPD K20434, AC1 CFCC BGT M17706 LDD K20314, AC1 STD AC1, K20440 LDD K20320, AC1 STD AC1, K20444 LDD K20324, AC1 STD AC1, K20450 LDD K20330, AC1 STD AC1, K20454 LDD K20334, AC1 STD AC1, K20460 LDD K20340, AC1 STD AC1, K20464 BR M20064 M17706: LDD K20344, AC1 CMPD K20434, AC1 CFCC BGT M20004 LDD K20350, AC1 STD AC1, K20440 LDD K20354, AC1 STD AC1, K20444 LDD K20360, AC1 STD AC1, K20450 LDD K20364, AC1 STD AC1, K20454 LDD K20370, AC1 STD AC1, K20460 LDD K20374, AC1 STD AC1, K20464 BR M20064 M20004: LDD K20400, AC1 STD AC1, K20440 LDD K20404, AC1 STD AC1, K20444 LDD K20410, AC1 STD AC1, K20450 LDD K20414, AC1 STD AC1, K20454 LDD K20420, AC1 STD AC1, K20460 LDD K20424, AC1 STD AC1, K20464 M20064: LDD K20434, AC1 MULD K20430, AC1 STD AC1, K20434 LDD K20444, AC2 MULD AC1, AC2 ADDD K20440, AC2 MULD AC1, AC1 LDD K20450, AC3 MULD AC1, AC3 ADDD AC3, AC2 STD AC2, K20470 LDD K20460, AC3 MULD K20434, AC3 ADDD K20454, AC3 MULD K20464, AC1 ADDD AC1, AC3 STD AC3, K20474 DIVD AC3, AC2 STD AC2, (R4) M20162: INC K20526 CMP K20526, K20524 BGT M20202 JMP M17326 M20202: RETURN K20204: .WORD 45164 .WORD 22000 K20210: .WORD 143375 .WORD 0 K20214: .WORD 44207 .WORD 150200 K20220: .WORD 142571 .WORD 140000 K20224: .WORD 43652 .WORD 125715 K20230: .WORD 136662 .WORD 143407 K20234: .WORD 40647 .WORD 162771 K20240: .WORD 37775 .WORD 100756 K20244: .WORD 37610 .WORD 114263 K20250: .WORD 36760 .WORD 66445 K20254: .WORD 35225 .WORD 67550 K20260: .WORD 136466 .WORD 13022 K20264: .WORD 40652 .WORD 117043 K20270: .WORD 37713 .WORD 131253 K20274: .WORD 37610 .WORD 164177 K20300: .WORD 36702 .WORD 57011 K20304: .WORD 134460 .WORD 2322 K20310: .WORD 44046 .WORD 65115 K20314: .WORD 40645 .WORD 50710 K20320: .WORD 140175 .WORD 20134 K20324: .WORD 37224 .WORD 107132 K20330: .WORD 136630 .WORD 122704 K20334: .WORD 36041 .WORD 51117 K20340: .WORD 34265 .WORD 34001 K20344: .WORD 44150 .WORD 13400 K20350: .WORD 142336 .WORD 143274 K20354: .WORD 140663 .WORD 23306 K20360: .WORD 37750 .WORD 50316 K20364: .WORD 140355 .WORD 12634 K20370: .WORD 37144 .WORD 30071 K20374: .WORD 135102 .WORD 57156 K20400: .WORD 41403 .WORD 131513 K20404: .WORD 37654 .WORD 67772 K20410: .WORD 37756 .WORD 134067 K20414: .WORD 36366 .WORD 130107 K20420: .WORD 36754 .WORD 67565 K20424: .WORD 134232 .WORD 14152 K20430: .WORD 35603 .WORD 11157 K20434: .WORD 0 .WORD 0 K20440: .WORD 0 .WORD 0 K20444: .WORD 0 .WORD 0 K20450: .WORD 0 .WORD 0 K20454: .WORD 0 .WORD 0 K20460: .WORD 0 .WORD 0 K20464: .WORD 0 .WORD 0 K20470: .WORD 0 .WORD 0 K20474: .WORD 0 .WORD 0 .WORD 4 .WORD 4 K20504: .WORD 0 K20506: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K20516: .WORD 0 K20520: .WORD 0 .WORD 130404 K20524: .WORD 0 K20526: .WORD 0 TCCK: MOV 2(R5), R0 MOV R0, K22032 SUB #4, R0 MOV R0, K22034 MOV 4(R5), R0 MOV R0, K22044 SUB #4, R0 MOV R0, K22046 CMPB #2, (R5) BEQ M20614 TST 6(R5) BMI M20614 MOV @6(R5), K22052 BR M20622 M20614: MOV #1, K22052 M20622: MOV #1, K22054 CMP K22054, K22052 BLE M20644 JMP M21524 M20644: MOV K22054, R0 ASL R0 ASL R0 MOV R0, R4 ADD K22046, R4 SETF CLRD (R4) ADD K22034, R0 LDD (R0), AC1 MULD K21526, AC1 STD AC1, K21772 LDD K21532, AC2 CMPD AC1, AC2 CFCC BLT M20730 LDD K21536, AC2 CMPD AC1, AC2 CFCC BLE M20742 M20730: LDD K21542, AC2 STD AC2, (R4) JMP M21504 M20742: LDD K21546, AC2 CMPD AC1, AC2 CFCC BGT M21132 LDD K21552, AC2 CMPD AC1, AC2 CFCC BGT M21050 LDD K21556, AC1 STD AC1, K21776 LDD K21562, AC1 STD AC1, K22002 LDD K21566, AC1 STD AC1, K22006 LDD K21572, AC1 STD AC1, K22012 LDD K21576, AC1 STD AC1, K22016 LDD K21602, AC1 STD AC1, K22022 BR M21406 M21050: LDD K21606, AC1 STD AC1, K21776 LDD K21612, AC1 STD AC1, K22002 LDD K21616, AC1 STD AC1, K22006 LDD K21622, AC1 STD AC1, K22012 LDD K21626, AC1 STD AC1, K22016 LDD K21632, AC1 STD AC1, K22022 BR M21406 M21132: LDD K21636, AC1 CMPD K21772, AC1 CFCC BGT M21230 LDD K21642, AC1 STD AC1, K21776 LDD K21646, AC1 STD AC1, K22002 LDD K21652, AC1 STD AC1, K22006 LDD K21656, AC1 STD AC1, K22012 LDD K21662, AC1 STD AC1, K22016 LDD K21666, AC1 STD AC1, K22022 BR M21406 M21230: LDD K21672, AC1 CMPD K21772, AC1 CFCC BGT M21326 LDD K21676, AC1 STD AC1, K21776 LDD K21702, AC1 STD AC1, K22002 LDD K21706, AC1 STD AC1, K22006 LDD K21712, AC1 STD AC1, K22012 LDD K21716, AC1 STD AC1, K22016 LDD K21722, AC1 STD AC1, K22022 BR M21406 M21326: LDD K21726, AC1 STD AC1, K21776 LDD K21732, AC1 STD AC1, K22002 LDD K21736, AC1 STD AC1, K22006 LDD K21742, AC1 STD AC1, K22012 LDD K21746, AC1 STD AC1, K22016 LDD K21752, AC1 STD AC1, K22022 M21406: LDD K21772, AC1 MULD K21756, AC1 STD AC1, K21772 LDD K22002, AC2 MULD AC1, AC2 ADDD K21776, AC2 MULD AC1, AC1 LDD K22006, AC3 MULD AC1, AC3 ADDD AC3, AC2 STD AC2, K21762 LDD K22016, AC3 MULD K21772, AC3 ADDD K22012, AC3 MULD K22022, AC1 ADDD AC1, AC3 STD AC3, K21766 DIVD AC3, AC2 STD AC2, (R4) M21504: INC K22054 CMP K22054, K22052 BGT M21524 JMP M20644 M21524: RETURN K21526: .WORD 45164 .WORD 22000 K21532: .WORD 143270 .WORD 20000 K21536: .WORD 44126 .WORD 55400 K21542: .WORD 142571 .WORD 140000 K21546: .WORD 43370 .WORD 3463 K21552: .WORD 142561 .WORD 161217 K21556: .WORD 137227 .WORD 27544 K21562: .WORD 40635 .WORD 62427 K21566: .WORD 40032 .WORD 151006 K21572: .WORD 37513 .WORD 71132 K21576: .WORD 36763 .WORD 124553 K21602: .WORD 35376 .WORD 147242 K21606: .WORD 36440 .WORD 76161 K21612: .WORD 40706 .WORD 113706 K21616: .WORD 40022 .WORD 31331 K21622: .WORD 37572 .WORD 113516 K21626: .WORD 36737 .WORD 21326 K21632: .WORD 135310 .WORD 63162 K21636: .WORD 43635 .WORD 166063 K21642: .WORD 142006 .WORD 131651 K21646: .WORD 41751 .WORD 145521 K21652: .WORD 41162 .WORD 175426 K21656: .WORD 40546 .WORD 13577 K21662: .WORD 40056 .WORD 33511 K21666: .WORD 135264 .WORD 30001 K21672: .WORD 44040 .WORD 71000 K21676: .WORD 141065 .WORD 143040 K21702: .WORD 40142 .WORD 53011 K21706: .WORD 37515 .WORD 33622 K21712: .WORD 137000 .WORD 35356 K21716: .WORD 36470 .WORD 142067 K21722: .WORD 134446 .WORD 121726 K21726: .WORD 140717 .WORD 142236 K21732: .WORD 40206 .WORD 143711 K21736: .WORD 35642 .WORD 74515 K21742: .WORD 36677 .WORD 142307 K21746: .WORD 35437 .WORD 70636 K21752: .WORD 133671 .WORD 166610 K21756: .WORD 35603 .WORD 11157 K21762: .WORD 0 .WORD 0 K21766: .WORD 0 .WORD 0 K21772: .WORD 0 .WORD 0 K21776: .WORD 0 .WORD 0 K22002: .WORD 0 .WORD 0 K22006: .WORD 0 .WORD 0 K22012: .WORD 0 .WORD 0 K22016: .WORD 0 .WORD 0 K22022: .WORD 0 .WORD 0 .WORD 4 .WORD 4 K22032: .WORD 0 K22034: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K22044: .WORD 0 K22046: .WORD 0 .WORD 130404 K22052: .WORD 0 K22054: .WORD 0 TCCR: MOV 2(R5), R0 MOV R0, K23334 SUB #4, R0 MOV R0, K23336 MOV 4(R5), R0 MOV R0, K23346 SUB #4, R0 MOV R0, K23350 CMPB #2, (R5) BEQ M22142 TST 6(R5) BMI M22142 MOV @6(R5), K23354 BR M22150 M22142: MOV #1, K23354 M22150: MOV #1, K23356 CMP K23356, K23354 BLE M22172 JMP M23036 M22172: MOV K23356, R0 ASL R0 ASL R0 MOV R0, R4 ADD K23350, R4 SETF CLRD (R4) ADD K23336, R0 LDD (R0), AC1 MULD K23040, AC1 STD AC1, K23264 LDD K23044, AC2 CMPD AC1, AC2 CFCC BLT M22256 LDD K23050, AC2 CMPD AC1, AC2 CFCC BLE M22270 M22256: LDD K23054, AC2 STD AC2, (R4) JMP M23016 M22270: LDD K23060, AC2 CMPD AC1, AC2 CFCC BGT M22454 TSTD AC1 CFCC BGT M22372 LDD K23064, AC1 STD AC1, K23300 LDD K23070, AC1 STD AC1, K23304 LDD K23074, AC1 STD AC1, K23310 LDD K23100, AC1 STD AC1, K23314 LDD K23104, AC1 STD AC1, K23320 LDD K23110, AC1 STD AC1, K23324 BR M22730 M22372: LDD K23114, AC1 STD AC1, K23300 LDD K23120, AC1 STD AC1, K23304 LDD K23124, AC1 STD AC1, K23310 LDD K23130, AC1 STD AC1, K23314 LDD K23134, AC1 STD AC1, K23320 LDD K23140, AC1 STD AC1, K23324 BR M22730 M22454: LDD K23144, AC1 CMPD K23264, AC1 CFCC BGT M22552 LDD K23150, AC1 STD AC1, K23300 LDD K23154, AC1 STD AC1, K23304 LDD K23160, AC1 STD AC1, K23310 LDD K23164, AC1 STD AC1, K23314 LDD K23170, AC1 STD AC1, K23320 LDD K23174, AC1 STD AC1, K23324 BR M22730 M22552: LDD K23200, AC1 CMPD K23264, AC1 CFCC BGT M22650 LDD K23204, AC1 STD AC1, K23300 LDD K23210, AC1 STD AC1, K23304 LDD K23214, AC1 STD AC1, K23310 LDD K23220, AC1 STD AC1, K23314 LDD K23224, AC1 STD AC1, K23320 LDD K23230, AC1 STD AC1, K23324 BR M22730 M22650: LDD K23234, AC1 STD AC1, K23300 LDD K23240, AC1 STD AC1, K23304 LDD K23244, AC1 STD AC1, K23310 LDD K23250, AC1 STD AC1, K23314 LDD K23254, AC1 STD AC1, K23320 LDD K23260, AC1 STD AC1, K23324 M22730: LDD K23264, AC1 LDD K23304, AC2 MULD AC1, AC2 ADDD K23300, AC2 MULD AC1, AC1 LDD K23310, AC3 MULD AC1, AC3 ADDD AC3, AC2 STD AC2, K23270 LDD K23320, AC3 MULD K23264, AC3 ADDD K23314, AC3 MULD K23324, AC1 ADDD AC1, AC3 STD AC3, K23274 DIVD AC3, AC2 STD AC2, (R4) M23016: INC K23356 CMP K23356, K23354 BGT M23036 JMP M22172 M23036: RETURN K23040: .WORD 45164 .WORD 22000 K23044: .WORD 142143 .WORD 0 K23050: .WORD 43644 .WORD 164127 K23054: .WORD 142571 .WORD 140000 K23060: .WORD 43271 .WORD 22244 K23064: .WORD 53005 .WORD 157770 K23070: .WORD 153106 .WORD 175167 K23074: .WORD 153116 .WORD 60033 K23100: .WORD 53651 .WORD 37053 K23104: .WORD 153606 .WORD 40760 K23110: .WORD 151044 .WORD 142031 K23114: .WORD 37242 .WORD 22235 K23120: .WORD 37221 .WORD 111124 K23124: .WORD 34407 .WORD 65334 K23130: .WORD 37704 .WORD 115775 K23134: .WORD 35252 .WORD 4733 K23140: .WORD 31236 .WORD 115002 K23144: .WORD 43461 .WORD 127051 K23150: .WORD 151552 .WORD 170266 K23154: .WORD 50004 .WORD 70443 K23160: .WORD 45300 .WORD 141100 K23164: .WORD 50370 .WORD 50731 K23170: .WORD 46154 .WORD 46522 K23174: .WORD 42156 .WORD 50041 K23200: .WORD 43632 .WORD 32527 K23204: .WORD 141115 .WORD 67400 K23210: .WORD 37461 .WORD 141775 K23214: .WORD 133206 .WORD 73010 K23220: .WORD 40247 .WORD 46115 K23224: .WORD 34524 .WORD 47150 K23230: .WORD 130654 .WORD 167217 K23234: .WORD 41031 .WORD 146634 K23240: .WORD 40242 .WORD 25116 K23244: .WORD 34353 .WORD 147505 K23250: .WORD 37631 .WORD 6034 K23254: .WORD 35732 .WORD 135726 K23260: .WORD 132000 .WORD 43621 K23264: .WORD 0 .WORD 0 K23270: .WORD 0 .WORD 0 K23274: .WORD 0 .WORD 0 K23300: .WORD 0 .WORD 0 K23304: .WORD 0 .WORD 0 K23310: .WORD 0 .WORD 0 K23314: .WORD 0 .WORD 0 K23320: .WORD 0 .WORD 0 K23324: .WORD 0 .WORD 0 .WORD 4 .WORD 4 K23334: .WORD 0 K23336: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K23346: .WORD 0 K23350: .WORD 0 .WORD 130404 K23354: .WORD 0 K23356: .WORD 0 TCCS: MOV 2(R5), R0 MOV R0, K24642 SUB #4, R0 MOV R0, K24644 MOV 4(R5), R0 MOV R0, K24654 SUB #4, R0 MOV R0, K24656 CMPB #2, (R5) BEQ M23444 TST 6(R5) BMI M23444 MOV @6(R5), K24632 BR M23452 M23444: MOV #1, K24632 M23452: MOV #1, K24634 CMP K24634, K24632 BLE M23474 JMP M24340 M23474: MOV K24634, R0 ASL R0 ASL R0 MOV R0, R4 ADD K24656, R4 SETF CLRD (R4) ADD K24644, R0 LDD (R0), AC1 MULD K24342, AC1 STD AC1, K24576 LDD K24346, AC2 CMPD AC1, AC2 CFCC BLT M23560 LDD K24352, AC2 CMPD AC1, AC2 CFCC BLE M23572 M23560: LDD K24356, AC2 STD AC2, (R4) JMP M24320 M23572: LDD K24362, AC2 CMPD AC1, AC2 CFCC BGT M23756 TSTD AC1 CFCC BGT M23674 LDD K24366, AC1 STD AC1, K24602 LDD K24372, AC1 STD AC1, K24606 LDD K24376, AC1 STD AC1, K24612 LDD K24402, AC1 STD AC1, K24616 LDD K24406, AC1 STD AC1, K24622 LDD K24412, AC1 STD AC1, K24626 BR M24232 M23674: LDD K24416, AC1 STD AC1, K24602 LDD K24422, AC1 STD AC1, K24606 LDD K24426, AC1 STD AC1, K24612 LDD K24432, AC1 STD AC1, K24616 LDD K24436, AC1 STD AC1, K24622 LDD K24442, AC1 STD AC1, K24626 BR M24232 M23756: LDD K24446, AC1 CMPD K24576, AC1 CFCC BGT M24054 LDD K24452, AC1 STD AC1, K24602 LDD K24456, AC1 STD AC1, K24606 LDD K24462, AC1 STD AC1, K24612 LDD K24466, AC1 STD AC1, K24616 LDD K24472, AC1 STD AC1, K24622 LDD K24476, AC1 STD AC1, K24626 BR M24232 M24054: LDD K24502, AC1 CMPD K24576, AC1 CFCC BGT M24152 LDD K24506, AC1 STD AC1, K24602 LDD K24512, AC1 STD AC1, K24606 LDD K24516, AC1 STD AC1, K24612 LDD K24522, AC1 STD AC1, K24616 LDD K24526, AC1 STD AC1, K24622 LDD K24532, AC1 STD AC1, K24626 BR M24232 M24152: LDD K24536, AC1 STD AC1, K24602 LDD K24542, AC1 STD AC1, K24606 LDD K24546, AC1 STD AC1, K24612 LDD K24552, AC1 STD AC1, K24616 LDD K24556, AC1 STD AC1, K24622 LDD K24562, AC1 STD AC1, K24626 M24232: LDD K24576, AC1 LDD K24606, AC2 MULD AC1, AC2 ADDD K24602, AC2 MULD AC1, AC1 LDD K24612, AC3 MULD AC1, AC3 ADDD AC3, AC2 STD AC2, K24566 LDD K24622, AC3 MULD K24576, AC3 ADDD K24616, AC3 MULD K24626, AC1 ADDD AC1, AC3 STD AC3, K24572 DIVD AC3, AC2 STD AC2, (R4) M24320: INC K24634 CMP K24634, K24632 BGT M24340 JMP M23474 M24340: RETURN K24342: .WORD 45164 .WORD 22000 K24346: .WORD 142154 .WORD 0 K24352: .WORD 43622 .WORD 12122 K24356: .WORD 142571 .WORD 140000 K24362: .WORD 43255 .WORD 41727 K24366: .WORD 56050 .WORD 5634 K24372: .WORD 154703 .WORD 63011 K24376: .WORD 155466 .WORD 177721 K24402: .WORD 156371 .WORD 152010 K24406: .WORD 156200 .WORD 140121 K24412: .WORD 153454 .WORD 172440 K24416: .WORD 37406 .WORD 13370 K24422: .WORD 37527 .WORD 17067 K24426: .WORD 34722 .WORD 41611 K24432: .WORD 40223 .WORD 12251 K24436: .WORD 35574 .WORD 72775 K24442: .WORD 31414 .WORD 131713 K24446: .WORD 43441 .WORD 111766 K24452: .WORD 41701 .WORD 124430 K24456: .WORD 40476 .WORD 76625 K24462: .WORD 35600 .WORD 174647 K24466: .WORD 41231 .WORD 44106 K24472: .WORD 36430 .WORD 136225 K24476: .WORD 32365 .WORD 126003 K24502: .WORD 43610 .WORD 177651 K24506: .WORD 40257 .WORD 146643 K24512: .WORD 36644 .WORD 127334 K24516: .WORD 132647 .WORD 11317 K24522: .WORD 37435 .WORD 16064 K24526: .WORD 33461 .WORD 126441 K24532: .WORD 130040 .WORD 17262 K24536: .WORD 143202 .WORD 27431 K24542: .WORD 40373 .WORD 67671 K24546: .WORD 134654 .WORD 21504 K24552: .WORD 41051 .WORD 151520 K24556: .WORD 135050 .WORD 42334 K24562: .WORD 131605 .WORD 52113 K24566: .WORD 0 .WORD 0 K24572: .WORD 0 .WORD 0 K24576: .WORD 0 .WORD 0 K24602: .WORD 0 .WORD 0 K24606: .WORD 0 .WORD 0 K24612: .WORD 0 .WORD 0 K24616: .WORD 0 .WORD 0 K24622: .WORD 0 .WORD 0 K24626: .WORD 0 .WORD 0 K24632: .WORD 0 K24634: .WORD 0 .WORD 4 .WORD 4 K24642: .WORD 0 K24644: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K24654: .WORD 0 K24656: .WORD 0 .WORD 130404 TCCT: MOV 2(R5), R0 MOV R0, K26022 SUB #4, R0 MOV R0, K26024 MOV 4(R5), R0 MOV R0, K26034 SUB #4, R0 MOV R0, K26036 CMPB #2, (R5) BEQ M24746 TST 6(R5) BMI M24746 MOV @6(R5), K26042 BR M24754 M24746: MOV #1, K26042 M24754: MOV #1, K26044 CMP K26044, K26042 BLE M24776 JMP M25554 M24776: MOV K26044, R0 ASL R0 ASL R0 MOV R0, R4 ADD K26036, R4 SETF CLRD (R4) ADD K26024, R0 LDD (R0), AC1 MULD K25556, AC1 STD AC1, K25762 LDD K25562, AC2 CMPD AC1, AC2 CFCC BLT M25062 LDD K25566, AC2 CMPD AC1, AC2 CFCC BLE M25074 M25062: LDD K25572, AC2 STD AC2, (R4) JMP M25534 M25074: LDD K25576, AC2 CMPD AC1, AC2 CFCC BGE M25170 LDD K25602, AC1 STD AC1, K25766 LDD K25606, AC1 STD AC1, K25772 LDD K25612, AC1 STD AC1, K25776 LDD K25616, AC1 STD AC1, K26002 LDD K25622, AC1 STD AC1, K26006 LDD K25626, AC1 STD AC1, K26012 BR M25436 M25170: TST K25762 BGE M25260 LDD K25632, AC1 STD AC1, K25766 LDD K25636, AC1 STD AC1, K25772 LDD K25642, AC1 STD AC1, K25776 LDD K25646, AC1 STD AC1, K26002 LDD K25652, AC1 STD AC1, K26006 LDD K25656, AC1 STD AC1, K26012 BR M25436 M25260: LDD K25662, AC1 CMPD K25762, AC1 CFCC BGE M25356 LDD K25666, AC1 STD AC1, K25766 LDD K25672, AC1 STD AC1, K25772 LDD K25676, AC1 STD AC1, K25776 LDD K25702, AC1 STD AC1, K26002 LDD K25706, AC1 STD AC1, K26006 LDD K25712, AC1 STD AC1, K26012 BR M25436 M25356: LDD K25716, AC1 STD AC1, K25766 LDD K25722, AC1 STD AC1, K25772 LDD K25726, AC1 STD AC1, K25776 LDD K25732, AC1 STD AC1, K26002 LDD K25736, AC1 STD AC1, K26006 LDD K25742, AC1 STD AC1, K26012 M25436: LDD K25762, AC1 MULD K25746, AC1 STD AC1, K25762 LDD K25772, AC2 MULD AC1, AC2 ADDD K25766, AC2 MULD AC1, AC1 LDD K25776, AC3 MULD AC1, AC3 ADDD AC3, AC2 STD AC2, K25752 LDD K26006, AC3 MULD K25762, AC3 ADDD K26002, AC3 MULD K26012, AC1 ADDD AC1, AC3 STD AC3, K25756 DIVD AC3, AC2 STD AC2, (R4) M25534: INC K26044 CMP K26044, K26042 BGT M25554 JMP M24776 M25554: RETURN K25556: .WORD 45164 .WORD 22000 K25562: .WORD 143303 .WORD 110000 K25566: .WORD 43643 .WORD 6000 K25572: .WORD 142571 .WORD 140000 K25576: .WORD 143261 .WORD 77412 K25602: .WORD 142075 .WORD 154427 K25606: .WORD 141474 .WORD 22773 K25612: .WORD 140453 .WORD 115646 K25616: .WORD 40333 .WORD 66702 K25622: .WORD 37774 .WORD 111415 K25626: .WORD 37017 .WORD 143520 K25632: .WORD 35173 .WORD 25306 K25636: .WORD 137456 .WORD 11403 K25642: .WORD 136642 .WORD 127040 K25646: .WORD 136330 .WORD 175247 K25652: .WORD 135602 .WORD 64334 K25656: .WORD 134240 .WORD 22150 K25662: .WORD 43421 .WORD 14146 K25666: .WORD 137101 .WORD 27633 K25672: .WORD 41464 .WORD 32772 K25676: .WORD 40337 .WORD 124326 K25702: .WORD 40336 .WORD 1155 K25706: .WORD 37365 .WORD 16757 K25712: .WORD 134120 .WORD 167655 K25716: .WORD 40073 .WORD 113136 K25722: .WORD 40404 .WORD 30723 K25726: .WORD 136610 .WORD 132205 K25732: .WORD 37270 .WORD 14734 K25736: .WORD 35334 .WORD 40306 K25742: .WORD 134213 .WORD 51234 K25746: .WORD 35603 .WORD 11157 K25752: .WORD 0 .WORD 0 K25756: .WORD 0 .WORD 0 K25762: .WORD 0 .WORD 0 K25766: .WORD 0 .WORD 0 K25772: .WORD 0 .WORD 0 K25776: .WORD 0 .WORD 0 K26002: .WORD 0 .WORD 0 K26006: .WORD 0 .WORD 0 K26012: .WORD 0 .WORD 0 .WORD 4 .WORD 4 K26022: .WORD 0 K26024: .WORD 0 .WORD 130404 .WORD 4 .WORD 4 K26034: .WORD 0 K26036: .WORD 0 .WORD 130404 K26042: .WORD 0 K26044: .WORD 0 M26046: MOV K36406, R5 MOV M26204, R1 TST (R1)+ MOV (R1), R0 TSTB (R1)+ SWAB R0 CMPB R0, #4 BEQ M26112 CMPB R0, #5 BEQ M26120 CMPB R0, #6 BEQ M26126 M26110: RETURN M26112: MOVB #3, (R1) BR M26110 M26120: MOVB #6, (R1) BR M26110 M26126: MOVB #7, (R1) BR M26110 CMP #40000, @K36534 BEQ M26166 MOV R0, -(SP) MOV R1, -(SP) MOV R5, -(SP) CALL M26046 MOV (SP)+, R5 MOV (SP)+, R1 MOV (SP)+, R0 BR M26174 M26166: MOV #2, K06244 M26174: TST (SP)+ MOV #563, -(SP) EMT 377 M26204: HALT TST (SP)+ DECB K06247 MOV #563, -(SP) EMT 377 DECB K06247 TST (SP)+ MOV #563, -(SP) EMT 377 INC K26262 TST (SP)+ MOV #563, -(SP) EMT 377 M26252: HALT .WORD 101200 .WORD 103204 .WORD 100601 K26262: .WORD 0 K26264: .WORD 0 K26266: .WORD 0 K26270: .WORD 0 K26272: .WORD 0 K26274: .WORD 0 K26276: .WORD 0 K26300: .WORD 0 K26302: .WORD 0 K26304: .WORD 0 K26306: .WORD 0 K26310: .WORD 0 K26312: .WORD 0 .WORD 0 K26316: .WORD START .WORD 0 .WORD 0 K26324: .WORD 0 K26326: .WORD 0 K26330: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 1 .WORD 3 .WORD 2 .WORD 6 .BYTE 0 K26363: .BYTE 0 .WORD 0 .WORD 0 .WORD 10 K26372: .WORD START .WORD 26362 .WORD 26360 K26400: .WORD 0 .WORD 26356 .WORD 26352 .WORD 26236 .WORD 26354 DECB K06246 TST (SP)+ MOV #563, -(SP) EMT 377 M26426: HALT .WORD 10 K26432: .WORD START .WORD 0 .WORD 26452 K26440: .WORD 0 K26442: .WORD 0 K26444: .WORD 0 K26446: .WORD 0 .WORD 26454 K26452: .WORD 0 K26454: .WORD 0 K26456: .WORD 0 DECB K06246 TST (SP)+ MOV #563, -(SP) EMT 377 M26474: HALT .WORD 0 K26500: .WORD START .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 2 .WORD 2 .WORD 140300 .WORD 1 .WORD 1 .WORD 0 .WORD 0 .WORD 10 .WORD 26546 .WORD 26540 .WORD 26536 .WORD 177777 .WORD 26534 .WORD 26542 .WORD 177777 .WORD 26544 .WORD 0 .WORD 0 .WORD 0 .WORD 7 .WORD 0 .WORD 0 .WORD 0 .WORD 7 .WORD 0 .WORD 0 .WORD 0 .WORD 7 .WORD 7 .WORD 7 .WORD 0 .WORD 7 .WORD 0 .WORD 7 .WORD 0 .WORD 7 .WORD 7 .WORD 7 .WORD 7 .WORD 7 .WORD 42134 .WORD 0 .WORD 42261 .WORD 100000 .WORD 42372 .WORD 0 .WORD 42436 .WORD 140000 .WORD 42502 .WORD 40000 .WORD 42544 .WORD 40000 K26704: .WORD 0 .WORD 0 K26710: .WORD 0 .WORD 0 .WORD 0 K26716: .BYTE 0 K26717: .BYTE 0 K26720: .WORD 0 .WORD 0 .WORD 0 .WORD 0 K26730: .WORD 0 K26732: .WORD 0 K26734: .WORD 0 K26736: .WORD 0 K26740: .WORD 0 K26742: .WORD 0 K26744: .WORD 0 K26746: .WORD 0 .WORD 0 K26752: .WORD 0 .WORD 0 K26756: .WORD 0 .WORD 0 K26762: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 K27016: .WORD 0 .WORD 0 K27022: .WORD 0 .WORD 0 K27026: .WORD 0 .WORD 0 K27032: .WORD 0 .WORD 0 K27036: .WORD 0 .WORD 0 K27042: .WORD 0 .WORD 0 K27046: .WORD 0 .WORD 0 K27052: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 K27106: .WORD 0 .WORD 0 K27112: .WORD 0 K27114: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 7 .WORD 0 .WORD 0 .WORD 0 .WORD 7 .WORD 0 .WORD 0 .WORD 0 .WORD 7 .WORD 7 .WORD 7 .WORD 0 .WORD 7 .WORD 0 .WORD 7 .WORD 0 .WORD 7 .WORD 7 .WORD 7 .WORD 7 .WORD 7 K27176: .WORD 41710 .WORD 0 K27202: .WORD 40200 .WORD 0 K27206: .WORD 40200 .WORD 0 K27212: .WORD 0 .WORD 0 K27216: .WORD 0 .WORD 0 K27222: .WORD 0 .WORD 0 K27226: .WORD 0 K27230: .WORD 0 K27232: .WORD 0 K27234: .WORD 0 .WORD 0 K27240: .WORD 0 K27242: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 K27264: .WORD 0 K27266: .WORD 0 K27270: .WORD 0 .WORD 0 K27274: .WORD 0 .WORD 0 K27300: .WORD 0 .WORD 0 K27304: .WORD 0 .WORD 0 K27310: .WORD 0 K27312: .WORD 0 K27314: .WORD 0 .WORD 54523 .WORD 72 K27322: .WORD 0 K27324: .WORD 0 FAB: .WORD 50003 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 1002 .WORD 0 .WORD 0 .WORD 1000 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 27446 .WORD 0 .WORD 27316 .WORD 1400 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 NAM: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 RAB: .WORD 120001 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 AINIT: MOV R5, K30542 CALL $ARG1 MOV #2, R0 CALL $MCHEC CALL $EVCHK TST K06246 BEQ M30004 CALL $ECONF M30004: CLR $IDOUT CMPB (R5), R0 BEQ M30046 MOV #3, R0 CMP #177777, 6(R5) BEQ M30046 CALL $WBCHK TST @6(R5) BEQ M30046 COM $IDOUT M30046: MOV 4(R5), K30636 MOV 2(R5), K30630 MOV #30626, R5 CALL DSETUP CMP #20000, @K30630 BNE M30246 MOV #177777, K30656 MOV K30542, R5 CLRB D$BA CLR C$PREV MOV 4(R5), K30662 MOV 2(R5), K30650 MOV #30646, R5 CALL DINP CMP #20000, @K30650 BNE M30244 TSTB K30546 BPL M30204 MOV K30542, R5 MOVB #1, M06243 CALL $ENOAD M30204: MOV K30542, R5 MOV 4(R5), K30706 MOV 2(R5), K30700 MOV #30676, R5 CALL DSETUP CMP #20000, @K30700 BEQ M30272 M30244: RETURN M30246: MOV K30630, R0 ADD #3, R0 CMPB (R0), #4 BNE M30244 MOVB #2, (R0) BR M30244 M30272: MOV #2, $LOOPC MOV #30674, K30656 M30306: CALL M30712 CMP #20000, @K30650 BNE M30244 CALL M30730 CMP #20000, @K30650 BNE M30244 DEC $LOOPC BNE M30306 CALL M30712 CMP #20000, @K30650 BNE M30244 MOV #30546, R0 MOV #6252, R1 MOV #6253, R2 MOVB #300, (R2) MOV #6250, R3 TST $IDOUT BEQ M30442 BICB #10, (R1) MOVB (R1), (R0) BISB #40, (R0)+ MOVB (R2), (R0)+ BICB #10, (R3) MOVB (R3), (R0)+ CLRB K06244 BR M30460 M30442: BICB #10, (R3) MOVB (R1), (R0) BISB #40, (R0)+ MOVB (R2), (R0)+ MOVB (R3), (R0)+ M30460: MOV K30542, R5 MOV 2(R5), K30756 MOV 4(R5), K30764 MOV #30754, R5 CALL ABST00 CMP #40000, @K30756 BNE M30244 MOVB #377, D$BA MOV K30756, R4 TST (R4)+ CLR (R4) BR M30244 $IDOUT: .WORD 0 K30542: .WORD 0 $LOOPC: .WORD 0 K30546: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 1 .WORD 44511 .WORD 44511 .WORD 123 .WORD 5 K30630: .WORD START .WORD 30624 .WORD 30620 K30636: .WORD 0 .WORD 30616 .WORD 103 .WORD 10 .WORD 7 K30650: .WORD START .WORD 30644 .WORD 30546 K30656: .WORD 0 .WORD 30642 K30662: .WORD 0 .WORD 30616 .WORD 115 .WORD 47511 .WORD 47517 .WORD 300 .WORD 5 K30700: .WORD START .WORD 30666 .WORD 30670 K30706: .WORD 0 .WORD 30616 M30712: MOV #30646, R5 CLR K30546 CALL DOUT RETURN M30730: MOV #30646, R5 MOV #200, K30546 CALL DOUT RETURN .WORD 3 .WORD 1 .WORD 10 K30756: .WORD START .WORD 30546 .WORD 30750 K30764: .WORD 0 .WORD 30616 .WORD 177777 .WORD 177777 .WORD 30752 Z$ABUF: MOV R4, M26426 BR M31012 ABUF: MOV #26460, M26426 M31012: CALL $ARG1 TSTB D$BA BNE M31030 CALL $EAINI M31030: TSTB K06247 BEQ M31042 CALL $ECONF M31042: MOV #2, R0 CALL $MCHEC MOV #3, R2 MOV #26432, R3 MOV #177777, R4 MOV 2(R5), (R3)+ MOV 4(R5), (R3)+ TST (R3)+ M31100: MOV R4, (R3)+ SOB R2, M31100 MOV #1, K26452 MOV #3, R0 CMPB (R5), R0 BMI M31216 CMP #177777, 6(R5) BEQ M31152 CALL $WBCHK MOV @6(R5), K26452 BGT M31152 M31146: CALL $EICOU M31152: CMPB (R5), #4 BMI M31216 MOV 10(R5), K26440 CMPB (R5), #5 BMI M31216 MOV 12(R5), K26442 CMPB (R5), #6 BMI M31216 MOV 14(R5), K26444 M31216: MOV #3, R0 ASL K26452 BCS M31146 TST $IFORM BLE M31244 ASL K26452 BCS M31146 M31244: MOV $ABINI, K26454 MOV K06262, K26456 MOV M26426, K26446 MOVB #177777, K26456 MOV #26430, R5 INCB K06246 CALL ABIN01 CMP @K26432, #177777 BNE M31324 DECB K06246 M31324: RETURN ACSTAT: CALL $ARG1 TSTB D$BA BNE M31344 CALL $EAINI M31344: MOV #2, R0 CALL $MCHEC MOV 4(R5), R0 MOV #6246, R1 CLR R2 MOVB (R5), R2 CLR (R0) TSTB (R1)+ BNE M31404 TSTB (R1) BNE M31430 BR M31432 M31404: MOV #2, (R0) BR M31432 M31412: MOV 2(R5), R1 MOV #40000, (R1)+ MOV #1, (R1) M31426: RETURN M31430: INC (R0) M31432: CMPB R2, #2 BEQ M31412 MOV 6(R5), R1 CMP R1, #177777 BEQ M31412 MOV #3, R0 CALL $WBCHK TST @6(R5) BEQ M31412 MOV #26476, R1 MOV #5, (R1)+ MOV 2(R5), (R1)+ MOV #26474, (R1)+ MOV #3, R2 MOV #177777, R3 M31520: MOV R3, (R1)+ SOB R2, M31520 MOVB (R5), R2 CMPB R2, #3 BEQ M31564 BIC #177400, R2 SUB #3, R2 MOV #26504, R1 MOV R5, R0 ADD #10, R0 M31556: MOV (R0)+, (R1)+ DECB R2 BNE M31556 M31564: MOV #26476, R5 MOVB C$MDB2, M26474 BIC #177767, M26474 BIS #240, M26474 CALL ABCK00 CMP @K26500, #177777 BEQ M31644 MOV #26552, R5 CALL ABST00 CLR K06246 BR M31426 M31644: MOV K26500, R2 ADD #3, R2 TSTB (R2) BEQ M31426 INCB (R2) BR M31426 Z$AIN: MOV R4, M26252 BR M31700 AIN: MOV #26412, M26252 M31700: CALL $ARG1 MOV R5, K26266 TST D$BA BNE M31722 CALL $EAINI M31722: TST K06246 BEQ M31734 CALL $ECONF M31734: MOV #2, R0 CALL $MCHEC MOV #1, K26302 MOV #177777, K26400 CLR K26304 CLR K26270 CLR K26272 CLR K26274 CLR K26264 CLR K26306 MOV #60, K26312 MOV #177, K26310 MOVB #1, $ABINI CLR K26276 MOV #1, K26300 MOV #26314, R1 MOV #10, (R1)+ MOV #3, R2 MOV 2(R5), (R1)+ MOV 4(R5), (R1)+ MOV #26302, (R1)+ M32074: MOV #177777, (R1)+ SOB R2, M32074 MOV M26252, (R1)+ MOV #6260, (R1)+ CMPB (R5), #3 BPL M32124 JMP M32632 M32124: CMP #177777, 6(R5) BEQ M32164 INC K26304 MOV #3, R0 CALL $WBCHK MOV @6(R5), K26302 BGT M32164 CALL $EICOU M32164: CMPB (R5), #4 BMI M32356 MOV 10(R5), R4 MOV R4, K26400 MOV R4, K26324 CMPB (R5), #5 BMI M32356 MOV 12(R5), K26326 MOV #6, R0 CMPB (R5), R0 BMI M32356 CMP #177777, 14(R5) BEQ M32252 CALL $WBCHK CALL M33544 M32252: MOV #7, R0 CMPB (R5), R0 BMI M32632 CMP #177777, 16(R5) BEQ M32342 CALL $WBCHK MOV @16(R5), R4 BMI M32332 CMP R4, #4 BEQ M32320 CMP R4, #5 BNE M32324 M32320: INC K26264 M32324: CMP #5, R4 BPL M32336 M32332: CALL $EICON M32336: MOV R4, K26274 M32342: TST K26264 BEQ M32360 MOV #2, R4 BR M32424 M32356: BR M32632 M32360: MOV #10, R0 CMPB (R5), R0 BMI M32632 CMP #177777, 20(R5) BEQ M32430 CALL $WBCHK MOV @20(R5), R4 BMI M32420 CMP #2, R4 BPL M32424 M32420: CALL $EIFOR M32424: MOV R4, K26272 M32430: MOV #11, R0 CMPB (R5), R0 BMI M32632 CMP #177777, 22(R5) BEQ M32500 CALL $WBCHK MOV @22(R5), R4 BMI M32470 CMP #2, R4 BPL M32474 M32470: CALL $EITRI M32474: MOV R4, K26270 M32500: MOV #12, R0 CMPB (R5), R0 BMI M32632 MOV 24(R5), K26330 MOV #13, R0 CMPB (R5), R0 BMI M32632 CMP #177777, 26(R5) BEQ M32600 CMP #2, K26270 BEQ M32600 CALL $WBCHK MOV R5, R1 CALL $CPARS MOV #1, K26306 MOV R2, K26310 MOV R3, K26312 BR M32632 M32600: INC R0 CMPB (R5), R0 BMI M32632 CMP #177777, 30(R5) BEQ M32632 CALL $WBCHK MOV 30(R5), R4 CLR (R4)+ CLR (R4) M32632: TST K26304 BNE M32666 CMP #1, K26300 BEQ M32666 CMP K26302, K26300 BPL M32666 MOV K26300, K26302 M32666: TST K26306 BNE M32722 CMP #2, K26270 BEQ M32722 CMP K26300, K26302 BPL M32722 MOV K26300, K26302 M32722: CMP K26274, #4 BMI M32740 MOV #2, K26272 M32740: MOV K26272, $IFORM DEC $IFORM ASL K26302 BCS M33106 TST $IFORM BLE M32774 ASL K26302 BCS M33106 M32774: MOVB $IFORM, K06261 TST K26270 BEQ M33116 CMP #2, K26270 BEQ M33116 CMP #1, K26300 BMI M33072 CMP #5, K26274 BEQ M33072 MOV K26276, R3 ASL R3 ASL R3 ASL R3 MOVB R3, K06262 MOVB R3, K06263 BISB #4, K06263 BR M33124 M33072: CLR K06262 BISB #4, K06263 BR M33124 M33106: MOV #3, R0 CALL $EICOU M33116: MOV #177777, K06262 M33124: MOV #26362, R3 MOV 2(R5), K26372 MOVB C$MDB2, R4 BIS #40, R4 MOVB R4, (R3)+ CLRB (R3)+ MOVB K26312, (R3)+ MOVB K26310, (R3)+ MOV #26254, R4 ADD K26274, R4 MOVB (R4), R2 MOVB C$MDB2, R1 BICB #367, R1 BISB R1, R2 MOVB R2, C$MDB2 MOVB R2, (R3)+ MOV K26276, R4 ASL R4 ASL R4 ASL R4 BIC #177707, R4 BIS #300, R4 CMP #2, K26270 BNE M33302 CMP #1, K26300 BNE M33274 CMP #5, K26274 BEQ M33274 M33266: MOV #1, R0 BR M33406 M33274: MOV #5, R0 BR M33406 M33302: CMP #1, K26300 BNE M33364 CMP #5, K26274 BEQ M33364 TST K26306 BEQ M33352 TST K26270 BEQ M33344 MOV #3, R0 BR M33406 M33344: MOV #2, R0 BR M33406 M33352: TST K26270 BNE M33266 CLR R0 BR M33406 M33364: TST K26306 BNE M33402 CMP K26270, #1 BEQ M33274 M33402: MOV #4, R0 M33406: ADD R0, R4 MOVB R4, (R3)+ MOVB R4, K26363 CLR K26262 MOV #26370, R5 CALL ABST00 CMP @K26372, #177777 BEQ M33460 M33442: TST K26262 BEQ M33442 CMP @K26372, #40000 BEQ M33462 M33460: RETURN M33462: MOV #2, C$PREV MOV #26314, R5 INCB K06246 CALL ABIN01 CMP @K26316, #177777 BNE M33460 MOV K26316, R0 DECB K06246 ADD #3, R0 CMPB (R0), #6 BNE M33460 MOVB #12, (R0) BR M33460 M33544: MOV R0, R2 ASL R2 ADD R5, R2 MOV (R2), R2 CLRB $ABINI CLR K26276 CLR K26300 MOV #10, R1 M33574: TST (R2)+ BEQ M33630 INC K26300 MOV #10, K26276 SUB R1, K26276 SEC M33620: RORB $ABINI SOB R1, M33574 BR M33634 M33630: CLC BR M33620 M33634: TSTB $ABINI BNE M33654 MOVB #1, $ABINI INC K26300 M33654: RETURN CNVDIF: MOV #1, K34126 MOV 2(R5), K34144 MOV 4(R5), K34146 CMPB #3, (R5) BNE M33722 TST 6(R5) BMI M33722 MOV @6(R5), K34126 M33722: MOV K34144, R0 MOV R0, K34134 SUB #2, R0 MOV R0, K34136 MOV 2(R0), R1 BIC #177774, R1 MOV R1, R4 SETF LDD K34122, AC3 TST R4 BNE M33772 LDD K34102, AC3 M33772: CMP R4, #1 BNE M34004 LDD K34106, AC3 M34004: CMP R4, #2 BNE M34016 LDD K34112, AC3 M34016: CMP R4, #3 BNE M34030 LDD K34116, AC3 M34030: MOV R4, K34142 SETI LDCLD 4(R0), AC2 MULD AC3, AC2 STD AC3, K34122 STD AC2, @K34146 DEC K34126 BEQ M34100 ADD #4, K34144 ADD #4, K34146 BR M33722 M34100: RETURN K34102: .WORD 35040 .WORD 500 K34106: .WORD 34440 .WORD 500 K34112: .WORD 34040 .WORD 500 K34116: .WORD 33440 .WORD 500 K34122: .WORD 0 .WORD 0 K34126: .WORD 0 .WORD 2 .WORD 4 K34134: .WORD 0 K34136: .WORD 0 .WORD 20402 K34142: .WORD 0 K34144: .WORD 0 K34146: .WORD START $CPARS: MOV R0, -(SP) MOV R1, -(SP) CLR K34342 MOV R0, R4 ASL R4 ADD R1, R4 MOV (R4), K34346 MOV #34344, R5 CALL FCLFRQ MOV (SP)+, R1 MOV (SP)+, R0 TST K34372 BLE M34250 MOV K34372, R3 MOV R3, R2 ASR R3 ASR R3 BIC #177717, R3 ADD K34370, R3 BIC #177700, R2 ADD #100, R2 BR M34254 M34250: INC K34342 M34254: MOV R0, R4 MOV R1, R5 INC R4 CMPB (R1), R4 BPL M34276 M34266: TST K34342 BNE M34406 M34274: RETURN M34276: ASL R4 ADD R1, R4 CMP #177777, (R4) BEQ M34266 BIT #1, (R4) BEQ M34322 INC R0 BR M34400 M34322: MOV R3, -(SP) MOV #34364, R3 MOV (R4), R4 MOV (R3)+, (R4)+ MOV (R3), (R4) MOV (SP)+, R3 BR M34266 K34342: .WORD 0 .WORD 6 K34346: .WORD 0 .WORD 34364 .WORD 34374 .WORD 34362 .WORD 34370 .WORD 34372 .WORD 0 .WORD 0 .WORD 0 K34370: .WORD 0 K34372: .WORD 0 .WORD 44372 .WORD 0 M34400: MOV #13, R4 BR M34412 M34406: MOV #161, R4 M34412: MOV 2(R1), R3 TST (R3)+ MOV R0, (R3) SWAB (R3) MOVB R4, (R3) MOV #177777, -(R3) TST (SP)+ BR M34274 DBUF: CALL $ARG1 TSTB D$BA BNE M34454 CALL $EAINI M34454: TSTB K06246 BNE M34472 CMP #2, C$PREV BNE M34476 M34472: CALL $ECONF M34476: MOV #34652, R0 MOV #7, (R0)+ MOV #6, R1 M34512: MOV #177777, (R0)+ SOB R1, M34512 CLR R0 MOVB (R5), R0 MOV R5, R1 TST (R1)+ MOV #34654, R2 M34534: MOV (R1)+, (R2)+ SOB R0, M34534 MOV #1, K34650 CMPB (R5), #3 BMI M34602 MOV #3, R0 CMP #177777, 6(R5) BEQ M34602 CALL $WBCHK MOV @6(R5), K34650 M34602: MOV #26222, K34670 MOV #34650, K34660 MOV #34652, R5 INCB K06247 CALL ABIN00 CMP @K34654, #177777 BNE M34646 DECB K06247 M34646: RETURN K34650: .WORD 0 .WORD 0 K34654: .WORD START .WORD 0 K34660: .WORD 0 .WORD 0 .WORD 0 .WORD 0 K34670: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 DIGIN: CALL $ARG1 MOV R5, K35554 TSTB D$BA BNE M34734 CALL $EAINI M34734: MOV #1, M35512 TST K06246 BEQ M34754 CALL $ECONF M34754: MOV #2, R0 CMP #177777, 4(R5) BNE M34774 CALL $EMAND M34774: MOV #35556, R2 MOV #7, (R2)+ MOV 2(R5), (R2)+ MOV 4(R5), (R2)+ MOV #35512, (R2)+ MOV R2, R3 MOV #3, R4 M35026: MOV #177777, (R3)+ SOB R4, M35026 MOVB (R5), R3 BIC #177400, R3 CMP #10, R3 BPL M35054 MOV #10, R3 M35054: SUB #3, R3 TST R3 BLE M35302 MOV R5, R4 ADD #10, R4 M35072: MOV (R4)+, (R2)+ SOB R3, M35072 MOV #26206, K35574 CMP #177777, 6(R5) BEQ M35140 MOV #3, R0 CALL $WBCHK MOV @6(R5), M35512 BNE M35140 CALL $EICOU M35140: CMPB (R5), #7 BMI M35302 MOV #7, R0 CMP #177777, 16(R5) BEQ M35242 CALL $WBCHK MOV R5, R1 CALL $CPARS MOVB C$MDB2, R1 MOV #35546, R4 BISB #240, R1 MOVB R1, (R4)+ MOVB #307, (R4)+ BICB #40, C$MDB2 MOVB R3, (R4)+ MOVB R2, (R4)+ MOVB C$MDB2, (R4)+ MOVB #307, (R4)+ BR M35352 M35242: MOV #1, M35512 INC R0 CMPB (R5), R0 BMI M35302 CMP #177777, 20(R5) BEQ M35302 CALL $WBCHK MOV 20(R5), R4 CLR (R4)+ CLR (R4) M35302: MOVB C$MDB2, R1 MOV #35546, R4 BISB #240, R1 MOVB R1, (R4)+ MOVB #306, (R4)+ BICB #40, C$MDB2 MOVB #102, R3 MOVB R3, (R4)+ MOVB R3, (R4)+ MOVB C$MDB2, (R4)+ MOVB #306, (R4)+ M35352: MOV 2(R5), K35526 MOV #35546, K35530 MOV #35524, R5 MOV #1, K35514 CALL ABST00 CMP @K35526, #177777 BEQ M35464 M35414: TST K35514 BNE M35414 CMP @K35526, #40000 BNE M35464 MOV #35556, R5 INCB K06247 CALL ABIN00 CMP @K35560, #177777 BEQ M35466 MOV #1, C$PREV M35464: RETURN M35466: DECB K06247 BR M35464 TST (SP)+ CLR K35514 MOV #563, -(SP) EMT 377 WAIT M35512: HALT K35514: .WORD 0 .WORD 6 .WORD 3 .WORD 2 .WORD 10 K35526: .WORD START K35530: .WORD 0 .WORD 35516 .WORD 177777 .WORD 35522 .WORD 35510 .WORD 35474 .WORD 35520 .WORD 0 .WORD 0 .WORD 0 K35554: .WORD 0 .WORD 0 K35560: .WORD START .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 K35574: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 DIGOUT: CALL $ARG1 MOV R5, K36406 MOV #177777, K36436 TSTB D$BA BNE M35644 CALL $EAINI M35644: MOV #2, R0 CALL $MCHEC MOV #36532, R0 MOV #10, R1 MOV R1, (R0)+ M35666: MOV #177777, (R0)+ SOB R1, M35666 MOV 2(R5), K36534 MOV K36534, M26204 CMPB (R5), #5 BMI M35744 CMP #177777, 12(R5) BEQ M35744 MOV #5, R0 CALL $WBCHK TST @12(R5) BNE M36234 M35744: MOV @4(R5), K36402 CMPB (R5), #3 BMI M36056 MOV 6(R5), K36542 CMPB (R5), #4 BMI M36056 CMP 10(R5), #177777 BEQ M36026 MOV #4, R0 CALL $WBCHK MOVB @10(R5), K36436 CALL M36456 M36026: CMPB (R5), #5 BEQ M36056 MOV 14(R5), K36544 CMPB (R5), #7 BMI M36056 MOV 16(R5), K36546 M36056: MOV 2(R5), K36414 MOV K36402, K36434 MOV #36400, K36420 MOV #36372, K36432 MOV #36412, R5 CLR K36440 CALL ABST00 CMP #177777, @K36414 BEQ M36364 M36132: TST K36440 BEQ M36132 BISB #10, C$MDB2 MOV #6252, K36536 MOV #36400, K36540 MOV #26134, K36550 MOV #36376, K36552 MOV #36532, R5 CALL ABST00 CMP @K36534, #177777 BEQ M36364 MOVB #77, K06244 MOVB K36402, K06245 BR M36362 M36234: BICB #10, C$MDB2 MOV #6252, K36536 MOV #26134, K36550 MOV #36376, K36552 MOV #36400, K36540 CMPB (R5), #3 BMI M36336 MOV 6(R5), K36542 CMPB (R5), #6 BMI M36336 MOV 14(R5), K36544 CMPB (R5), #7 BMI M36336 MOV 16(R5), K36546 M36336: MOV #36532, R5 CALL ABST00 CMP #177777, @K36534 BEQ M36364 CLR K06244 M36362: RETURN M36364: CALL M26046 BR M36362 .WORD 40000 .WORD 0 .WORD 0 .WORD 1 K36402: .WORD 0 .WORD 2 K36406: .WORD 0 .WORD 1 .WORD 10 K36414: .WORD START .WORD 36434 K36420: .WORD 0 .WORD 177777 .WORD 36404 .WORD 36410 .WORD 36442 K36432: .WORD 0 K36434: .WORD 0 K36436: .WORD 0 K36440: .WORD 0 TST (SP)+ INC K36440 MOV #563, -(SP) EMT 377 M36456: MOV #10, R4 MOVB K36436, R3 MOVB K36402, R2 MOVB K06245, R1 CLR R0 M36500: ASRB R3 BCC M36514 ASRB R1 ASRB R2 RORB R0 BR M36522 M36514: ASRB R2 ASRB R1 RORB R0 M36522: SOB R4, M36500 MOVB R0, K36402 RETURN .WORD 0 K36534: .WORD START K36536: .WORD 0 K36540: .WORD 0 K36542: .WORD 0 K36544: .WORD 0 K36546: .WORD 0 K36550: .WORD 0 K36552: .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 CCRB: MOV PC, R4 ADD #K50054-., R4 JMP DP0200 CDMASK: MOV PC, R4 ADD #K50070-., R4 JMP DP0200 CIN: MOV PC, R4 ADD #K50106-., R4 JMP DP0200 COUT: MOV PC, R4 ADD #K50132-., R4 JMP DP0200 CRBOFF: MOV PC, R4 ADD #K50156-., R4 JMP DP0200 CRBON: MOV PC, R4 ADD #K50172-., R4 JMP DP0200 CSETLP: MOV PC, R4 ADD #K50212-., R4 JMP DP0200 CXONOF: MOV PC, R4 ADD #K50236-., R4 JMP DP0200 DINP: MOV PC, R4 ADD #K50260-., R4 JMP DP0200 DINPM: MOV PC, R4 ADD #K50302-., R4 JMP DP0200 DOUT: MOV PC, R4 ADD #K50326-., R4 JMP DP0200 DOUTM: MOV PC, R4 ADD #K50350-., R4 JMP DP0200 DSETUP: MOV PC, R4 ADD #K50374-., R4 JMP DP0200 GDRVER: MOV PC, R4 ADD #K50412-., R4 JMP DP0200 GLBVER: MOVB (R5)+, R0 BEQ M37042 INC R5 CMP (R5), #177777 BEQ M37042 MOV #LIBID, R1 MOV (R5), R2 MOVB (R1)+, (R2)+ MOVB (R1)+, (R2)+ MOVB (R1)+, (R2)+ MOVB (R1)+, (R2)+ MOVB (R1)+, (R2)+ MOVB (R1)+, (R2)+ M37042: RETURN IBCMD: MOV PC, R4 ADD #K50426-., R4 JMP DP0200 IBDCL: MOV PC, R4 ADD #K50444-., R4 JMP DP0200 IBDVER: MOV PC, R4 ADD #K50460-., R4 JMP DP0200 IBFREE: MOV PC, R4 ADD #K50500-., R4 JMP DP0200 IBGET: MOV PC, R4 ADD #K50516-., R4 JMP DP0200 IBGTL: MOV PC, R4 ADD #K50534-., R4 JMP DP0200 IBHIST: MOV PC, R4 ADD #K50552-., R4 JMP DP0200 IBIFC: MOV PC, R4 ADD #K50570-., R4 JMP DP0200 IBIFCC: MOV PC, R4 ADD #K50602-., R4 JMP DP0200 IBIFCR: MOV PC, R4 ADD #K50614-., R4 JMP DP0200 IBINIT: MOV PC, R4 ADD #K50630-., R4 JMP DP0200 IBLLO: MOV PC, R4 ADD #K50650-., R4 JMP DP0200 IBLSTS: MOV PC, R4 ADD #K50664-., R4 JMP DP0200 IBPPD: MOV PC, R4 ADD #K50700-., R4 JMP DP0200 IBPPE: MOV PC, R4 ADD #K50716-., R4 JMP DP0200 IBPPL: MOV PC, R4 ADD #K50740-., R4 JMP DP0200 IBPPU: MOV PC, R4 ADD #K50756-., R4 JMP DP0200 IBRDA: MOV PC, R4 ADD #K50772-., R4 JMP DP0200 IBRECV: MOV PC, R4 ADD #K51004-., R4 JMP DP0200 IBREN: MOV PC, R4 ADD #K51030-., R4 JMP DP0200 IBRLCC: MOV PC, R4 ADD #K51042-., R4 JMP DP0200 IBRLCR: MOV PC, R4 ADD #K51054-., R4 JMP DP0200 IBRTL: MOV PC, R4 ADD #K51070-., R4 JMP DP0200 IBSDC: MOV PC, R4 ADD #K51104-., R4 JMP DP0200 IBSEND: MOV PC, R4 ADD #K51122-., R4 JMP DP0200 IBSPL: MOV PC, R4 ADD #K51146-., R4 JMP DP0200 IBSRQC: MOV PC, R4 ADD #K51166-., R4 JMP DP0200 IBSRQF: MOV PC, R4 ADD #K51200-., R4 JMP DP0200 IBSRQR: CMPB (R5), #4 BCS M37524 MOV R5, R4 ADD #10, R4 BIT #1, (R4) BNE M37524 BIT #4, @(R4)+ BNE M37534 M37524: MOV PC, R4 ADD #K51214-., R4 BR M37542 M37534: MOV PC, R4 ADD #K51230-., R4 M37542: JMP DP0200 IBSTS: MOV PC, R4 ADD #K51254-., R4 JMP DP0200 IBTCT: MOV PC, R4 ADD #K51274-., R4 JMP DP0200 IBXFER: MOV PC, R4 ADD #K51312-., R4 JMP DP0200 ISGINT: MOV PC, R4 ADD #K51334-., R4 JMP DP0200 ISINTC: MOV PC, R4 ADD #K51350-., R4 JMP DP0200 ISINTR: MOV PC, R4 ADD #K51362-., R4 JMP DP0200 ISRECV: MOV PC, R4 ADD #K51400-., R4 JMP DP0200 ISRQS: MOV PC, R4 ADD #K51422-., R4 JMP DP0200 ISSEND: MOV PC, R4 ADD #K51440-., R4 JMP DP0200 ISSTAT: MOV PC, R4 ADD #K51462-., R4 JMP DP0200 KBCD2B: CALL .K.PAA .WORD 4 .WORD 14 .WORD 103443 MOV R5, -(SP) TST 6(SP) BEQ M37750 TST 10(SP) BEQ M37750 MOV @10(SP), R5 BR M37754 M37750: MOV #1, R5 M37754: MOV #1, @4(SP) M37762: MOV @2(SP), R2 CALL M40044 BCS M40034 M37774: TST 6(SP) BEQ M40030 MOV R0, @6(SP) DEC R5 BLE M40030 ADD #2, 2(SP) ADD #2, 6(SP) BR M37762 M40030: MOV (SP), SP RETURN M40034: CLR @4(SP) CLR R0 BR M37774 M40044: MOV R2, -(SP) MOV #4, R0 M40052: BIC #177760, (SP) CMP (SP), #11 BHI M40160 DEC R0 BEQ M40104 MOV R2, (SP) ASR (SP) ASR (SP) ASR (SP) ASR (SP) BR M40052 M40104: TST (SP)+ CLR R0 MOV #4, R4 M40114: CLR R1 MOV #4, R3 M40122: ROL R2 ROL R1 DEC R3 BGT M40122 ADD R1, R0 DEC R4 BEQ M40154 ASL R0 MOV R0, -(SP) ASL R0 ASL R0 ADD (SP)+, R0 BR M40114 M40154: CLC RETURN M40160: TST (SP)+ SEC RETURN KB2BCD: CALL .K.PAA .WORD 4 .WORD 14 .WORD 103443 MOV R5, -(SP) TST 6(SP) BEQ M40224 TST 10(SP) BEQ M40224 MOV @10(SP), R5 BR M40230 M40224: MOV #1, R5 M40230: MOV #1, @4(SP) M40236: MOV @2(SP), R2 CALL M40320 BCS M40310 M40250: TST 6(SP) BEQ M40304 MOV R0, @6(SP) DEC R5 BLE M40304 ADD #2, 2(SP) ADD #2, 6(SP) BR M40236 M40304: MOV (SP), SP RETURN M40310: CLR @4(SP) CLR R0 BR M40250 M40320: CMP R2, #23417 BHI M40406 MOV #4, R4 CLR R0 M40334: CLR R1 M40336: SUB #12, R2 BMI M40350 INC R1 BR M40336 M40350: ADD #12, R2 M40354: MOV #4, R3 M40360: ROR R2 ROR R0 DEC R3 BGT M40360 DEC R4 BEQ M40402 MOV R1, R2 BNE M40334 BR M40354 M40402: CLC RETURN M40406: SEC RETURN LPSPN: CLR -(SP) CLR -(SP) CLR -(SP) MOV #51504, -(SP) CLR -(SP) CLR -(SP) CLR -(SP) CLR -(SP) CLR -(SP) CLR -(SP) MOV #51500, -(SP) MOV @0(SP), -(SP) ADD #2, 2(SP) MOV @2(SP), 2(SP) MOV #6413, -(SP) EMT 377 BCC M40504 MOV #177777, K51504 BR M40520 M40504: MOV #461, -(SP) EMT 377 TST K51504 BEQ M40504 M40520: MOV K51504, @2(R5) RETURN LDSPN: MOV #51500, -(SP) MOV @0(SP), -(SP) ADD #2, 2(SP) MOV @2(SP), 2(SP) MOV #1457, -(SP) EMT 377 RETURN SCANBT: CALL .K.PAA .WORD 2 .WORD 3 .WORD 103423 CLR R2 SEC MOV #20, R0 M40606: ROL R2 BIT @2(SP), R2 BNE M40626 SOB R0, M40606 MOV #177777, @(SP)+ BR M40642 M40626: BIC R2, @2(SP) NEG R0 ADD #20, R0 MOV R0, @(SP)+ M40642: TST (SP)+ RETURN ABIN01: MOV PC, R4 ADD #10636, R4 JMP DP0200 ABST00: MOV PC, R4 ADD #10650, R4 JMP DP0200 ABCK00: MOV PC, R4 ADD #10662, R4 JMP DP0200 ABIN00: MOV PC, R4 ADD #10666, R4 JMP DP0200 .ASCII |COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982| DP0200: SUB #70, SP MOV SP, R1 ADD #40, R1 MOV R1, R2 MOV R1, 2(SP) MOV #6001, (R1)+ MOV #13, R0 M41026: CLR (R1)+ SOB R0, M41026 MOVB K52502, 4(R2) MOV (R4)+, 2(R2) MOVB (R4)+, 27(R2) CLR R0 BISB (R5)+, R0 BEQ M41144 MOVB R0, 11(SP) INC R5 MOVB (R4)+, R2 MOVB R2, 12(SP) CMPB R0, R2 BCC M41124 SUB R0, R2 MOV SP, R1 ADD #16, R1 MOV R1, R3 M41110: MOV (R5)+, (R1)+ SOB R0, M41110 M41114: MOV #177777, (R1)+ SOB R2, M41114 MOV R3, R5 M41124: MOV R5, (SP) MOV (R5), R1 CMP R1, #177777 BEQ M41144 BIT #1, R1 BEQ M41156 M41144: MOV #177773, -(SP) MOV #1035, -(SP) EMT 377 M41156: MOV R1, 50(SP) TST (R1)+ TST (R1) MOVB (R4)+, R1 ADD R5, R1 MOV (R1), R1 CMP R1, #177777 BNE M41210 CLR 4(SP) BR M41240 M41210: BIT #1, R1 BEQ M41234 MOVB -(R4), 10(SP) ASRB 10(SP) MOV #13, R0 BR M41420 M41234: MOV (R1), 4(SP) M41240: MOV R4, 6(SP) MOVB #1, 10(SP) M41252: MOV (SP), R5 MOV 6(SP), R2 MOVB 10(SP), R1 MOV R1, R3 ASL R3 ADD R5, R3 MOV (R3), R3 DEC R1 ADD R2, R1 MOVB (R1), R0 MOV R0, R2 BIC #177600, R2 CMP R3, #177777 BNE M41330 ASLB R0 BCC M41352 MOV #12, R0 BR M41420 M41330: CMPB R2, #54 BCC M41352 BIT #1, R3 BEQ M41352 MOV #13, R0 BR M41420 M41352: MOV 4(SP), R4 CLR R0 MOV PC, R1 ADD #10246, R1 ASL R2 ADD R2, R1 ADD (R1), R1 CALL (R1) TST R0 BNE M41420 INCB 10(SP) CMPB 10(SP), 12(SP) BCS M41252 BR M41440 M41420: MOV SP, R5 MOVB 10(R5), R1 INC R1 SWAB R1 BIS R1, R0 JMP M42072 M41440: MOV SP, R5 MOV R5, -(SP) MOVB #1, 10(R5) MOVB 12(R5), R0 DEC R0 ADD R0, 6(R5) M41464: MOV R5, R2 MOV (R2)+, R5 MOV (R2)+, R4 MOV (R2)+, R3 MOV (R2)+, R1 MOVB (R2), R0 MOV R0, R2 ASL R2 ADD R5, R2 MOV (R2), R2 DEC R0 ADD R0, R1 CLR R0 BISB (R1), R0 MOV PC, R1 ADD #10250, R1 ASL R0 ADD R0, R1 ADD (R1), R1 CALL (R1) MOV (SP), R5 INCB 10(R5) CMPB 10(R5), 12(R5) BCS M41464 MOV #2, R3 M41560: MOV 2(R5), -(SP) EMT 377 BCS M41604 MOV @50(R5), R0 CMPB R0, #177776 BEQ M41624 BR M42040 M41604: MOV @#$DSW, R0 CMPB R0, #177772 BEQ M41660 CMPB R0, #177773 BNE M42020 M41624: CLR -(SP) MOV #43510, -(SP) MOV K52502, -(SP) MOV #2007, -(SP) EMT 377 BCC M41560 MOV @#$DSW, R0 CMPB R0, #177644 BNE M42020 M41660: DEC R3 BNE M41672 MOV #4, R0 BR M42020 M41672: MOV 50(R5), R4 TST (R4)+ CLR (R4) MOV PC, R1 ADD #7720, R1 CLR -(SP) CLR -(SP) CLR -(SP) MOV R4, -(SP) CLR -(SP) CLR -(SP) CLR -(SP) CLR -(SP) CLR -(SP) CLR -(SP) MOV 2(R1), -(SP) MOV (R1), -(SP) MOV #6413, -(SP) EMT 377 BCS M41774 M41752: MOV #461, -(SP) EMT 377 MOV (R4), R0 BEQ M41752 CMP #20000, R0 BEQ M41560 BR M42020 M41774: MOV @#$DSW, R0 CMPB R0, #177771 BEQ M41560 CMPB R0, #177776 BNE M42020 MOV #3, R0 M42020: CMPB R0, #177777 BNE M42032 MOV #177751, R0 M42032: BIC #177400, R0 BR M42072 M42040: MOV @50(R5), R0 BEQ M42104 CMP R0, #177777 BEQ M42104 MOV R0, R1 BIC #117777, R1 BEQ M42072 CMP #60000, R1 BNE M42104 M42072: MOV 50(R5), R1 MOV #177777, (R1)+ MOV R0, (R1) M42104: MOV R5, SP ADD #70, SP RETURN CMP R3, #177777 BEQ M42134 CMP (R3), #36 BLOS M42134 MOV #103, R0 M42134: RETURN CMP R3, #177777 BEQ M42206 MOV (R3), R1 BEQ M42206 DEC R1 BNE M42202 MOV 4(R5), R1 CMP R1, #177777 BEQ M42206 MOV (R1), R1 ASR R1 BCS M42202 CMP R1, #16 BLOS M42206 M42202: MOV #104, R0 M42206: RETURN RETURN CMP R3, #177777 BEQ M42232 CMP (R3), #377 BLOS M42232 MOV #34, R0 M42232: RETURN MOV 4(R5), R1 CMP R1, #177777 BEQ M42270 TST (R1) BEQ M42270 CMP R3, #177777 BEQ M42270 TST (R3) BNE M42270 MOV #32, R0 M42270: RETURN CMP R3, #177777 BEQ M42304 TST (R3) BNE M42320 M42304: CMP 2(R5), #177777 BNE M42320 MOV #117, R0 M42320: RETURN CMP R3, #177777 BEQ M42360 MOV (R3), R3 MOV PC, R1 ADD #7604, R1 MOV #17, R2 M42344: CMP (R1)+, R3 BEQ M42360 TST (R1)+ SOB R2, M42344 MOV #25, R0 M42360: RETURN CMP (R3), #377 BLOS M42374 MOV #106, R0 M42374: RETURN TST (R3) BNE M42406 MOV #14, R0 M42406: RETURN CMP R3, #177777 BEQ M42422 MOV (R3), R1 BNE M42434 M42422: ASR R4 BCC M42444 MOV #12, R0 BR M42444 M42434: SWAB R1 BEQ M42444 MOV #15, R0 M42444: RETURN CMP R3, #177777 BEQ M42472 MOV (R3), R1 BEQ M42466 BIT #177740, R1 BEQ M42472 M42466: MOV #112, R0 M42472: RETURN RETURN CMP R3, #177777 BEQ M42516 CMP (R3), #2 BLOS M42516 MOV #30, R0 M42516: RETURN MOV 4(R5), R1 CMP R1, #177777 BEQ M42602 TST (R1) BEQ M42602 CMP R3, #177777 BEQ M42602 CMP (R3), #177777 BEQ M42602 MOV 6(R5), R1 CMP R1, #177777 BEQ M42602 CMP (R1), #177777 BEQ M42602 CMP (R3), (R1) BCS M42602 MOV #33, R0 M42602: RETURN CMP R3, #177777 BEQ M42630 MOV (R3), R1 BEQ M42624 CMP R1, #3 BLOS M42630 M42624: MOV #27, R0 M42630: RETURN CMP (R3), #1 BLOS M42644 MOV #107, R0 M42644: RETURN CMP R3, #177777 BEQ M42672 MOV (R3), R1 BEQ M42666 CMP R1, #3 BLOS M42672 M42666: MOV #111, R0 M42672: RETURN CMP R3, #177777 BEQ M42722 CMP (R3), #1 BLOS M42722 CMP (R3), #177777 BEQ M42722 MOV #113, R0 M42722: RETURN CMP R3, #177777 BEQ M42752 CMP (R3), #177777 BEQ M42752 CMP (R3), #377 BLOS M42752 MOV #114, R0 M42752: RETURN CMP R3, #177777 BEQ M42774 CMP (R3), #1 BLOS M42774 MOV #102, R0 M42774: RETURN CMP R3, #177777 BEQ M43016 CMP (R3), #1 BLOS M43016 MOV #105, R0 M43016: RETURN BIT #2, R4 BEQ M43056 CMP R3, #177777 BEQ M43056 MOV (R3), R1 BEQ M43052 BPL M43056 NEG R1 BMI M43052 DEC R1 BNE M43056 M43052: MOV #17, R0 M43056: RETURN CMP R3, #177777 BEQ M43106 CMP (R3), #1 BLOS M43106 CMP (R3), #177777 BEQ M43106 MOV #35, R0 M43106: RETURN MOV 4(R5), R1 CMP R1, #177777 BEQ M43154 MOV (R1), R1 BEQ M43154 CMP R3, #177777 BEQ M43150 CMP (R3), #377 BLOS M43154 MOV #36, R0 BR M43154 M43150: MOV #12, R0 M43154: RETURN MOV (R3), R1 BEQ M43170 CMP R1, #2 BLOS M43174 M43170: MOV #24, R0 M43174: RETURN CMP R3, #177777 BEQ M43216 CMP (R3), #1 BLOS M43216 MOV #31, R0 M43216: RETURN CMP R3, #177777 BEQ M43246 CMP (R3), #5 BCS M43242 CMP (R3), #10 BLOS M43246 M43242: MOV #26, R0 M43246: RETURN MOV (R3), R3 BEQ M43262 CMP R3, #10 BLOS M43266 M43262: MOV #110, R0 M43266: RETURN BIT #177776, R4 BEQ M43302 MOV #16, R0 M43302: RETURN BIT #177774, R4 BEQ M43316 MOV #16, R0 M43316: RETURN BIT #177770, R4 BEQ M43332 MOV #16, R0 M43332: RETURN BIT #177760, R4 BEQ M43346 MOV #16, R0 M43346: RETURN BIT #177766, R4 BEQ M43362 MOV #16, R0 M43362: RETURN BIT #177700, R4 BEQ M43376 MOV #16, R0 M43376: RETURN BIT #4, R4 BEQ M43434 CMP R3, #177777 BEQ M43430 CMP (R3), #377 BLOS M43434 MOV #20, R0 BR M43434 M43430: MOV #12, R0 M43434: RETURN TST (R3) BMI M43444 BNE M43450 M43444: MOV #14, R0 M43450: RETURN TST (R3) RETURN CMP R3, #177777 BEQ M43466 TST (R3) M43466: RETURN MOV SP, R4 M43472: TST (R4)+ MOVB 11(R4), R1 MOVB 12(R4), R2 SUB R2, R1 MOVB 10(R4), R2 ASL R2 ADD R2, R5 M43516: CLRB 14(R4) CLRB 15(R4) MOV @(R5)+, R3 CMP R3, #177777 BEQ M43606 MOV #1, R2 INC R1 BR M43570 M43546: INCB 10(R4) CMP (R5), #177777 BEQ M43700 BIT #1, (R5) BNE M43672 MOV @(R5)+, R3 M43570: CALL M44142 BCS M43704 INCB 14(R4) SOB R1, M43546 BR M43704 M43606: INCB 10(R4) TST R1 BEQ M43700 MOV (R5), R5 CMP R5, #177777 BEQ M43700 BIT #1, R5 BNE M43672 CMP (R5), #177777 BEQ M43700 MOV #100001, R2 M43646: CMP (R5), #177777 BEQ M43704 MOV (R5)+, R3 CALL M44142 BCS M43704 INCB 14(R4) BR M43646 M43672: MOV #13, R0 BR M43704 M43700: MOV #12, R0 M43704: RETURN MOV SP, R4 CALL M43472 TST R0 BNE M43734 CMPB 15(R4), #1 BEQ M43734 MOV #120, R0 M43734: RETURN MOV SP, R4 TST (R4)+ MOVB 11(R4), R1 MOVB 12(R4), R2 SUB R2, R1 MOVB 10(R4), R2 ASL R2 ADD R2, R5 MOV #1, R2 MOV @(R5)+, R3 CALL M44142 BCS M44140 CLRB 13(R4) INCB 10(R4) DEC R1 BMI M44112 MOV (R5), R3 CMP R3, #177777 BEQ M44134 BIT #1, R3 BNE M44104 CMP (R3), #310 BCS M44100 CMP (R3), #346 BHI M44100 INCB 13(R4) TST (R5)+ INCB 10(R4) DEC R1 BMI M44112 CMP (R5), #177777 BEQ M44134 BIT #1, (R5) BNE M44104 M44100: JMP M43516 M44104: MOV #13, R0 BR M44140 M44112: MOV 2(R4), R3 CMPB 2(R3), #43 BNE M44134 CLRB 14(R4) BR M44140 M44134: MOV #12, R0 M44140: RETURN M44142: CMP R3, #36 BHI M44160 INCB 15(R4) CLRB R2 RETURN M44160: CMP R3, #310 BCS M44206 CMP R3, #346 BHI M44206 TSTB R2 BNE M44224 INCB R2 CLC RETURN M44206: MOV #124, R0 TST R2 BPL M44240 MOV #125, R0 BR M44240 M44224: MOV #122, R0 TST R2 BPL M44240 MOV #123, R0 M44240: SEC RETURN CMP @2(R5), #10 BNE M44310 CMP R3, #177777 BEQ M44304 CMPB (R3), #101 BEQ M44310 CMPB (R3), #102 BEQ M44310 MOV #53, R0 BR M44310 M44304: MOV #12, R0 M44310: RETURN CMP @2(R5), #10 BNE M44364 CMP R3, #177777 BEQ M44360 CMPB (R3), #101 BEQ M44364 CMPB (R3), #102 BEQ M44364 CMPB (R3), #103 BEQ M44364 MOV #54, R0 BR M44364 M44360: MOV #12, R0 M44364: RETURN TST (R3) BMI M44402 BNE M44412 M44374: MOV #14, R0 RETURN M44402: CMP @2(R5), #20 BEQ M44374 M44412: RETURN MOV #3, R1 MOV 2(R5), R2 CMPB (R2), #115 BEQ M44434 INC R1 M44434: CMPB (R3), #111 BEQ M44456 CMPB (R3), #117 BEQ M44456 MOV #51, R0 BR M44462 M44456: INC R3 SOB R1, M44434 M44462: RETURN CMP (R3), #10 BEQ M44504 CMP (R3), #20 BEQ M44504 MOV #55, R0 M44504: RETURN CMP (R3), #10 BEQ M44534 CMP (R3), #20 BEQ M44534 CMP (R3), #30 BEQ M44534 MOV #55, R0 M44534: RETURN CMP (R3), #10 BHI M44552 CMP (R3), #1 BCC M44556 M44552: MOV #52, R0 M44556: RETURN CMPB (R3), #115 BEQ M44600 CMPB (R3), #123 BEQ M44600 MOV #50, R0 M44600: RETURN CMP R2, #177777 BEQ M44614 BIS (R2), 16(R4) M44614: RETURN CMP R2, #177777 BEQ M44636 TST (R2) BEQ M44636 BIS #200, 16(R4) M44636: RETURN BIS R2, 14(R4) RETURN BIS (R2), 16(R4) RETURN MOV #377, R1 CMP R2, #177777 BEQ M44670 MOV (R2), R1 M44670: BIS R1, 14(R4) RETURN BIS R2, 14(R4) BIS #1, 16(R4) RETURN BIS R2, 14(R4) BIS #2, 16(R4) RETURN BIS R2, 14(R4) BIS #4, 16(R4) RETURN BIS R2, 14(R4) BIS #6, 16(R4) RETURN MOV 4(R5), R1 CMP R1, #177777 BEQ M45014 TST (R1) BEQ M45014 MOV #177777, R1 CMP R2, #177777 BEQ M45010 MOV (R2), R1 M45010: BIS R1, 16(R4) M45014: RETURN CMP R2, #177777 BEQ M45034 TST (R2) BEQ M45034 BIS R2, 12(R4) M45034: RETURN CMP R2, #177777 BEQ M45102 MOV (R2), R2 MOV PC, R1 ADD #5070, R1 MOV #17, R0 M45060: CMP (R1)+, R2 BEQ M45070 TST (R1)+ SOB R0, M45060 M45070: BIS (R1), 20(R4) BIS #10, 14(R4) M45102: RETURN CMP R2, #177777 BEQ M45116 MOVB (R2), 6(R4) M45116: RETURN MOV #37, R1 CMP R2, #177777 BEQ M45134 MOV (R2), R1 M45134: MOV R1, R2 MOV R2, R3 BIC #177773, R3 BIC #177747, R2 ASL R2 BIS R2, R3 ASR R1 BCC M45164 BIS #4000, R3 M45164: ASL R3 ASR R1 ROR R3 COM R3 MOV R3, 14(R4) RETURN RETURN BIS (R2), 14(R4) RETURN CMP R2, #177777 BEQ M45254 BIS #2, 14(R4) MOV (R2), R1 CMP R1, #2 BNE M45240 INC R1 M45240: ASL R1 ASL R1 ASL R1 ASL R1 BIS R1, 16(R4) M45254: RETURN MOV 4(R5), R1 CMP R1, #177777 BEQ M45314 TST (R1) BEQ M45314 MOV #177777, R1 CMP R2, #177777 BEQ M45310 MOV (R2), R1 M45310: BIS R1, 20(R4) M45314: RETURN CMP R2, #177777 BEQ M45346 BIS #4, 14(R4) MOV (R2), R1 SWAB R1 ASR R1 ASR R1 BIS R1, 16(R4) M45346: RETURN MOV #140, R1 TST (R2) BEQ M45364 BIS #10, R1 M45364: BIS R1, 14(R4) RETURN CLR R1 CMP R2, #177777 BEQ M45406 MOV (R2), R1 DEC R1 M45406: BISB R1, 22(R4) RETURN MOV #177777, R1 CMP R2, #177777 BEQ M45430 MOV (R2), R1 M45430: BIS R1, 16(R4) RETURN MOV #177777, R1 CMP R2, #177777 BEQ M45456 MOV (R2), R1 BIC #100, R1 M45456: BIS R1, 14(R4) RETURN CMP R2, #177777 BEQ M45476 TST (R2) BEQ M45504 M45476: BIS #40, 14(R4) M45504: RETURN CMP R2, #177777 BEQ M45520 TST (R2) BNE M45526 M45520: BIS #200, 14(R4) M45526: RETURN BIT #4, R3 BEQ M45556 MOV #15, R1 CMP R2, #177777 BEQ M45552 MOV (R2), R1 M45552: BIS R1, 22(R4) M45556: RETURN BIT #2, R3 BEQ M45606 MOV #5, R1 CMP R2, #177777 BEQ M45602 MOV (R2), R1 M45602: BIS R1, 20(R4) M45606: RETURN MOV 4(R5), R1 CMP R1, #177777 BEQ M45632 TST (R1) BEQ M45632 BIS (R2), 16(R4) M45632: RETURN MOV (R2), R1 DEC R1 BIS R1, 24(R4) RETURN CMP R2, #177777 BEQ M45700 BIS #1, 14(R4) MOV (R2), R1 SUB #5, R1 ASL R1 ASL R1 BIS R1, 16(R4) M45700: RETURN MOV (R2), R1 DEC R1 BIS R1, 14(R4) RETURN ASR R3 BCC M45724 MOVB #3, (R4) M45724: ASR R3 BISB R3, 23(R4) RETURN MOV (R2), R1 ASL R1 BIS R1, 16(R4) RETURN CMP R2, #177777 BEQ M45760 BIS (R2), 14(R4) M45760: RETURN MOV 2(SP), R3 M45766: MOVB 10(R3), R0 ASL R0 ADD R0, R5 M45776: CLRB R0 BISB 14(R3), R0 CMP (R2), #177777 BEQ M46100 CMP R0, #2 BHI M46042 ADD #24, R4 MOVB @(R5)+, (R4) INCB (R4)+ DEC R0 BEQ M46214 MOVB @(R5)+, (R4) INCB (R4) BR M46214 M46042: MOV (SP), R1 ASL R0 SUB R0, SP MOV R3, 2(SP) MOV R1, (SP) MOV SP, R2 ADD #4, R2 MOV R2, R1 ASR R0 MOV R0, R3 M46072: MOV @(R5)+, (R1)+ SOB R3, M46072 BR M46136 M46100: TST (R5)+ MOV (R5), R2 CMP R0, #2 BHI M46136 ADD #24, R4 MOVB (R2)+, (R4) INCB (R4)+ DEC R0 BEQ M46214 INC R2 MOVB (R2), (R4) INCB (R4) BR M46214 M46136: BIS #200, 26(R4) TSTB 27(R4) BEQ M46204 MOV SP, R3 MOV 2(SP), -(SP) MOV 2(SP), -(SP) MOV 26(R4), (R3)+ BIS #100, 26(R4) MOV R2, (R3) TST -(R3) MOV R3, R2 M46204: MOV R2, 24(R4) MOVB R0, 27(R4) M46214: RETURN MOV 2(SP), R3 CLR R0 BISB 15(R3), R0 ASL R0 MOV R0, 16(R4) BR M45766 MOV 2(SP), R3 MOVB 10(R3), R0 ASL R0 ADD R0, R5 MOVB @(R5)+, 26(R4) TSTB 13(R3) BEQ M46272 MOVB @(R5)+, 27(R4) M46272: TSTB 14(R3) BEQ M46304 MOV (R5), R2 BR M45776 M46304: RETURN MOV (R2), R2 CLR R1 M46312: INC R1 SUB #10, R2 BNE M46312 BIS R1, 16(R4) BISB R1, 24(R4) RETURN MOV (R2), R2 CMPB @2(R5), #10 BEQ M46350 ADD R2, R2 M46350: MOV R2, 16(R4) RETURN MOV @2(R5), R1 M46362: BISB (R2)+, 14(R4) INC R4 SUB #10, R1 BNE M46362 RETURN CMPB (R2), #111 BNE M46414 BISB #20, 14(R4) M46414: CMPB 1(R2), #111 BNE M46432 BISB #2, 14(R4) M46432: CMPB 2(R2), #111 BNE M46450 BISB #10, 14(R4) M46450: CMPB 3(R2), #111 BNE M46466 BISB #1, 14(R4) M46466: CMPB @2(R5), #115 BEQ M46566 CMPB (R2), #111 BNE M46512 BISB #40, 20(R4) M46512: CMPB 1(R2), #111 BNE M46530 BISB #20, 20(R4) M46530: CMPB 2(R2), #111 BNE M46546 BISB #14, 20(R4) M46546: CMPB 3(R2), #111 BNE M46704 BISB #3, 20(R4) BR M46704 M46566: BIC #1, 14(R4) BITB #40, 14(R4) BEQ M46656 CMPB (R2), #111 BNE M46640 BISB #46, 20(R4) CMPB 2(R2), #111 BNE M46656 BISB #10, 20(R4) BR M46656 M46640: CMPB 2(R2), #111 BNE M46656 BISB #4, 20(R4) M46656: BITB #4, 14(R4) BEQ M46704 CMPB 1(R2), #111 BNE M46704 BISB #21, 20(R4) M46704: CLR R1 MOVB 20(R4), R1 COM R1 BIC #177700, R1 BISB R1, 21(R4) MOVB 14(R4), R1 BIC #177717, R1 CMP R1, #40 BNE M46752 BISB #52, 16(R4) BR M46766 M46752: CMP R1, #60 BNE M46766 BISB #46, 16(R4) M46766: BITB #4, 14(R4) BEQ M47004 BISB #23, 16(R4) M47004: MOVB 16(R4), R1 COM R1 BIC #177700, R1 BISB R1, 17(R4) BISB #77, 27(R4) RETURN CMP R2, #177777 BEQ M47062 MOV @2(R5), R1 M47044: BISB (R2)+, 20(R4) INC R4 SUB #10, R1 BNE M47044 BR M47076 M47062: MOV #177777, 20(R4) BISB #377, 22(R4) M47076: RETURN ASR R3 BCC M47110 BISB #3, (R4) M47110: RETURN MOV (R2), R2 CLR R1 M47116: INC R1 SUB #10, R2 BNE M47116 BISB R1, 24(R4) RETURN CMPB (R2), #115 BNE M47150 BISB #44, 14(R4) M47150: BISB #200, 14(R4) RETURN RETURN CMP @2(R5), #10 BNE M47254 CMPB (R2), #101 BNE M47236 BISB #40, 27(R4) CMPB 2(R4), #15 BNE M47226 BISB #52, 27(R4) BR M47302 M47226: BISB #46, 27(R4) BR M47302 M47236: BISB #2, 26(R4) BISB #21, 27(R4) BR M47302 M47254: CMPB 2(R4), #15 BNE M47274 BISB #73, 27(R4) BR M47302 M47274: BISB #67, 27(R4) M47302: RETURN CMP @2(R5), #10 BNE M47500 CMPB (R2), #101 BNE M47340 TSTB 20(R4) BEQ M47670 BISB #40, 27(R4) BR M47670 M47340: CMPB (R2), #102 BNE M47372 BISB #2, 26(R4) TSTB 20(R4) BEQ M47670 BISB #20, 27(R4) BR M47670 M47372: BISB #4, 26(R4) TSTB 20(R4) BEQ M47670 BITB #300, 20(R4) BEQ M47424 BISB #10, 27(R4) M47424: BITB #60, 20(R4) BEQ M47442 BISB #4, 27(R4) M47442: BITB #10, 20(R4) BEQ M47460 BISB #2, 27(R4) M47460: BITB #7, 20(R4) BEQ M47670 BISB #1, 27(R4) BR M47670 M47500: CMP @2(R5), #20 BNE M47542 TSTB 20(R4) BEQ M47524 BISB #40, 27(R4) M47524: TSTB 21(R4) BEQ M47670 BISB #20, 27(R4) BR M47670 M47542: TSTB 20(R4) BEQ M47556 BISB #40, 27(R4) M47556: TSTB 21(R4) BEQ M47572 BISB #20, 27(R4) M47572: TSTB 22(R4) BEQ M47670 BITB #300, 22(R4) BEQ M47616 BISB #10, 27(R4) M47616: BITB #60, 22(R4) BEQ M47634 BISB #4, 27(R4) M47634: BITB #10, 22(R4) BEQ M47652 BISB #2, 27(R4) M47652: BITB #7, 22(R4) BEQ M47670 BISB #1, 27(R4) M47670: RETURN BIS (R2), 24(R4) RETURN CMP R2, #177777 BEQ M47716 TST (R2) BEQ M47716 BIS R2, 12(R4) M47716: BISB #1, 24(R4) BISB #0, 26(R4) RETURN BIS (R2)+, 24(R4) BIS (R2)+, 22(R4) RETURN .K.PAA: MOV (SP)+, R3 MOV SP, R4 MOV (R3)+, R2 MOV (R3)+, R1 MOVB (R5), R0 SUB R0, R2 BMI M50042 BEQ M47776 M47766: ROR R1 BCS M50042 CLR -(SP) SOB R2, M47766 M47776: MOV R0, R2 BEQ M50036 INC R2 ASL R2 ADD R5, R2 M50010: MOV -(R2), -(SP) CMP #177777, (SP) BEQ M50024 ROR R1 BR M50032 M50024: ROR R1 BCS M50042 CLR (SP) M50032: DEC R0 BNE M50010 M50036: CLC BR M50050 M50042: MOV R4, SP SEC BR M50052 M50050: MOV R4, R5 M50052: JMP (R3) K50054: .WORD 11406 .WORD 2001 .WORD 115406 .WORD 17414 .WORD 13046 .WORD 51 K50070: .WORD 11403 .WORD 2401 .WORD 115410 .WORD 6006 .WORD 23037 .WORD 13017 .WORD 51 K50106: .WORD 12007 .WORD 4001 .WORD 115412 .WORD 105654 .WORD 22014 .WORD 22430 .WORD 6446 .WORD 13016 .WORD 22051 .WORD 43 K50132: .WORD 12010 .WORD 4002 .WORD 115412 .WORD 105654 .WORD 20414 .WORD 22430 .WORD 6446 .WORD 13016 .WORD 22051 .WORD 43 K50156: .WORD 11405 .WORD 2001 .WORD 115406 .WORD 17414 .WORD 13046 .WORD 51 K50172: .WORD 11404 .WORD 3001 .WORD 115412 .WORD 15031 .WORD 17414 .WORD 25446 .WORD 13045 .WORD 51 K50212: .WORD 11401 .WORD 4003 .WORD 115416 .WORD 16411 .WORD 7421 .WORD 17414 .WORD 12446 .WORD 16047 .WORD 13032 .WORD 51 K50236: .WORD 11402 .WORD 3403 .WORD 115414 .WORD 3434 .WORD 6020 .WORD 23037 .WORD 11453 .WORD 13033 .WORD 51 K50260: .WORD 12014 .WORD 3400 .WORD 100014 K50266: .WORD 24247 .WORD 6060 .WORD 4437 .WORD 2015 .WORD 13005 .WORD 6 K50302: .WORD 12016 .WORD 4000 .WORD 101014 .WORD 100654 .WORD 6057 .WORD 14040 .WORD 6402 .WORD 3412 .WORD 24426 .WORD 44 K50326: .WORD 11413 .WORD 3400 .WORD 100014 .WORD 24247 .WORD 6060 .WORD 1037 .WORD 2003 .WORD 13005 .WORD 6 K50350: .WORD 12015 .WORD 4000 .WORD 101014 .WORD 100654 .WORD 6057 .WORD 14040 .WORD 6402 .WORD 3412 .WORD 24426 .WORD 44 K50374: .WORD 11411 .WORD 2477 .WORD 126410 .WORD 6256 .WORD 37 .WORD 13001 .WORD 6 K50412: .WORD 12000 .WORD 2000 .WORD 126006 .WORD 17414 .WORD 13022 .WORD 51 K50426: .WORD 11434 .WORD 2400 .WORD 105006 .WORD 20014 .WORD 14430 .WORD 24426 .WORD 44 K50444: .WORD 11433 .WORD 2000 .WORD 6004 .WORD 14040 .WORD 24426 .WORD 44 K50460: .WORD 14035 .WORD 3000 .WORD 123406 .WORD 20014 .WORD 124430 .WORD 13021 .WORD 22051 .WORD 54 K50500: .WORD 13445 .WORD 2400 .WORD 6004 .WORD 14040 .WORD 13253 .WORD 22051 .WORD 56 K50516: .WORD 13440 .WORD 2400 .WORD 6004 .WORD 14040 .WORD 13251 .WORD 22051 .WORD 54 K50534: .WORD 13436 .WORD 2400 .WORD 6004 .WORD 14040 .WORD 13251 .WORD 22051 .WORD 54 K50552: .WORD 12024 .WORD 2400 .WORD 123410 .WORD 6246 .WORD 6437 .WORD 13052 .WORD 51 K50570: .WORD 11425 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K50602: .WORD 12431 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K50614: .WORD 12430 .WORD 2000 .WORD 6006 .WORD 21410 .WORD 12026 .WORD 51 K50630: .WORD 11417 .WORD 3000 .WORD 13012 .WORD 2404 .WORD 17414 .WORD 5441 .WORD 13014 .WORD 51 K50650: .WORD 11432 .WORD 2000 .WORD 6004 .WORD 14040 .WORD 24426 .WORD 44 K50664: .WORD 12020 .WORD 2000 .WORD 123406 .WORD 17414 .WORD 13020 .WORD 51 K50700: .WORD 13447 .WORD 2400 .WORD 6004 .WORD 14040 .WORD 13251 .WORD 22051 .WORD 54 K50716: .WORD 13446 .WORD 3400 .WORD 111010 .WORD 6236 .WORD 14040 .WORD 16651 .WORD 13050 .WORD 22051 .WORD 54 K50740: .WORD 12051 .WORD 2400 .WORD 123406 .WORD 20014 .WORD 10030 .WORD 24426 .WORD 44 K50756: .WORD 11450 .WORD 2000 .WORD 6004 .WORD 14040 .WORD 24426 .WORD 44 K50772: .WORD 11426 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K51004: .WORD 14043 .WORD 4000 .WORD 126010 .WORD 6213 .WORD 14042 .WORD 125445 .WORD 7015 .WORD 24426 .WORD 21444 .WORD 56 K51030: .WORD 11427 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K51042: .WORD 12423 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K51054: .WORD 12422 .WORD 2000 .WORD 6006 .WORD 21410 .WORD 12026 .WORD 51 K51070: .WORD 11421 .WORD 2000 .WORD 13406 .WORD 17414 .WORD 13042 .WORD 51 K51104: .WORD 13437 .WORD 2400 .WORD 6004 .WORD 14040 .WORD 13251 .WORD 22051 .WORD 54 K51122: .WORD 14042 .WORD 4000 .WORD 126010 .WORD 6213 .WORD 14042 .WORD 124445 .WORD 7015 .WORD 24426 .WORD 21444 .WORD 54 K51146: .WORD 14053 .WORD 3000 .WORD 123406 .WORD 20014 .WORD 124430 .WORD 13015 .WORD 22051 .WORD 55 K51166: .WORD 12457 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K51200: .WORD 12054 .WORD 2000 .WORD 123406 .WORD 17414 .WORD 13020 .WORD 51 K51214: .WORD 12455 .WORD 2000 .WORD 6006 .WORD 21410 .WORD 12026 .WORD 51 K51230: .WORD 15056 .WORD 4000 .WORD 6006 .WORD 21010 .WORD 11647 .WORD 124430 .WORD 12026 .WORD 6451 .WORD 22036 .WORD 55 K51254: .WORD 14052 .WORD 3000 .WORD 123406 .WORD 20014 .WORD 125030 .WORD 13020 .WORD 22051 .WORD 54 K51274: .WORD 13441 .WORD 2400 .WORD 6004 .WORD 14040 .WORD 13252 .WORD 22051 .WORD 54 K51312: .WORD 13444 .WORD 3400 .WORD 105406 .WORD 21014 .WORD 22430 .WORD 7253 .WORD 24426 .WORD 21444 .WORD 56 K51334: .WORD 12062 .WORD 2000 .WORD 123406 .WORD 17414 .WORD 13020 .WORD 51 K51350: .WORD 12461 .WORD 1400 .WORD 6004 .WORD 13037 .WORD 51 K51362: .WORD 12460 .WORD 2400 .WORD 6006 .WORD 21410 .WORD 13015 .WORD 24424 .WORD 27 K51400: .WORD 12066 .WORD 3400 .WORD 126010 .WORD 6213 .WORD 14044 .WORD 6445 .WORD 13016 .WORD 22051 .WORD 43 K51422: .WORD 11464 .WORD 2400 .WORD 12410 .WORD 6024 .WORD 20037 .WORD 13037 .WORD 51 K51440: .WORD 12065 .WORD 3400 .WORD 126010 .WORD 6213 .WORD 14044 .WORD 6445 .WORD 13016 .WORD 22051 .WORD 43 K51462: .WORD 11463 .WORD 2400 .WORD 12410 .WORD 6024 .WORD 20037 .WORD 13037 .WORD 51 .WORD 130357 .WORD 60134 K51504: .WORD 0 .WORD 12071 .WORD 4040 .WORD 123410 .WORD 6213 .WORD 14040 .WORD 123450 .WORD 7015 .WORD 24426 .WORD 12044 .WORD 62 .WORD 12070 .WORD 4060 .WORD 126010 .WORD 6213 .WORD 14040 .WORD 123450 .WORD 7015 .WORD 24426 .WORD 12044 .WORD 60 .WORD 12067 .WORD 2420 .WORD 126006 .WORD 20014 .WORD 27430 .WORD 24426 .WORD 44 .WORD 12016 .WORD 3440 .WORD 126010 .WORD 6213 .WORD 14040 .WORD 6450 .WORD 13016 .WORD 22051 .WORD 61 LIBID: .ASCII |V02.0073| .WORD 127450 .WORD 172656 .WORD 172534 .WORD 172630 .WORD 172700 .WORD 170254 .WORD 170274 .WORD 170346 .WORD 170366 .WORD 170422 .WORD 170450 .WORD 170506 .WORD 170520 .WORD 170530 .WORD 170564 .WORD 170610 .WORD 170610 .WORD 170630 .WORD 170712 .WORD 170736 .WORD 170750 .WORD 170774 .WORD 171022 .WORD 171050 .WORD 171070 .WORD 171110 .WORD 171146 .WORD 171174 .WORD 171240 .WORD 171256 .WORD 171276 .WORD 171324 .WORD 171342 .WORD 171354 .WORD 171366 .WORD 171400 .WORD 171412 .WORD 171424 .WORD 171436 .WORD 171472 .WORD 171504 .WORD 171506 .WORD 171516 .WORD 171732 .WORD 171760 .WORD 170230 .WORD 172576 .WORD 172430 .WORD 172256 .WORD 172322 .WORD 175142 .WORD 174404 .WORD 175114 .WORD 174356 .WORD 175030 .WORD 175300 .WORD 175072 .WORD 175152 .WORD 175146 .WORD 174272 .WORD 174316 .WORD 172562 .WORD 172574 .WORD 172614 .WORD 172620 .WORD 172624 .WORD 172660 .WORD 172672 .WORD 172704 .WORD 172716 .WORD 172754 .WORD 172772 .WORD 173036 .WORD 173050 .WORD 173130 .WORD 173130 .WORD 173134 .WORD 173176 .WORD 173234 .WORD 173264 .WORD 173304 .WORD 173324 .WORD 173344 .WORD 173370 .WORD 173410 .WORD 173430 .WORD 173456 .WORD 173504 .WORD 173526 .WORD 173536 .WORD 173570 .WORD 173600 .WORD 173616 .WORD 173626 .WORD 173640 .WORD 174072 .WORD 174112 .WORD 172546 .WORD 175540 .WORD 175544 .WORD 175576 .WORD 62 .WORD 0 .WORD 113 .WORD 1 .WORD 156 .WORD 2 .WORD 206 .WORD 3 .WORD 226 .WORD 4 .WORD 454 .WORD 5 .WORD 1130 .WORD 6 .WORD 2260 .WORD 7 .WORD 3410 .WORD 10 .WORD 3720 .WORD 11 .WORD 4540 .WORD 12 .WORD 7020 .WORD 13 .WORD 11300 .WORD 14 .WORD 16040 .WORD 15 .WORD 22600 .WORD 16 HGICP: .WORD 36664 .WORD 36676 .WORD 36602 .WORD 36652 .WORD 36640 .WORD 36570 .WORD 36614 .WORD 36626 .WORD 36760 .WORD 36734 .WORD 36746 .WORD 36710 .WORD 36722 .WORD 37234 .WORD 37070 .WORD 37126 .WORD 37140 .WORD 37210 .WORD 37222 .WORD 37330 .WORD 37354 .WORD 37366 .WORD 37400 .WORD 37436 .WORD 37546 .WORD 37560 .WORD 37572 .WORD 37152 .WORD 37316 .WORD 37342 .WORD 37176 .WORD 37164 .WORD 37056 .WORD 37044 .WORD 37412 .WORD 37114 .WORD 37424 .WORD 37102 .WORD 37260 .WORD 37246 .WORD 37304 .WORD 37272 .WORD 37462 .WORD 37474 .WORD 37450 .WORD 37630 .WORD 37616 .WORD 37604 .WORD 37700 .WORD 37654 .WORD 37666 .WORD 37642 .WORD 37004 .WORD 36772 .WORD 40166 .WORD 37712 .WORD 40564 .WORD 40412 .WORD 40530 .WORD 27746 .WORD 35614 .WORD 34712 .WORD 34436 .WORD 31672 .WORD 31004 .WORD 31326 .WORD 1404 .WORD 53020 .WORD 56242 .WORD 6344 .WORD 7340 .WORD 10602 .WORD 52712 .WORD 52546 .WORD 33656 .WORD 6264 .WORD 17212 .WORD 24662 .WORD 15674 .WORD 20530 .WORD 22056 .WORD 23360 .WORD 14362 K52502: .WORD 24 $SAVAL: MOV R4, -(SP) MOV R3, -(SP) MOV R2, -(SP) MOV R1, -(SP) MOV R0, -(SP) MOV 12(SP), -(SP) MOV R5, 14(SP) CALL @(SP)+ MOV (SP)+, R0 MOV (SP)+, R1 MOV (SP)+, R2 MOV (SP)+, R3 MOV (SP)+, R4 MOV (SP)+, R5 RETURN SOCBIT: CLR R1 MOV @2(R5), R0 BMI M52624 CMP #17, R0 BMI M52624 ASL R0 TST @4(R5) BEQ M52614 CMP @4(R5), #1 BNE M52624 BIS 52652(R0), @6(R5) BR M52626 M52614: BIC 52652(R0), @6(R5) BR M52626 M52624: DEC R1 M52626: CMPB #4, (R5) BEQ M52636 M52634: RETURN M52636: TST 10(R5) BMI M52634 MOV R1, @10(R5) BR M52634 .WORD 1 .WORD 2 .WORD 4 .WORD 10 .WORD 20 .WORD 40 .WORD 100 .WORD 200 .WORD 400 .WORD 1000 .WORD 2000 .WORD 4000 .WORD 10000 .WORD 20000 .WORD 40000 .WORD 100000 TSTBIT: CLR @4(R5) MOV @2(R5), R0 BMI M52752 CMP #17, R0 BMI M52752 ASL R0 BIT 52760(R0), @6(R5) BEQ M52750 INC @4(R5) M52750: RETURN M52752: DEC @4(R5) BR M52750 .WORD 1 .WORD 2 .WORD 4 .WORD 10 .WORD 20 .WORD 40 .WORD 100 .WORD 200 .WORD 400 .WORD 1000 .WORD 2000 .WORD 4000 .WORD 10000 .WORD 20000 .WORD 40000 .WORD 100000 PLOT: MOV #13, R4 CALL M56660 BCC M53036 JMP M56240 M53036: CALL M56504 CALL M56572 CALL M56614 CALL M56526 CALL M56550 SETF LDD @14(R5), AC1 STD AC1, K27016 LDD @20(R5), AC1 STD AC1, K27106 MOV K12674, R0 MOV 2(R0), K26744 MOV 4(R0), K26730 MOV 6(R0), K26734 MOV 10(R0), K26732 CLR K26740 CMP K26744, #1 BLT M53164 CMP K26744, #2 BLE M53176 M53164: MOV #14, @2(R5) JMP M56240 M53176: CMP K26730, #1 BLT M53216 CMP K26730, #7 BLE M53230 M53216: MOV #15, @2(R5) JMP M56240 M53230: CMP K26734, #1 BLT M53250 CMP K26734, #11 BLE M53262 M53250: MOV #21, @2(R5) JMP M56240 M53262: TST K26732 BLT M53300 CMP K26732, #7 BLE M53312 M53300: MOV #11, @2(R5) JMP M56240 M53312: CMP K26744, #1 BNE M53346 MOV K12744, R0 TST 4(R0) BGT M53346 MOV #22, @2(R5) JMP M56240 M53346: TST @16(R5) BNE M53366 MOV #12, @2(R5) JMP M56240 M53366: TST @22(R5) BNE M53406 MOV #13, @2(R5) JMP M56240 M53406: TST @12(R5) BGE M53426 MOV #23, @2(R5) JMP M56240 M53426: MOV R5, -(SP) MOV #13406, R5 CALL M57272 MOV #13412, R5 CALL M57272 MOV #13416, R5 CALL M57272 MOV #13432, R5 CALL M57272 MOV #13440, R5 CALL M57272 MOV #13446, R5 CALL M57272 MOV #13454, R5 CALL M57272 MOV #13462, R5 CALL M57272 MOV #13470, R5 CALL M57272 MOV #13500, R5 CALL M57272 MOV #13510, R5 CALL M57272 MOV #13520, R5 CALL M57272 MOV #13530, R5 CALL M57272 MOV #13540, R5 CALL M57272 MOV (SP)+, R5 MOV #1, K26710 M53620: MOV R5, -(SP) MOV #13550, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, #5 BLE M53620 MOV R5, -(SP) MOV #13560, R5 CALL M57272 MOV #13570, R5 CALL M57272 MOV (SP)+, R5 MOV #1, K26710 M53702: MOV R5, -(SP) MOV #13600, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, #5 BLE M53702 TST K26732 BEQ M54150 MOV R5, -(SP) MOV #13610, R5 CALL M57272 MOV (SP)+, R5 SETF LDD #42110, AC1 STD AC1, K27026 MOV #1, K26710 M53774: SETF LDD K27026, AC1 ADDD #42014, AC1 STD AC1, K27026 MOV R5, -(SP) MOV #13616, R5 CALL M57272 MOV #13626, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, #4 BLE M53774 SETF LDD #42110, AC1 STD AC1, K27026 MOV #1, K26710 M54072: SETF LDD K27026, AC1 ADDD #42014, AC1 STD AC1, K27026 MOV R5, -(SP) MOV #13636, R5 CALL M57272 MOV #13646, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, #4 BLE M54072 M54150: MOV R5, -(SP) MOV #13462, R5 CALL M57272 MOV (SP)+, R5 SETF LDD @22(R5), AC1 MULD #40640, AC1 LDD K27106, AC2 ADDD AC2, AC1 STD AC1, K27052 TSTD AC2 CFCC BEQ M54316 BGE M54226 TSTD AC1 CFCC BGT M54244 M54226: TSTD AC2 CFCC BLE M54242 TSTD AC1 CFCC BLT M54244 M54242: BR M54316 M54244: SETF LDD K27106, AC1 MULD #142014, AC1 DIVD @22(R5), AC1 ADDD #42110, AC1 STD AC1, K27032 MOV R5, -(SP) MOV #13656, R5 CALL M57272 MOV #13666, R5 CALL M57272 MOV (SP)+, R5 M54316: SETF LDD @16(R5), AC1 MULD #40640, AC1 LDD K27016, AC2 ADDD AC2, AC1 STD AC1, K26762 TSTD AC2 CFCC BEQ M54450 BGE M54360 TSTD AC1 CFCC BGT M54376 M54360: TSTD AC2 CFCC BLE M54374 TSTD AC1 CFCC BLT M54376 M54374: BR M54450 M54376: SETF LDD K27016, AC1 MULD #142014, AC1 DIVD @16(R5), AC1 ADDD #42110, AC1 STD AC1, K27032 MOV R5, -(SP) MOV #13676, R5 CALL M57272 MOV #13706, R5 CALL M57272 MOV (SP)+, R5 M54450: MOV #1, R4 SETF SETI M54460: MOV R4, R0 DEC R0 LDCLD AC0, AC2 LDD AC2, AC1 MOV R4, R0 ASL R0 ASL R0 LDD AC1, AC2 MULD @16(R5), AC2 ADDD K27016, AC2 STD AC2, 26762(R0) LDD AC1, AC2 MULD @22(R5), AC2 ADDD K27106, AC2 STD AC2, 27052(R0) INC R4 CMP R4, #6 BLE M54460 STD AC1, K26704 MOV R4, K26710 MOV R5, -(SP) MOV #13716, R5 CALL M57272 MOV #13726, R5 CALL M57272 MOV #13736, R5 CALL M57272 SETF LDD #42026, AC1 STD AC1, K27022 MOV #13746, R5 CALL M57272 MOV (SP)+, R5 MOV #1, K26710 M54636: MOV K26710, R0 ASL R0 ASL R0 TST 26762(R0) BEQ M54712 ADD #26762, R0 MOV R0, K12764 MOV R5, -(SP) MOV #12762, R5 CALL TLATE MOV #13756, R5 CALL CMPRS MOV (SP)+, R5 BR M55004 M54712: MOV #1, R4 M54716: MOVB #40, 26711(R4) INC R4 CMP R4, #4 BLE M54716 MOVB #60, K26716 MOVB #56, K26717 MOVB #60, K26720 MOV #10, R4 M54762: MOVB #40, 26711(R4) INC R4 CMP R4, #15 BLE M54762 MOV R4, K26742 M55004: MOV R5, -(SP) MOV #13762, R5 CALL M57272 MOV (SP)+, R5 SETF LDD K27022, AC1 ADDD #42014, AC1 STD AC1, K27022 MOV R5, -(SP) MOV #13746, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, #6 BLE M54636 MOV R5, -(SP) MOV #13716, R5 CALL M57272 MOV #13726, R5 CALL M57272 MOV #13772, R5 CALL M57272 MOV (SP)+, R5 MOV #1, K26710 M55130: MOV K26710, R0 ASL R0 ASL R0 MOV R0, K27114 TST 27052(R0) BEQ M55212 MOV R0, K12764 ADD #27052, K12764 MOV R5, -(SP) MOV #12762, R5 CALL TLATE MOV #13756, R5 CALL CMPRS MOV (SP)+, R5 BR M55304 M55212: MOV #1, R4 M55216: MOVB #40, 26711(R4) INC R4 CMP R4, #4 BLE M55216 MOVB #60, K26716 MOVB #56, K26717 MOVB #60, K26720 MOV #10, R4 M55262: MOVB #40, 26711(R4) INC R4 CMP R4, #15 BLE M55262 MOV R4, K26742 M55304: MOV R5, -(SP) MOV #13762, R5 CALL M57272 MOV K27114, K13002 ADD #26654, K13002 MOV #12774, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, #6 BLE M55130 MOV R5, -(SP) MOV #14002, R5 CALL M57272 MOV #14012, R5 CALL M57272 MOV #14022, R5 CALL M57272 MOV #14032, R5 CALL M57272 MOV (SP)+, R5 MOV 26(R5), K13010 MOV R5, -(SP) MOV #13004, R5 CALL M57272 MOV #14042, R5 CALL M57272 MOV #14052, R5 CALL M57272 MOV #14062, R5 CALL M57272 MOV #14072, R5 CALL M57272 MOV (SP)+, R5 MOV 24(R5), K13010 MOV R5, -(SP) MOV #13004, R5 CALL M57272 MOV (SP)+, R5 SETF LDD K26762, AC1 SUBD K27016, AC1 STD AC1, K26756 LDD K27052, AC1 SUBD K27106, AC1 STD AC1, K27046 MOV K26744, K26736 M55570: MOV K12744, R0 SETF LDD 4(R0), AC1 STD AC1, K26752 MOV K12754, R0 LDD 4(R0), AC1 STD AC1, K27042 CMP K26736, #1 BNE M55636 CLRD K26752 M55636: TST @12(R5) BEQ M56226 MOV R5, -(SP) MOV #14102, R5 CALL M57272 MOV #14110, R5 CALL M57272 MOV (SP)+, R5 SETF LDD K26752, AC1 SUBD K27016, AC1 DIVD K26756, AC1 LDD #42457, AC2 MULD AC2, AC1 LDD #42110, AC3 ADDD AC3, AC1 STD AC1, K26746 LDD K27042, AC1 SUBD K27106, AC1 DIVD K27046, AC1 MULD AC2, AC1 ADDD AC3, AC1 STD AC1, K27036 MOV R5, -(SP) MOV #14122, R5 CALL M57272 MOV (SP)+, R5 MOV @12(R5), K27112 MOV #2, K26710 CMP K26710, K27112 BGT M56226 M56012: SETF LDD K26752, AC1 CMP K26736, #1 BNE M56054 MOV K26710, R0 DEC R0 SETI LDCLD AC0, AC2 MOV K12744, R0 MULD 4(R0), AC2 LDD AC2, AC1 M56054: CMP K26736, #2 BNE M56102 MOV K26710, R0 ASL R0 ASL R0 ADD K12744, R0 LDD (R0), AC1 M56102: LDD AC1, AC2 SUBD K27016, AC2 STD AC1, K26752 DIVD K26756, AC2 LDD #42457, AC1 MULD AC1, AC2 LDD #42110, AC3 ADDD AC3, AC2 STD AC2, K26746 MOV K26710, R0 ASL R0 ASL R0 ADD K12754, R0 LDD (R0), AC2 SUBD K27106, AC2 DIVD K27046, AC2 MULD AC1, AC2 ADDD AC3, AC2 STD AC2, K27036 MOV R5, -(SP) MOV #14132, R5 CALL M57272 MOV (SP)+, R5 INC K26710 CMP K26710, K27112 BLE M56012 M56226: CLR @2(R5) MOV #1, K26740 M56240: RETURN PLOTM: MOV #5, R4 CALL M56660 BCC M56260 JMP M56240 M56260: CALL M56636 CALL M56572 CALL M56614 MOV K12730, R0 MOV 2(R0), K26730 MOV 4(R0), K26734 TST K26740 BNE M56332 MOV #20, @2(R5) BR M56240 M56332: CMP K26730, #1 BLT M56352 CMP K26730, #7 BLE M56362 M56352: MOV #15, @2(R5) BR M56240 M56362: CMP K26734, #1 BLT M56402 CMP K26734, #11 BLE M56412 M56402: MOV #21, @2(R5) BR M56240 M56412: CMP K26736, #1 BNE M56444 MOV K12744, R0 TST 4(R0) BNE M56444 MOV #22, @2(R5) BR M56240 M56444: TST @12(R5) BGE M56462 MOV #23, @2(R5) BR M56240 M56462: TST @12(R5) BNE M56500 MOV #24, @2(R5) BR M56240 M56500: JMP M55570 M56504: MOV 4(R5), R0 MOV R0, K12672 SUB #2, R0 MOV R0, K12674 RETURN M56526: MOV 24(R5), R0 MOV R0, K12704 SUB #2, R0 MOV R0, K12706 RETURN M56550: MOV 26(R5), R0 MOV R0, K12716 SUB #2, R0 MOV R0, K12720 RETURN M56572: MOV 6(R5), R0 MOV R0, K12742 SUB #4, R0 MOV R0, K12744 RETURN M56614: MOV 10(R5), R0 MOV R0, K12752 SUB #4, R0 MOV R0, K12754 RETURN M56636: MOV 4(R5), R0 MOV R0, K12726 SUB #2, R0 MOV R0, K12730 RETURN M56660: MOV R5, R0 M56662: TST (R0)+ CMP #177777, (R0) BEQ M56706 BIT #1, (R0) BNE M56720 SOB R4, M56662 CCC M56704: RETURN M56706: MOV #1, @2(R5) M56714: SEC BR M56704 M56720: MOV #2, @2(R5) BR M56714 TLATE: MOV 2(R5), R0 ADD #2, R0 MOV (R0), -(SP) MOV -(R0), -(SP) MOV @6(R5), -(SP) MOV @10(R5), -(SP) MOV 4(R5), T.XXX CALL $WRF RETURN T.XXX: .WORD 0 .WORD 1321 .WORD 50 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 $ALERR: CMP @#$DSW, #177777 ;Autoload error handler BNE M57252 MOV #461, -(SP) EMT 377 BR M57270 M57252: MOV #1, -(SP) MOV #1, -(SP) MOV #1723, -(SP) EMT 377 M57270: RETURN M57272: CALL @.NAUTO ADD (R3), -(R0) BICB R0, R0 $AUTO: MOV @0(SP), -(SP) ;Autoload service routine BIT #10000, @(SP)+ BNE M57322 ADD #2, (SP) $ALBP1: MOV @(SP)+, PC M57322: JSR R5, .SAVR1 MOV @#.NOVPT, R1 MOV 14(SP), R5 MOV (R5)+, R2 MOV (R5), 14(SP) CALL @16(R1) $ALBPL: CLR R5 CLR R4 CLR R3 CALL @14(R1) BCS M57426 M57364: TST (R2) BPL M57406 MOV 10(R2), R2 BEQ M57406 BIT #10000, (R2) BNE $ALBPL BR M57364 M57406: MOV 20(R1), R2 BNE M57416 $ALBP2: RETURN M57416: CLR 20(R1) JMP M60140 M57426: CALL @10(R1) BR $ALBPL $RTS: MOV #57470, 24(R1) ;Provide a single return instruction for use as a target address when autoloading data segments and for other return pointst MOV #56772, -(SP) EMT 377 CMP $DSW, #2 BEQ M57470 MOV #61162, 24(R1) RETURN M57470: CALL $SAVAL MOV R2, -(SP) MOV 20(R2), R3 CMP 20(R5), R4 BEQ M57532 MOV 16(R2), R2 CLRB R2 MOV 16(R5), R5 CLRB R5 CMP R2, R5 BNE M57642 BR M57542 M57532: CMPB 16(R2), 16(R5) BNE M57642 M57542: MOV 6(R3), R2 BNE M57556 TST 22(R3) BNE M57642 M57556: MOV 6(R4), R5 CMP R2, R5 BNE M57642 MOV 12(R3), R2 MOVB 1(R3), R0 MOV 10(R3), R1 ASL R0 ASL R0 ASL R0 BIS #100000, R0 IOT TST R0 BMI M57642 MOV (SP), R0 BIC #10000, (R0) MOV 20(R0), R0 BIS #100000, 20(R0) M57642: TST (SP)+ RETURN $MARKS: MOV 20(R2), R4 ;Mark segments handler CLR 20(R1) MOV R2, -(SP) M57660: BIT #10000, (R2) BNE M57700 M57666: MOV 10(R2), R2 BNE M57660 M57674: MOV (SP)+, R2 RETURN M57700: TST 10(R2) BEQ M57674 MOV R2, -(SP) MOV R2, -(SP) M57712: MOV 12(R2), R2 CMP R2, (SP) BEQ M60046 M57722: BIT #10000, (R2) BNE M60054 BIS #10000, (R2) CMPB 12(R1), #22 BCS M60022 TST R4 BEQ M60022 TST 4(R2) BEQ M60034 MOV 20(R2), R3 BEQ M60022 CMP 22(R3), 22(R4) BEQ M60000 MOV R2, 20(R1) M60000: CMP R3, R4 BEQ M60022 TST 20(R3) BPL M60034 BIC #100000, 20(R3) BR M60034 M60022: BIT #20000, (R2) BEQ M57712 BIC #20000, (R2) M60034: MOV 6(R2), (SP) BEQ M60046 MOV (SP), R2 BR M57722 M60046: TST (SP)+ MOV (SP)+, R2 BR M57666 M60054: CMPB 12(R1), #22 BCS M57712 BIT #20000, (R2) BEQ M57712 TST R4 BEQ M57712 CMP 20(R2), R4 BNE M57712 BIC #20000, (R2) BR M60034 .NOVLY: .WORD 0 ;Overlay logical unit (plugged by TKB) .NSTBL: .WORD NSTBL ;Address of segment tables .NIOST: .WORD 0 ;Common I/O status doubleword .WORD 0 ;IOStatus2 .NALER: .WORD $ALERR ;Address of autoload error handler .NSZSG: .BYTE 22 ;Size of resident segment descriptors .NFAST: .BYTE 0 ;AST Suppression control flags. Initally set zero by TKB .NRDSG: .WORD $RDSEG ;Entry point to read segments .NMRKS: .WORD $MARKS ;Entry point to mark segments .NDTDS: .WORD 0 ;This entry contains the address of the highest places segment displaced as part of an autoload operation .NAUTO: .WORD $AUTO ;This reference to $AUTO or $LOAD is used by debuggers to intercept all autoload calls. The autoload vectors are built with an indirect reference through this location .NRTRN: .WORD $RTS ;This reference to RETURN instruction M60140: MOV SP, R3 CMP -(SP), -(SP) MOV SP, R4 MOV (R3)+, (R4)+ MOV (R3)+, (R4)+ MOV (R3)+, (R4)+ MOV (R3)+, (R4)+ MOV (R3)+, (R4)+ MOV (R3)+, (R4)+ MOV #10, (R4) ADD PC, (R4)+ MOV (R3)+, (R4)+ MOV R2, (R4) JMP M61162 CALL @(SP)+ ROR 2(SP) CALL M61162 JSR R5, .SAVR1 MOV @#.NOVPT, R1 MOV 14(SP), R2 MOV PC, R3 ADD #24, R3 MOV R3, 14(SP) CALL @16(R1) CLR 20(R1) JMP $ALBPL ASL (SP) RETURN $RDSEG: BIC #10000, (R2) ;Read segments handler TST 4(R2) BNE M60300 BIS #20000, (R2) RETURN M60300: MOV R3, -(SP) MOV R4, -(SP) CMPB 12(R1), #22 BCS M60460 MOV 20(R2), R3 BEQ M60460 TST 20(R3) BMI M60460 MOV 22(R3), R4 BEQ M60420 TST 20(R4) BMI M60412 MOV 14(R4), -(SP) CLR 14(R4) MOV R4, -(SP) MOV #1071, -(SP) EMT 377 MOV (SP)+, 14(R4) BCC M60404 MOV R4, -(SP) MOV #1071, -(SP) EMT 377 BCS M60462 M60404: BIS #100000, 20(R4) M60412: MOV 0(R4), 6(R3) M60420: MOV R3, -(SP) MOV #1165, -(SP) EMT 377 BCC M60452 BIC #2, 14(R3) MOV R3, -(SP) MOV #1165, -(SP) EMT 377 BCS M60462 M60452: BIS #100000, 20(R3) M60460: CLC M60462: MOV (SP)+, R4 MOV (SP)+, R3 BCS M60624 BIT #60000, (R2) BNE M60632 BIS #20000, (R2) CLR -(SP) MOV (R2), -(SP) BIC #170000, (SP) CLR -(SP) CLR -(SP) MOV 4(R2), -(SP) MOV 2(R2), -(SP) MOV R5, -(SP) MOV R4, -(SP) BNE M60550 TSTB R3 BNE M60550 MOV R1, R4 ADD #4, R4 MOV R4, (SP) M60550: MOV R3, -(SP) BNE M60560 MOV #37, (SP) M60560: MOV (R1), -(SP) MOV #1010, -(SP) MOV #6001, -(SP) EMT 377 BCS M60620 TSTB R3 BNE M60632 MOV #37, -(SP) MOV #1051, -(SP) EMT 377 TSTB (R4) BPL M60632 M60620: BIC #20000, (R2) M60624: BIS #10000, (R2) SEC M60632: RETURN .SAVR1: MOV R4, -(SP) MOV R3, -(SP) MOV R2, -(SP) MOV R1, -(SP) MOV R5, -(SP) MOV 12(SP), R5 CALL @(SP)+ MOV (SP)+, R1 MOV (SP)+, R2 MOV (SP)+, R3 MOV (SP)+, R4 MOV (SP)+, R5 RETURN .WORD 0 .WORD 0 .RAD50 |RMS| .RAD50 |RES| .RAD50 |RMS| .RAD50 |RES| .WORD 1 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .RAD50 |CGL| .RAD50 |FPU| .RAD50 |CGL| .RAD50 |FPU| .WORD 1 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .RAD50 |POS| .RAD50 |RES| .RAD50 |POS| .RAD50 |RES| .WORD 1 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 M61162: RETURN NSTBL: .WORD 170000 ;Relative disk block adress 0, segment is loaded from disk | Start of segment tables .WORD 140000 ;Virtual load address of segment .WORD 0 ;Length of segment in bytes .WORD K61206 ;Link up .WORD K61536 ;Link down .WORD K61404 ;Link next .RAD50 |RMS| ;Segment name1 .RAD50 |11 | ;Segment name2 .WORD 0 K61206: .WORD 170003 ;Relative disk block adress 3, segment is loaded from disk .WORD 140000 ;Virtual load address of segment .WORD 100 ;Length of segment in bytes .WORD K61230 ;Link up .WORD NSTBL ;Link down .WORD K61274 ;Link next .RAD50 |REA| ;Segment name1 .RAD50 |LRT| ;Segment name2 .WORD 61562 K61230: .WORD 170004 ;Relative disk block adress 4, segment is loaded from disk .WORD 160000 ;Virtual load address of segment .WORD 100 ;Length of segment in bytes .WORD 0 ;Link up .WORD K61206 ;Link down .WORD K61252 ;Link next .RAD50 |REA| ;Segment name1 .RAD50 |LSG| ;Segment name2 .WORD 61606 K61252: .WORD 170005 ;Relative disk block adress 5, segment is loaded from disk .WORD 160000 ;Virtual load address of segment .WORD 100 ;Length of segment in bytes .WORD 0 ;Link up .WORD K61206 ;Link down .WORD K61230 ;Link next .RAD50 |REA| ;Segment name1 .RAD50 |LSG| ;Segment name2 .WORD 61632 K61274: .WORD 170006 ;Relative disk block adress 6, segment is loaded from disk .WORD 140000 ;Virtual load address of segment .WORD 0 ;Length of segment in bytes .WORD 0 ;Link up .WORD NSTBL ;Link down .WORD K61206 ;Link next .RAD50 |DUM| ;Segment name1 .RAD50 |MY | ;Segment name2 .WORD 61656 K61316: .WORD 170000 ;Relative disk block adress 0, segment is loaded from disk .WORD 140000 ;Virtual load address of segment .WORD 0 ;Length of segment in bytes .WORD K61340 ;Link up .WORD K61536 ;Link down .WORD NSTBL ;Link next .RAD50 |CGL| ;Segment name1 .RAD50 |FPU| ;Segment name2 .WORD 0 K61340: .WORD 170003 ;Relative disk block adress 3, segment is loaded from disk .WORD 140000 ;Virtual load address of segment .WORD 37200 ;Length of segment in bytes .WORD 0 ;Link up .WORD K61316 ;Link down .WORD K61362 ;Link next .RAD50 |FAK| ;Segment name1 .RAD50 |E | ;Segment name2 .WORD 61702 K61362: .WORD 170043 ;Relative disk block adress 35, segment is loaded from disk .WORD 140000 ;Virtual load address of segment .WORD 0 ;Length of segment in bytes .WORD 0 ;Link up .WORD K61316 ;Link down .WORD K61340 ;Link next .RAD50 |NUL| ;Segment name1 .RAD50 |L | ;Segment name2 .WORD 61726 K61404: .WORD 160003 ;Relative disk block adress 3, segment is loaded from disk, segment is loaded and mapped .WORD 140000 ;Virtual load address of segment .WORD 0 ;Length of segment in bytes .WORD K61426 ;Link up .WORD K61536 ;Link down .WORD K61316 ;Link next .RAD50 |PTS| ;Segment name1 .RAD50 |YMB| ;Segment name2 .WORD 0 K61426: .WORD 170003 ;Relative disk block adress 3, segment is loaded from disk .WORD 140000 ;Virtual load address of segment .WORD 20000 ;Length of segment in bytes .WORD K61450 ;Link up .WORD K61404 ;Link down .WORD K61426 ;Link next .RAD50 |TBL| ;Segment name1 .RAD50 |VEX| ;Segment name2 .WORD 61752 K61450: .WORD 170023 ;Relative disk block adress 19, segment is loaded from disk .WORD 160000 ;Virtual load address of segment .WORD 20000 ;Length of segment in bytes .WORD 0 ;Link up .WORD K61426 ;Link down .WORD K61472 ;Link next .RAD50 |LEF| ;Segment name1 .RAD50 |T | ;Segment name2 .WORD 61776 K61472: .WORD 170043 ;Relative disk block adress 35, segment is loaded from disk .WORD 160000 ;Virtual load address of segment .WORD 20000 ;Length of segment in bytes .WORD 0 ;Link up .WORD K61426 ;Link down .WORD K61450 ;Link next .RAD50 |RIG| ;Segment name1 .RAD50 |HT | ;Segment name2 .WORD 62022 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 K61536: .WORD 160000 ;Relative disk block adress 0, segment is loaded from disk, segment is loaded and mapped .WORD 140000 ;Virtual load address of segment .WORD 0 ;Length of segment in bytes .WORD K61404 ;Link up .WORD 0 ;Link down .WORD K61536 ;Link next .RAD50 |MTR| ;Segment name1 .RAD50 |OOT| ;Segment name2 .WORD 0 .WORD 0 .WORD 3000 .WORD 140000 .WORD 1 .WORD 0 .WORD 0 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60670 .WORD 3400 .WORD 160000 .WORD 1 .WORD 0 .WORD 1 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60670 .WORD 3400 .WORD 160000 .WORD 1 .WORD 0 .WORD 2 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60670 .WORD 3000 .WORD 140000 .WORD 0 .WORD 0 .WORD 3 .WORD 0 .WORD 600 .WORD 0 .WORD 0 .WORD 60670 .WORD 3000 .WORD 140000 .WORD 372 .WORD 0 .WORD 0 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60712 .WORD 3000 .WORD 140000 .WORD 0 .WORD 0 .WORD 372 .WORD 0 .WORD 600 .WORD 0 .WORD 0 .WORD 60712 .WORD 3000 .WORD 140000 .WORD 200 .WORD 0 .WORD 0 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60734 .WORD 3400 .WORD 160000 .WORD 200 .WORD 0 .WORD 200 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60734 .WORD 3400 .WORD 160000 .WORD 200 .WORD 0 .WORD 400 .WORD 0 .WORD 602 .WORD 0 .WORD 0 .WORD 60734 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 $IMAUD: MOV R1, -(SP) MOV R2, -(SP) MOV 16(SP), R2 BLE M62140 M62104: MOV 20(SP), R1 SXT R0 DIV R2, R0 TST R1 BPL M62122 ADD R2, R1 M62122: MOV R1, 20(SP) MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 MOV (SP)+, (SP) RETURN M62140: NEG R2 BNE M62104 CLR R1 BR M62122 $IDIV: MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV 12(SP), R0 BGT M62174 BEQ M62300 NEG R0 NEG 14(SP) M62174: CLR R3 MOV 14(SP), R1 BGT M62210 BEQ M62264 NEG R1 M62210: CLR R2 COM R3 BIT #177400, R1 BNE M62230 SWAB R1 BIS #200, R1 M62230: ROL R1 BCC M62230 M62234: ROL R2 CMP R2, R0 BCS M62244 SUB R0, R2 M62244: ROL R3 ASL R1 BNE M62234 COM R3 TST 14(SP) BPL M62264 NEG R3 M62264: MOV R3, 14(SP) CALL $RES4 MOV (SP)+, (SP) RETURN M62300: CLR R3 BR M62264 $RES4: MOV (SP)+, R0 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 RTS R0 CMPRS: MOV 2(R5), R0 MOV #6, R1 MOV #11, R2 MOV #4, R3 ADD R0, R1 ADD R0, R2 M62342: MOVB (R2)+, (R1)+ SOB R3, M62342 RETURN .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .WORD 0 .END START