File P22T.

Directory of image this file is from
This file as a plain text file

/DEBTORS AGE ANALYSIS   MAIN LINE
OCTAL
	ABORT	;END
MAIN,	GOTO	;INITAL
MAIN2,	GOSUB	;HEADING
MAIN3,	GOSUB	;NEXTDM
	LOAD1	;DMKEY
	SUBTIM	;7777
	GOIF	;EOJ	;.+1
	GOSUB	;LINE
	LINCAC
	SUBTIM	;66	/50
	GONEG	;MAIN3
CF,	PRINT  26	;TEXT   'TOTALS CARRIED FORWARD'
	GOSUB	;TOTALS
	PRINTC 10	;212	/LINE FEED TO NEXT PAGE
	GOTO	;MAIN2
HEADING,  0	;0
	PRINT  1  ;TEXT '_'
	CLEARLC
	INCREM	;PAGCON+2	/PAGE COUNTER
	PRINTC 12	;240	/10 SPACES
	PRINT  25	;TEXT 'DEBTORS TRIAL BALANCE'
	PRINT 14	;TEXT '^MONTH ENDED'
	GOSUB	;RSDATE	
	PRINTU	;MASKD	;13
	PRINT  10	;TEXT '    PAGE'
	LOAD	;PAGCON	
	PRINTU	;MASK	;5
	PRINT  51	;TEXT '___ AC.N0.   NAME^OVER 6 MTHS  5 MTHS    '
	PRINT  47	;TEXT '4 MTHS    3 MTHS    2 MTHS    1 MTH    '
	PRINT  24	;TEXT 'CURRENT    BALANCE__'
	GOTO	;HEADING
LINE,	0	;0
	LOAD1	;DMKEY
	PRINTU	;MASK	;5
	PRINTX	;DNAME	;37
	MOVE	;DMAGEO	;PRAREA	;25
	INCREM	;SWITCH	/ ADD TO TOTALS
	GOSUB	;PRLIN
	PRINT   2	;TEXT '__'
	GOTO	;LINE
PRLIN,	0	;0
	FILL	;0	;BALANCE	;3
	LOADIM	;6
	STORE1	;INDEX
	PRINT  1	;TEXT '^'	 /TAB
PRLOOP,	LOADX1	;INDEX
	MULTX1 3
	LOAD	;PRAREA
	PRINTU	;MASK2	;12    /PRINT AGED AMOUNTS
	ADDTO	;BALANCE
	GOIFZO	;LOOP2	;SWITCH
	LOADX1	;INDEX
	MULTX1 3
	ADDTO	;TOTS		 /ADD TO TOTALS
LOOP2,	DECREM	;INDEX
	LOAD1	;INDEX
	SIGN1
	GONEG	;PBAL
	GOTO	;PRLOOP
PBAL,	LOAD	;BALANCE
	PRINTU	;MASK2	;13
	GOTO	;PRLIN
	
TOTALS,	0	;0
	MOVE	;TOTS	;PRAREA	;25
	CLEARW	;SWITCH
	GOSUB	;PRLIN
	PRINT   2	;TEXT '__'
	GOTO	;TOTALS
EOJ,	PRINT   6	;TEXT /TOTALS/
	GOSUB	;TOTALS

END, CHANNEL ;DRMAST;DRMAST+1;CLOSE GONEG ;END2 EXIT END2, PRINT 12;TEXT '_CLOSE ERROR' EXIT INITAL, PRINTW ;TABCLR ;7 PRINTC 45 ;240 /TAB 37 PRINTW ;TABSET ;2 CHANNEL ;DRMAST;DRMAST+1 ;OPEN GONEG ;INER GOTO ;MAIN2 INER, PRINT 17;TEXT 'FILE NOT FOUND ' EXIT NEXTDM, 0;0 INCREM ;DMCONT LOAD1 ;DMCONT READSQ ;DRMAST GONEG ;DMER GETREC ;DRRCID GOTO ;NEXTDM DMER, PRINT 31 ;TEXT 'DISK ERROR READING DRMAST' EXIT DMCONT, 0 INDEX, 0 BALANCE, 0;0;0 DRRCID, 0 DMKEY, 0 DNAME, ZBLOCK 20 DLINE2, ZBLOCK 20 DLINE3, ZBLOCK 20 DMAGEO, 0;0;0 DMAGE1, 0;0;0 DMAGE2, 0;0;0 DMAGE3, 0;0;0 DMAGE4, 0;0;0 DMAGE5, 0;0;0 DMAGE6, 0;0;0 DMMTDS, 0;0;0 DMYTDS, 0;0;0 DRTYPE, 0 DRTRANS, 0 DRTAX, 0 DRSP1, ZBLOCK 5 TABCLR, ESCAPE;"!;ESCAPE;"2;CRET TABSET, ESCAPE;"1 PAGCON, 0;0;0 SWITCH, 0 MASK, TEXT ' 0-' MASK2, TEXT ' 0.00-' MASKD, TEXT ' / / ' PRAREA, ZBLOCK 25 TOTS, ZBLOCK 25 DRMAST, 0;DEVICE RKA1;FILENAME DRMAST.MA /RASBOL SYSTEM DATE ROUTINE DECIMAL RSDATE, 0;0 SYSDATE ANDIM ;248 /370 SHIFTR 3 MULTIM ;100 STORE2 ;RSDTEMP SYSDATE SHIFTR 8 ADD2 ;RSDTEMP MULTIM ;100 STORE2 ;RSDTEMP SYSDATE ANDIM ;7 SUBTIM ;7 GOZERO ;.+3 ADDIM ;8 ADDIM ;77 ADD2 ;RSDTEMP GOTO ;RSDATE RSDATP, 0;0 GOSUB ;RSDATE PRINTU ;RSDMSK ;10 GOTO ;RSDATP RSDMSK,TEXT ' / / -' RSDTEMP, 0;0 $



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search