Program Logic Manual - All about the IBM 1130 Computing System

AODR REL OBJECT ST.NO. LABEL OpC0 TT OPERANDS ID/SEQN00569 *PURPOSE- * PMN056400570 * TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* PMN056500571 * TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * PMN056600572 * MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN * pMN056700573 * FORTRAN. THUS,IT IS INTENDED FOR USE IN AN * pMN056800574 * ERROR-FREE ENVIRONMENT. * PMN056900575 * pmN057000576 *METHOD- * PMN057100577 * DISKZ REQUIRES A BuFFER,THE LENGTH OF WHICH IS* pmN05720057P * 7 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * PMN057300579 * TEN. * PmN0574005 80 * PMN057500581 *CAPABILITIES AND LIMITATIONS- * PMN057600582 * THE WC CNT,AS WELL AS DZ000,MUST BE ON AN EVEN* PMN057700583 * BOUNDARY,MuST BE TN THE RANGE 0-32767. THE * pMN057800584 * DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * PMN057900585 * ADDR,WHICH FOLLOWS THE WD CNT. THE FUNCTION * PmN058000586 * INDICATOR MUST RE XX00 FOR A READ OR XX01 FOR * PMN058100587 * A WRITE,WHERE 'XX' MEANS ANY 2 HEXADECIMAL * PMN058200588 * CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* pMN058300589 * (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * PMN058400590 * SEEKING IS PROVIDED AS A PART OF READ/WRITE. * PmN058500591 * A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * PMN058600597 * DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * PMN058700593 * PMN058800594 *SPECIAL FEATURES- * PMN058900595 * ntSKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * PMN059000596 * ABOVE. DISKZ ANO DISKN OFFER THIS BASIC SET OF* PMN059100597 * FUNCTIONS PLUS OTHERS. * pMN059200598 * pmN059300599 ************************************** ****** ******* pMN059400601 * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN059600602 PMN0597010E0 0000 0603 RSS r 0 pmN0598000F0 0 OOEF 0604 DC *ZEND-* DISKZ WORD COUNT PMN0599000F1 0 FF6A 0605 CC -.0ZID PHASE ID PmN0600010f2 0 10E8 0606 CC SZEND-6-*+1 AODR Of SIFT EXTRACT pmN0601000F1 0 0001 0607 DC 1 NO. ENTRIES IN SLET EXTRACT PMN0607000F4 0608 ORG *-7 pMN0603000F2 0 0000 0610 01000 DC *-* ENTRY POINT PMN06050OOF3 00 740000EE 0611 MDX L SDBSV,0 LOOP UNTIL OPERATION IN pmN0606000F5 0 70F0 0612 MDX *-3 *PROGRESS IS COMPLETE PmN0607000F6 0 7002 0613 MOx 07020 BR AROUND INT ENTRY POINT PMN060800614 PMN060900615 * INTERRUPT ENTRY POINT PmN061000616 PMN0611000F7 0 0000 0617 nZ010 DC *-* INTERRUPT ADDRESS PmN0612000F8 0 7015 0618 MDX OZ 180 BR TO SERVICE INTERRUPT PMN06130noF9 0 690F 0619 D7020 STX 1 D7100+1 SAVE XRI pMN0614000FA 0 6610 0670 SIX 7 DZI00+3 SAVE XR7 PmN0615000FR 0 1008 0621 SLA 8 SHIFT INDICATOR 8 BITS pmN06160OOFC 0 003C 0622 ST0 07945 SAVE FUNCTION INDICATOR PMN06170OnFn 0 1800 0623 RTF 16 PMN0618000FF 0 0056 06 24 STO OZ235+1 SAVE ODOR OF THE I/O AREA PMN06190()OFF 0 6711 0625 DZ010 LOX (TCNT TURN ROSY INDICATOR ON AND pmN062000100 0 6AE1) 0626 STx 2 SOBS), *SET RETRY COUNT pmN062100101 0 COF0 06 27 LO 07000 PmN062200102 0 00F4 06 28 STD 07010 PMN062300103 0 704E 06 29 MDx 07230 BR TO CONTINUE PMN062400104 00 4C000000 0610 DZ060 BSC L *-* BR TO SERVICE THE INTERRUPT PMN062500631 pMN062600632 * START ALL DISK OPERATIONS PMN062700633 * PMN062800106 0 6908 0614 DZ070 STX 1 DZI80*1 SAVE ADDR Of THE I/O AREA PMN062900107 0 OR1E 0615 XIO DZ904 START AN OPERATION pMN061000636 PMN063100637 * RETURN TO USER pmN063200638 * PmN0633001C8 00 65000000 0639 DZ100 LOX LI *-* RESTORE XR1 PMN063400108 00 66000000 0640 LOX 17 5-5 RESTORE XR2 PMN061500100 00 4CB000F7 0641 BSC I DZ010 RETURN PMN063600642 * PmN063700643 * SERVICE ALL INTERRUPTS PMN063800644 * PmN06390010F 00 65000000 0645 DZ180 LOX LI *-* AMR OF I/O AREA TO XR1 pMN064000110 00 660000E2 0646 Lox L2 01000 ADDR OF DZ000 TO XR2 pMN064100112 0 0819 0647 x10 01910 SENSE THE DSid PMN064700113 0 00C9 0648 STO SODSW SAVE THE DSW PMN064300114 0 4850 0649 BOSC -SKIP IF ERROR BIT SET PMN064400115 0 70FE 0650 MDX 07060 BRANCH IF ERROR BIT NOT SET PMN064500116 0 C800 0651 D7185 LCD 01902 RESTORE WORD COUNT PMN064600117 0 0900 0657 STO 1 0 *AND SECTOR ADDRESS PMN06470330