GEN-IOL, C$PR, etc.

* 0066-001-H003 (GEN-IOL) DRAWING NO. 41286164-001-01 PAGE 13

0569 * 0570 * 0571 SUBR C$PR PRESERVE REGISTERS 0572 SUBR C$RR RESTORE REGISTERS 0573 SUBR C$RA PRESERVED A-REGISTER 0574 SUBR C$RB PRESERVED B-REGISTER 0575 SUBR C$RC PRESERVED C-REGISTER 0576 SUBR C$RX PRESERVED X-REGISTER 0577 * 0578 * 0579 CF5 H316 AND DDP-526 0580 REL RELOCATABLE 0581 * 0582 * 0583 * PRESERVE REGISTERS 0584 * 0585 00000 0 000000 C$PR DAC ** RETURN ADDRESS 0586 00001 0 04 00021 STA C$RA STORE A 0587 00002 000201 IAB 0588 00003 0 04 00022 STA C$RB STORE B 0589 00004 140040 CRA 0590 00005 141216 ACA C-BIT TO A-REGISTER 0591 00006 0 04 00023 STA C$RC STORE C 0592 00007 0 15 00024 STX C$RX STORE X 0593 00010 -0 01 00000 JMP* C$PR RETURN 0594 * 0595 * 0596 * RESTORE REGISTERS 0597 * 0598 00011 0 000000 C$RR DAC ** RETURN ADDRESS 0599 00012 0 35 00024 LDX C$RX RESTORE X 0600 00013 0 02 00023 LDA C$RC GET PRESERVED C CONTENTS 0601 00014 0404 77 LGR 1 SHIFT TO PLACE IN C 0602 00015 0 02 00022 LDA C$RB 0603 00016 000201 IAB RESTORE B 0604 00017 0 02 00021 LDA C$RA RESTORE A 0605 00020 -0 01 00011 JMP* C$RR 0606 * 0607 * 0608 * STORAGE FOR REGISTERS 0609 * 0610 00021 C$RA BSS 1 PRESERVED A-REGISTER 0611 00022 C$RB BSS 1 PRESERVED B-REGISTER 0612 00023 C$RC BSS 1 PRESERVED C-REGISTER 0613 00024 C$RX BSS 1 PRESERVED X-REGISTER 0614 * 0615 * 0616 END END OF C$PR 02.OCT.70 G.S.LITTLE C$PR 000000 C$RA 000021 C$RB 000022 C$RC 000023