File: SV2BN.LS of Disk: V50/Source/Source-Listing-PAL-1
(Source file text)
/SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 1 /SAVED FILE TO BINARY CONVERT 0020 *20 000020 0000 NAME, ZBLOCK 4 /NAME BLOCK 000024 0000 OMAXLN, 0 /MAXIMUM FILE LENGTH 000025 0000 OCNT, 0 000026 0000 OHNDL, 0 000027 0000 IHNDL, 0 000030 0000 TEMP, 0 000031 0000 CNTR, 0 000032 0000 CHKSUM, 0 000033 0000 FELD, 0 000034 0000 FELDX, 0 000035 0000 SEGNO, 0 000036 0000 CCPT, 0 000037 0000 PAGES, 0 000040 0000 INBLK, 0 000041 0000 TEMP1, 0 5577 ERR=JMP I [7600 4442 PUT=JMS I . 000042 0600 DECPUT 4443 PUTWD=JMS I . 000043 0747 PUTWDX 1000 OUT=1000 3000 BUFF=3000 5000 CCBLK=5000 0010 BUFPG=10 0004 BUFBLK=4 2000 WORDS=2000 0200 PAGE /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 2 6000 OUHNDL=6000 6200 INHNDL=6200 0200 PAGE 000200 7300 START, CLA CLL 000201 6212 CIF 10 000202 4576 JMS I [7700 000203 0010 10 000204 6212 CIF 10 000205 4575 JMS I [200 000206 0005 5 000207 2326 2326 /.SV 000210 1177 TAD [7600 000211 3010 DCA 10 000212 6211 CDF 10 000213 1410 TAD I 10 000214 3020 DCA NAME 000215 1410 TAD I 10 000216 3021 DCA NAME+1 000217 1410 TAD I 10 000220 3022 DCA NAME+2 000221 1410 TAD I 10 000222 7450 SNA 000223 1174 TAD [216 /.BN 000224 3023 DCA NAME+3 000225 1173 TAD [OUHNDL 000226 3240 DCA OHPT 000227 1172 TAD [NAME 000230 3247 DCA OUPT 000231 1577 TAD I [7600 000232 6201 CDF 000233 7450 SNA 000234 5577 ERR 000235 6212 CIF 10 000236 4575 JMS I [200 000237 0001 1 000240 0000 OHPT, 0 000241 5577 ERR 000242 6213 CIF CDF 10 000243 1577 TAD I [7600 000244 6201 CDF 000245 4575 JMS I [200 000246 0003 3 000247 0000 OUPT, 0 000250 0000 OUMAX, 0 000251 5577 ERR 000252 1247 TAD OUPT 000253 3777' DCA OBLK 000254 1250 TAD OUMAX 000255 3024 DCA OMAXLN 000256 1171 TAD [INHNDL 000257 3272 DCA IHPT 000260 6211 CDF 10 000261 1570 TAD I [7620 000262 3040 DCA INBLK /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 2-1 000263 1567 TAD I [7617 000264 6201 CDF 000265 7450 SNA 000266 5577 ERR 000267 6212 CIF 10 000270 4575 JMS I [200 000271 0001 1 000272 0000 IHPT, 0 000273 5577 ERR 000274 4776' JMS OSETP 000275 1240 TAD OHPT 000276 3026 DCA OHNDL 000277 1272 TAD IHPT 000300 3027 DCA IHNDL 000301 7240 CLA CMA 000302 3034 DCA FELDX 000303 3032 DCA CHKSUM 000304 3025 DCA OCNT 000305 5775' JMP GO 000375 0400 000376 0653 000377 0615 0400 PAGE /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 3 000400 1040 GO, TAD INBLK 000401 2040 ISZ INBLK 000402 3206 DCA .+4 000403 4427 JMS I IHNDL 000404 0100 0100 000405 5000 CCBLK 000406 0000 0 000407 5577 ERR 000410 1605 TAD I .-3 000411 3035 DCA SEGNO 000412 7100 CLL 000413 1035 TAD SEGNO 000414 1166 TAD [40 000415 7620 SNL CLA 000416 5577 ERR 000417 1165 TAD [CCBLK+4 000420 3036 DCA CCPT 000421 4777' JMS LEADER 000422 1175 TAD [200 000423 7120 STL 000424 4776' JMS PUTONE 000425 4775' SEGLP, JMS STBLK 000426 1436 TAD I CCPT 000427 2036 ISZ CCPT 000430 7112 CLL RTR 000431 7012 RTR 000432 7012 RTR 000433 0164 AND [37 000434 7450 SNA 000435 1166 TAD [40 000436 3037 DCA PAGES 000437 1037 PAGLP, TAD PAGES 000440 1163 TAD [-BUFPG 000441 7510 SPA 000442 5267 JMP LSTPG 000443 3037 DCA PAGES 000444 1040 TAD INBLK 000445 3251 DCA .+4 000446 4427 JMS I IHNDL 000447 1000 1000 000450 3000 BUFF 000451 0000 0 000452 7402 HLT 000453 1040 TAD INBLK 000454 1162 TAD [BUFBLK 000455 3040 DCA INBLK 000456 1173 TAD [-WORDS 000457 3031 DCA CNTR 000460 1161 TAD [BUFF-1 000461 3010 DCA 10 000462 1410 TAD I 10 000463 4443 PUTWD 000464 2031 ISZ CNTR 000465 5262 JMP .-3 /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 3-1 000466 5237 JMP PAGLP 000467 7300 LSTPG, CLA CLL 000470 1037 TAD PAGES 000471 7450 SNA 000472 5325 JMP PGDONE 000473 7106 CLL RTL 000474 7006 RTL 000475 7006 RTL 000476 3306 DCA IFUN 000477 1306 TAD IFUN 000500 7004 RAL 000501 7041 CIA 000502 3031 DCA CNTR 000503 1040 TAD INBLK 000504 3310 DCA .+4 000505 4427 JMS I IHNDL 000506 0000 IFUN, 0 000507 3000 BUFF 000510 0000 0 000511 7402 HLT 000512 1161 TAD [BUFF-1 000513 3010 DCA 10 000514 1410 TAD I 10 000515 4443 PUTWD 000516 2031 ISZ CNTR 000517 5314 JMP .-3 000520 1037 TAD PAGES 000521 7101 CLL IAC 000522 7010 RAR 000523 1040 TAD INBLK 000524 3040 DCA INBLK 000525 2035 PGDONE, ISZ SEGNO 000526 5225 JMP SEGLP 000527 1032 TAD CHKSUM 000530 4443 PUTWD 000531 4777' JMS LEADER 000532 7610 SKP CLA 000533 4442 PUT 000534 1774' TAD OCRCNT 000535 1175 TAD [200 000536 7640 SZA CLA 000537 5333 JMP .-4 000540 1025 TAD OCNT 000541 3350 DCA .+7 000542 6213 CIF CDF 10 000543 1577 TAD I [7600 000544 6201 CDF 000545 4575 JMS I [200 000546 0004 4 000547 0020 NAME 000550 0000 0 000551 5577 ERR 000552 5773' JMP 204 000573 0204 000574 0650 /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 3-2 000575 0675 000576 0722 000577 0665 0600 PAGE /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 4 000600 0000 DECPUT, 0 /DEVICE-INDEPENDENT I/O 000601 2251 ISZ O3 /3RD CHAR OF 3? 000602 5230 JMP O2 /NO 000603 4234 JMS RT /YES, SPECIAL HANDLING 000604 1252 TAD T1 /TEMP STORAGE 000605 4234 JMS RT 000606 1160 TAD [-3 /RESET SWITCH 000607 3251 DCA O3 000610 2250 ISZ OCRCNT /END OF BUFFER? 000611 5600 JMP I DECPUT /NO 000612 4426 JMS I OHNDL 000613 4200 4200 /ONE BLOCK 000614 1000 OUT 000615 0000 OBLK, 0 000616 7402 HLT 000617 2215 ISZ OBLK /BUMP RECORD POINTER 000620 2025 ISZ OCNT /AND COUNT 000621 7300 CLA CLL 000622 1025 TAD OCNT /HAS HE GONE TOO FAR? 000623 1024 TAD OMAXLN 000624 7630 SZL CLA 000625 7402 HLT /YES-KILL HIM 000626 4253 JMS OSETP /NO, RESET POINTERS 000627 5600 JMP I DECPUT /AND RETURN 000630 0157 O2, AND [377 000631 3646 DCA I OPTR1 /NORMAL HANDLING 000632 2246 ISZ OPTR1 /BUMP POINTER 000633 5600 JMP I DECPUT 000634 0000 RT, 0 /HALF-CHAR PACK ROUTINE 000635 7106 CLL RTL 000636 7006 RTL 000637 3252 DCA T1 /TEMPORARY STORAGE 000640 1252 TAD T1 000641 0156 AND [7400 000642 1647 TAD I OPTR2 /ADD IT ON 000643 3647 DCA I OPTR2 000644 2247 ISZ OPTR2 000645 5634 JMP I RT 000646 0000 OPTR1, 0 000647 0000 OPTR2, 0 000650 0000 OCRCNT, 0 000651 0000 O3, 0 000652 0000 T1, 0 000653 0000 OSETP, 0 /ROUTINE TO RESET OUTPUT POINTERS 000654 1160 TAD [-3 /3-WAY SWITCH 000655 3251 DCA O3 000656 1155 TAD [OUT /BUFFER POINTERS 000657 3246 DCA OPTR1 000660 1155 TAD [OUT 000661 3247 DCA OPTR2 000662 1177 TAD [-200 000663 3250 DCA OCRCNT /CHARACTER COUNT 000664 5653 JMP I OSETP 000665 0000 LEADER, 0 /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 4-1 000666 1176 TAD [-100 000667 3031 DCA CNTR 000670 1175 TAD [200 000671 4442 PUT 000672 2031 ISZ CNTR 000673 5270 JMP .-3 000674 5665 JMP I LEADER 000675 0000 STBLK, 0 000676 1436 TAD I CCPT 000677 2036 ISZ CCPT 000700 3030 DCA TEMP 000701 1436 TAD I CCPT 000702 0154 AND [70 000703 3033 DCA FELD 000704 1034 TAD FELDX 000705 7141 CLL CIA 000706 1033 TAD FELD 000707 7650 SNA CLA 000710 5316 JMP .+6 000711 1033 TAD FELD 000712 3034 DCA FELDX 000713 1033 TAD FELD 000714 1153 TAD [300 000715 4442 PUT 000716 1030 TAD TEMP 000717 7120 CLL CML 000720 4322 JMS PUTONE 000721 5675 JMP I STBLK 000722 0000 PUTONE, 0 000723 3030 DCA TEMP 000724 1030 TAD TEMP 000725 7012 RTR 000726 7012 RTR 000727 7012 RTR 000730 0152 AND [177 000731 3041 DCA TEMP1 000732 1041 TAD TEMP1 000733 1032 TAD CHKSUM 000734 3032 DCA CHKSUM 000735 1041 TAD TEMP1 000736 4442 PUT 000737 1030 TAD TEMP 000740 0151 AND [77 000741 1032 TAD CHKSUM 000742 3032 DCA CHKSUM 000743 1030 TAD TEMP 000744 0151 AND [77 000745 4442 PUT 000746 5722 JMP I PUTONE 000747 0000 PUTWDX, 0 000750 7100 CLL 000751 4322 JMS PUTONE 000752 5747 JMP I PUTWDX $ 000151 0077 /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 4-2 000152 0177 000153 0300 000154 0070 000155 1000 000156 7400 000157 0377 000160 7775 000161 2777 000162 0004 000163 7770 000164 0037 000165 5004 000166 0040 000167 7617 000170 7620 000171 6200 000172 0020 000173 6000 000174 0216 000175 0200 000176 7700 000177 7600 /SAVED FILE TO BINARY CONVERT PAL8-V50X 07-JUL-88 PAGE 5 BUFBLK 0004 BUFF 3000 BUFPG 0010 CCBLK 5000 CCPT 0036 CHKSUM 0032 CNTR 0031 DECPUT 0600 ERR 5577 FELD 0033 FELDX 0034 GO 0400 IFUN 0506 IHNDL 0027 IHPT 0272 INBLK 0040 INHNDL 6200 LEADER 0665 LSTPG 0467 NAME 0020 OBLK 0615 OCNT 0025 OCRCNT 0650 OHNDL 0026 OHPT 0240 OMAXLN 0024 OPTR1 0646 OPTR2 0647 OSETP 0653 OUHNDL 6000 OUMAX 0250 OUPT 0247 OUT 1000 O2 0630 O3 0651 PAGES 0037 PAGLP 0437 PGDONE 0525 PUT 4442 PUTONE 0722 PUTWD 4443 PUTWDX 0747 RT 0634 SEGLP 0425 SEGNO 0035 START 0200 STBLK 0675 TEMP 0030 TEMP1 0041 T1 0652 WORDS 2000 ERRORS DETECTED: 0 LINKS GENERATED: 9