|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 26954 (0x694a)
Notes: pts_type(SC)
Names: »RKTEST.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RKTEST.SC«
IDENT RKTEST R]KONVERTERING 9.2 810309 NJ OPTNS LINES=46 DDUM KMD08 PDIV ENTRY RKTEST EJECT RKTEST PROC ************* * * FIELD DEPENDENCE TEST * R]KONVERTERING * **************** * * SET ALL BOOLEANS, GOVERNING THE ERRORTESTS * 1: TBOOL 1 T=HOVEDPERSON * F=BIPERSON * 2: TBOOL2 T=GIFT * F=ENLIG * 3: TBOOL3 T=FULD SKPL * 4: TBOOL4 T=BEGR.SKPL UDEN PERSONFRDRAG * 5: TBOOL5 T=EJ SKPL * 6: TBOOL6 T=BEGR. SKPL MED PERSONFRADRAG * 7: TBOOL7 T=DIPLOMAT * 8: TBOOL8 T=SOMAND * 9: TBOOL9 T=EJ SKPL (SLETNING) *10: TBOOL10 T=4-]RS FOLK * CLEAR TBOOL1 CLEAR TBOOL2 CLEAR TBOOL3 CLEAR TBOOL4 CLEAR TBOOL5 CLEAR TBOOL6 CLEAR TBOOL7 CLEAR TBOOL8 CLEAR TBOOL9 CLEAR TBOOL10 EJECT * * HOVEDPERSON DEFINITION: * MAND: ALTID, BORTSET FRA SAMBESKATTEDE MAND MED * ENKEKODE 7. * KVINDE: 1) ALLE UGIFTE KVINDER * 2) GIFTE KVINDER MED ENKEKODE 8 * * ALLE ANDRE ER BIPERSONER * MOVE GSWBCD1,CPRNR DIV GSWBCD1,=D'2' MUL GSWBCD1,=D'2' CLEAR TMALE CBE GSWBCD1,CPRNR,RKT020 EVEN CPRNR? SET TMALE NO, => MALE RKT020 MOVE GSWBIN3,=W'48' PERF FINDFLD,=D'101' SAMBESKATNINGSKODE BNOK RKT22A NOT FOUND, ERROR CBNE GSWBCD6,=D'2',RKT030 EJ SAMBESKATTE => HOVEDPERSON SET TBOOL2 PERF FINDFLD,=D'170' HENT ENKEKODE BNOK RKT040 FINDES IKKE, => BIPERSON CBE GSWBCD6,=D'7',RKT100 AFDOD MAND CBE GSWBCD6,=D'8',RKT030 EFTERLADT KVINDE RKT030 SET TBOOL1 B RKT100 RKT040 * SAMBESKATTEDE INDIVEDER, UDEN INTERSSANT ENKEKODE TBF TMALE,RKT100 SET TBOOL1 *** RKT100 SKPL OMFANG PERF FINDFLD,=D'106' BNOK RKT22B MOVE GSWBIN1,GSWBCD6 IB GSWBIN1,RKT102,RKT103,RKT104,RKT105, C RKT106,RKT107,RKT108 RKT101 SET TBOOL3 B RKT150 RKT102 SET TBOOL4 B RKT150 RKT103 SET TBOOL5 B RKT150 RKT104 SET TBOOL6 B RKT150 RKT105 SET TBOOL7 B RKT150 RKT106 SET TBOOL8 B RKT150 RKT107 SET TBOOL9 B RKT150 RKT108 SET TBOOL10 B RKT150 EJECT RKT150 PERF SETDIV SET VARIOUS VALUES/BOOLEANS CBNE GSWBIN3,CBIN0,RKT160 B RKT22C RKT160 CLEAR TERROR * SELECT GIFTE BIPERSONER TBF TBOOL1,RKT1316 * NOW WE HAVE HOVEDPERSONER TBT TBOOL2,RKT0912 GIFT? * NOW WE HAVE ENLIGE HOVEDPERSONER RKT0108 TEST TBOOL3 BNE RKT01 TEST TBOOL4 BNE RKT02 TEST TBOOL5 BNE RKT03 TEST TBOOL6 BNE RKT04 TEST TBOOL7 BNE RKT05 TEST TBOOL8 BNE RKT06 TEST TBOOL9 BNE RKT07 TEST TBOOL10 BNE RKT08 B RKT22 INVALID BOOLEAN SETTING RKT0912 TEST TBOOL3 BNE RKT09 TEST TBOOL7 BNE RKT10 TEST TBOOL8 BNE RKT11 TEST TBOOL10 BNE RKT12 B RKT22 INVALID BOOLEAN SETTING RKT1316 TEST TBOOL3 BNE RKT13 TEST TBOOL8 BNE RKT14 TEST TBOOL10 BNE RKT15 TEST TBOOL7 BNE RKT16 B RKT22 INVALID BOOLEAN SETTING EJECT RKT01 * HOVEDPERSON, ENLIG, FULD SKPL PERF E3454 PERF E3475 PERF E3500 PERF E3510 PERF E3517 PERF E3564 PERF E3569 PERF E3577 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT02 * HOVEDPERSON, ENLIG, BEGR. SKPL U/PF PERF E3454 PERF E3475 PERF E3478 PERF E3500 PERF E3510 PERF E3517 PERF E3564 PERF E3569 PERF E3576 PERF E3577 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT03 * HOVEDPERSON, ENLIG, EJ SKPL PERF E3478 PERF E3547 B RKT21 RKT04 * HOVEDPERSON, ENLIG, BEGR.SKPL M/PF PERF E3454 PERF E3475 PERF E3478 PERF E3500 PERF E3510 PERF E3517 PERF E3564 PERF E3569 PERF E3576 PERF E3577 PERF E3592 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT05 * HOVEDPERSON, ENLIG, DIPLOMAT PERF E3454 PERF E3475 PERF E3500 PERF E3510 PERF E3517 PERF E3564 PERF E3569 PERF E3577 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT06 * HOVEDPERSON, ENLIG, SOMAND PERF E3454 PERF E3475 PERF E3500 PERF E3510 PERF E3517 PERF E3564 PERF E3569 PERF E3577 PERF E3593 PERF E3598 PERF E3602 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT07 * HOVEDPERSON, ENLIG, "SLETNING" B RKT03 RKT08 * HOVEDPERSON, ENLIG, 4-]RS PERF E3454 PERF E3475 PERF E3500 PERF E3510 PERF E3517 PERF E3564 PERF E3569 PERF E3577 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT09 * HOVEDPERSON, GIFT, FULD SKPL PERF E3454 PERF E3457 PERF E3458 PERF E3469 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF FINDFLD,=D'168' BOK RKT091 PERF E3517 RKT091 PERF E3564 PERF E3568 PERF E3577 PERF E3591 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT10 * HOVEDPERSON, GIFT, DIPLOMAT PERF E3454 PERF E3457 PERF E3458 PERF E3469 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF E3517 PERF E3564 PERF E3568 PERF E3577 PERF E3591 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT11 * HOVEDPERSON, GIFT, SOMAND PERF E3454 PERF E3457 PERF E3458 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF E3517 PERF E3564 PERF E3568 PERF E3577 PERF E3591 PERF E3593 PERF E3598 PERF E3602 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT12 * HOVEDPERSON, GIFT, 4-]RS PERF E3454 PERF E3457 PERF E3458 PERF E3469 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF E3517 PERF E3564 PERF E3568 PERF E3577 PERF E3591 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT13 * BIPERSON, GIFT, FULD SKPL PERF E3454 PERF E3457 PERF E3458 PERF E3469 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF E3567 PERF E3568 PERF E3577 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT14 * BIPERSON, GIFT, SOMAND PERF E3454 PERF E3457 PERF E3458 PERF E3469 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF E3567 PERF E3568 PERF E3577 PERF E3593 PERF E3598 PERF E3602 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT15 * BIPERSON, GIFT, 4-]R PERF E3454 PERF E3457 PERF E3458 PERF E3469 PERF E3475 PERF E3478 PERF E3506 PERF E3507 PERF E3512 PERF E3567 PERF E3568 PERF E3577 PERF E3593 PERF E3598 PERF E3604 PERF E3605 PERF E3614 PERF E3683 B RKT21 RKT16 * BIPERSON, GIFT, DIPLOMAT B RKT15 EJECT RKT21 TBF TERROR,RKEXIT * INPUT ERROR(S) FOUND B RKERROR2 RKT22 * ERROR IN BOOLEAN SETTING MOVE GSWBCD4,=D'9' B RKERROR RKT22A * SAMBESKATNINGSKODE MANGLER MOVE GSWBCD4,=D'7' B RKERROR RKT22B * SKATTEPLIGTENS OMFANG MANGLER MOVE GSWBCD4,=D'6' B RKERROR RKT22C * INTET REGISTRERET MOVE GSWBCD4,=D'8' B RKERROR RKEXIT CMP CBIN0,CBIN0 RET RKERROR ADD GSWBCD4,=D'9990' RKERROR2 CMP CBIN0,CBIN1 RET PEND EJECT FINDFLD PROC $FNBR MOVE GSWBCD6,=D'0' MOVE GSWBCD4,$FNBR MOVE GSWBIN8,CBIN1 MOVE GSWBIN7,CBIN1 MOVE GSWBIN4,CBIN1 FIND010 CBE FIELD(GSWBIN7,GSWBIN8),GSWBCD4,FIND020 ADD GSWBIN4,CBIN1 CBG GSWBIN4,GSWBIN3,FIND030 NO MORE INPUT ? ADD GSWBIN8,CBIN1 CBNG GSWBIN8,CBIN4,FIND010 MOVE GSWBIN8,CBIN1 ADD GSWBIN7,CBIN1 CBNG GSWBIN7,CBIN12,FIND010 B FIND030 FIND020 MOVE GSWBCD6,SAVEF(GSWBIN7,GSWBIN8) CMP CBIN0,CBIN0 B FIND090 FIND030 CMP CBIN0,CBIN1 FIND090 RET PEND EJECT SETDIV PROC PERF FINDFLD,=D'101' SAMBESKATNINGSKODE MOVE SAMSKAT,GSWBCD6 PERF FINDFLD,=D'106' SKATTEPLIGTENS OMFANG MOVE OMF,GSWBCD6 MOVE GSWBIN7,CBIN12 MOVE GSWBIN8,CBIN4 SETD010 CBNE FIELD(GSWBIN7,GSWBIN8),=D'0',SETD020 SUB GSWBIN8,CBIN1 BP SETD010 MOVE GSWBIN8,CBIN4 SUB GSWBIN7,CBIN1 BP SETD010 MOVE GSWBIN3,CBIN0 B SETD030 SETD020 SUB GSWBIN7,CBIN1 MUL GSWBIN7,CBIN4 ADD GSWBIN7,GSWBIN8 MOVE GSWBIN3,GSWBIN7 CREATE LIMIT FOR FINDFLD-PROC SETD030 RET PEND DIV100 PROC BCD MOVE GSWBCD7,BCD CBE GSWBCD7,=D'0',DIV90 DIV GSWBCD7,=D'100' MOVE BCD,GSWBCD7 DIV90 RET PEND EJECT E3454 PROC TBT TERROR,E3454EX PERF FINDFLD,=D'252' BNOK E3454EX PERF FINDFLD,=D'245' BOK E3454EX PERF FINDFLD,=D'207' BOK E3454EX SET TERROR MOVE GSWBCD4,=D'3450' ADD GSWBCD4,=D'4' E3454EX RET PEND EJECT E3457 PROC TBT TERROR,E3457EX PERF FINDFLD,=D'170' ENKEKODE BNOK E3457EX CBNE GSWBCD6,=D'7',E3457EX ENKEKODE 7? MOVE GSWBIN7,CBIN12 MOVE GSWBIN8,CBIN4 E345710 MOVE GSWBCD6,FIELD(GSWBIN7,GSWBIN8) CBE GSWBCD6,=D'0',E345715 CBE GSWBCD6,=D'120',E3457ER CBE GSWBCD6,=D'187',E345720 CBE GSWBCD6,=D'264',E3457ER CBE GSWBCD6,=D'271',E3457ER CBE GSWBCD6,=D'290',E3457ER CBE GSWBCD6,=D'295',E3457ER CBE GSWBCD6,=D'473',E3457ER CBE GSWBCD6,=D'651',E3457ER CBE GSWBCD6,=D'675',E3457ER CBE GSWBCD6,=D'687',E3457ER CBE GSWBCD6,=D'702',E3457ER CBE GSWBCD6,=D'707',E3457ER CBE GSWBCD6,=D'997',E3457ER E345715 SUB GSWBIN8,CBIN1 BP E345710 MOVE GSWBIN8,CBIN4 SUB GSWBIN7,CBIN1 BP E345710 B E3457EX E345720 MOVE GSWBIN1,GSWBCD6 IB GSWBIN1,E3457EX,E3457ER,E3457ER,E3457ER, C E3457ER,E3457EX,E3457ER B E3457EX E3457ER SET TERROR MOVE GSWBCD4,=D'3450' ADD GSWBCD4,=D'7' E3457EX RET PEND EJECT E3458 PROC TBT TERROR,E3458EX PERF FINDFLD,=D'170' BNOK E3458EX CBNE GSWBCD6,=D'8',E3458EX MOVE GSWBIN7,CBIN12 MOVE GSWBIN8,CBIN4 E345810 MOVE GSWBCD6,FIELD(GSWBIN7,GSWBIN8) CBE GSWBCD6,=D'0',E345820 CBE GSWBCD6,=D'120',E3458ER CBE GSWBCD6,=D'264',E3458ER CBE GSWBCD6,=D'271',E3458ER CBE GSWBCD6,=D'473',E3458ER CBE GSWBCD6,=D'702',E3458ER CBE GSWBCD6,=D'707',E3458ER CBE GSWBCD6,=D'865',E3458ER E345820 SUB GSWBIN8,CBIN1 BP E345810 MOVE GSWBIN8,CBIN4 SUB GSWBIN7,CBIN1 BP E345810 B E3458EX E3458ER SET TERROR MOVE GSWBCD4,=D'3450' ADD GSWBCD4,=D'8' E3458EX RET PEND EJECT E3469 PROC TBT TERROR,E3469EX PERF FINDFLD,=D'264' BNOK E3469EX PERF FINDFLD,=D'473' BNOK E3469EX SET TERROR MOVE GSWBCD4,=D'3469' E3469EX RET PEND EJECT E3475 PROC TBT TERROR,E3475EX PERF FINDFLD,=D'517' BOK E347510 PERF FINDFLD,=D'618' BOK E347510 PERF FINDFLD,=D'668' BNOK E3475EX E347510 PERF FINDFLD,=D'175' BOK E3475EX E3475ER SET TERROR MOVE GSWBCD4,=D'3470' ADD GSWBCD4,=D'5' E3475EX RET PEND EJECT E3478 PROC TBT TERROR,E3478EX PERF FINDFLD,=D'168' ERKL KODE BNOK E3478EX * 1) MOVE GSWBIN1,OMF IB GSWBIN1,E3478ER,E3478ER,E3478ER,E347810, C E347810,E3478ER E347810 * 2) PERF FINDFLD,=D'120' BOK E3478ER * 3) PERF FINDFLD,=D'271' BOK E3478ER * 4) PERF FINDFLD,=D'290' BOK E3478ER PERF FINDFLD,=D'295' BOK E3478ER * 5) PERF FINDFLD,=D'702' CBNE GSWBCD6,=D'0',E3478ER PERF FINDFLD,=D'707' CBNE GSWBCD6,=D'0',E3478ER * 6) PERF FINDFLD,=D'170' BNOK E3478EX E3478ER SET TERROR MOVE GSWBCD4,=D'3470' ADD GSWBCD4,=D'8' E3478EX RET PEND EJECT E3500 PROC TBT TERROR,E3500EX PERF FINDFLD,=D'264' BOK E3500ER PERF FINDFLD,=D'473' BNOK E3500EX E3500ER SET TERROR MOVE GSWBCD4,=D'3500' E3500EX RET PEND EJECT E3506 PROC TBT TERROR,E3506EX PERF FINDFLD,=D'264' BNOK E3506EX CBNG GSWBCD6,MEDHJ,E3506EX SET TERROR MOVE GSWBCD4,=D'3500' ADD GSWBCD4,=D'6' E3506EX RET PEND EJECT E3507 PROC TBT TERROR,E3507EX PERF FINDFLD,=D'473' BNOK E3507EX CBNG GSWBCD6,MEDHJ,E3507EX SET TERROR MOVE GSWBCD4,=D'3500' ADD GSWBCD4,=D'7' E3507EX RET PEND EJECT E3510 PROC TBT TERROR,E3510EX PERF FINDFLD,=D'170' BNOK E3510EX MOVE GSWBIN1,GSWBCD6 IB GSWBIN1,E3510EX,E3510ER,E3510EX,E3510ER, C E3510ER,E3510EX E3510ER SET TERROR MOVE GSWBCD4,=D'3510' E3510EX RET PEND EJECT E3512 PROC TBT TERROR,E3512EX PERF FINDFLD,=D'473' BNOK E3512EX PERF FINDFLD,=D'221' BOK E351210 PERF FINDFLD,=D'435' BOK E3512EX B E3512ER E351210 PERF FINDFLD,=D'435' BOK E3512ER B E3512EX E3512ER SET TERROR MOVE GSWBCD4,=D'3510' ADD GSWBCD4,=D'2' E3512EX RET PEND EJECT E3517 PROC TBT TERROR,E3517EX PERF FINDFLD,=D'613' MOVE GSWBCD2,GSWBCD6 PERF FINDFLD,=D'601' MOVE GSWBCD1,GSWBCD6 PERF FINDFLD,=D'606' SUB GSWBCD1,GSWBCD6 PERF DIV100,GSWBCD1 PERF DIV100,GSWBCD2 CBE GSWBCD1,GSWBCD2,E3517EX PERF FINDFLD,=D'618' PERF DIV100,GSWBCD6 CBE GSWBCD6,GSWBCD1,E3517EX E3517ER SET TERROR MOVE GSWBCD4,=D'3510' ADD GSWBCD4,=D'7' E3517EX RET PEND EJECT E3547 PROC TBT TERROR,E3547EX CBNE SAMSKAT,=D'1',E3547ER CBE OMF,=D'2',E354705 CBE OMF,=D'6',E354705 B E3547ER E354705 MOVE GSWBIN7,CBIN12 MOVE GSWBIN8,CBIN4 E354710 MOVE GSWBCD6,FIELD(GSWBIN7,GSWBIN8) CBE GSWBCD6,=D'0',E354720 CBE GSWBCD6,=D'101',E354720 CBE GSWBCD6,=D'106',E354720 CBE GSWBCD6,=D'182',E354720 CBE GSWBCD6,=D'187',E354720 CBE GSWBCD6,=D'175',E354720 CBE GSWBCD6,=D'795',E354720 CBE GSWBCD6,=D'790',E354720 CBE GSWBCD6,=D'199',E354720 B E3547ER E354720 SUB GSWBIN8,CBIN1 BP E354710 MOVE GSWBIN8,CBIN4 SUB GSWBIN7,CBIN1 BP E354710 B E3547EX E3547ER SET TERROR MOVE GSWBCD4,=D'3547' E3547EX RET PEND EJECT E3564 PROC TBT TERROR,E3564EX E3564EX RET PEND EJECT E3567 PROC TBT TERROR,E3567EX CBNE SAMSKAT,=D'2',E3567EX PERF FINDFLD,=D'618' BOK E3567ER PERF FINDFLD,=D'613' BNOK E3567EX E3567ER SET TERROR MOVE GSWBCD4,=D'3560' ADD GSWBCD4,=D'7' E3567EX RET PEND EJECT E3568 PROC TBT TERROR,E3568EX PERF FINDFLD,=D'93' BNOK E3568EX MOVE GSWBCD1,GSWBCD6 DIV GSWBCD6,=D'2' MUL GSWBCD6,=D'2' SUB GSWBCD1,GSWBCD6 FIND EVEN/ODD MOVE GSWBCD6,CPRNR DIV GSWBCD6,=D'2' MUL GSWBCD6,=D'2' MOVE GSWBCD2,CPRNR SUB GSWBCD2,GSWBCD6 CBNE GSWBCD2,GSWBCD1,E3568EX SET TERROR MOVE GSWBCD4,=D'3560' ADD GSWBCD4,=D'8' E3568EX RET PEND EJECT E3569 PROC TBT TERROR,E3569EX CBE SAMSKAT,=D'2',E3569EX PERF FINDFLD,=D'93' BNOK E3569EX SET TERROR MOVE GSWBCD4,=D'3560' ADD GSWBCD4,=D'9' E3569EX RET PEND EJECT E3576 PROC TBT TERROR,E3576EX CBE OMF,=D'1',E357610 CBE OMF,=D'3',E357610 B E3576EX E357610 MOVE GSWBIN7,CBIN12 MOVE GSWBIN8,CBIN4 E357620 MOVE GSWBCD6,FIELD(GSWBIN7,GSWBIN8) CBE GSWBCD6,=D'0',E357630 CBE GSWBCD6,=D'245',E3576ER CBE GSWBCD6,=D'555',E3576ER CBE GSWBCD6,=D'271',E3576ER CBE GSWBCD6,=D'290',E3576ER CBE GSWBCD6,=D'295',E3576ER CBE GSWBCD6,=D'625',E3576ER CBE GSWBCD6,=D'675',E3576ER CBE GSWBCD6,=D'252',E3576ER E357630 SUB GSWBIN8,CBIN1 BP E357620 MOVE GSWBIN8,CBIN4 SUB GSWBIN7,CBIN1 BP E357620 B E3576EX E3576ER SET TERROR MOVE GSWBCD4,=D'3570' ADD GSWBCD4,=D'6' E3576EX RET PEND EJECT E3577 PROC TBT TERROR,E3577EX PERF FINDFLD,=D'168' BOK E3577EX PERF FINDFLD,=D'517' BOK E3577EX PERF FINDFLD,=D'505' BOK E3577EX E3577ER SET TERROR MOVE GSWBCD4,=D'3570' ADD GSWBCD4,=D'7' E3577EX RET PEND EJECT E3591 PROC TBT TERROR,E3591EX CBNE SAMSKAT,=D'2',E3591EX PERF FINDFLD,=D'113' BNOK E3591EX CBE GSWBCD6,=D'0',E3591EX CBE GSWBCD6,=D'1',E3591EX CBE GSWBCD6,=D'8',E3591EX SET TERROR MOVE GSWBCD4,=D'3590' ADD GSWBCD4,=D'1' E3591EX RET PEND EJECT E3592 PROC TBT TERROR,E3592EX PERF FINDFLD,=D'113' BNOK E3592EX CBE GSWBCD6,=D'4',E359210 CBE GSWBCD6,=D'9',E359210 B E3592EX E359210 CBE OMF,=D'3',E3592EX SET TERROR MOVE GSWBCD4,=D'3590' ADD GSWBCD4,=D'2' E3592EX RET PEND EJECT E3593 PROC TBT TERROR,E3593EX MOVE GSWBCD1,=D'0' MOVE GSWBIN7,CBIN12 MOVE GSWBIN8,CBIN4 E359310 MOVE GSWBCD6,FIELD(GSWBIN7,GSWBIN8) CBE GSWBCD6,=D'0',E359315 MOVE GSWBCD2,SAVEF(GSWBIN7,GSWBIN8) CBE GSWBCD6,=D'202',E359320 CBE GSWBCD6,=D'207',E359320 CBE GSWBCD6,=D'245',E359320 CBE GSWBCD6,=D'219',E359320 CBE GSWBCD6,=D'221',E359320 CBE GSWBCD6,=D'233',E359320 CBE GSWBCD6,=D'240',E359320 CBE GSWBCD6,=D'264',E359320 CBE GSWBCD6,=D'271',E359320 CBE GSWBCD6,=D'290',E359320 CBE GSWBCD6,=D'295',E359320 CBE GSWBCD6,=D'252',E359320 CBE GSWBCD6,=D'238',E359320 CBE GSWBCD6,=D'428',E359330 CBE GSWBCD6,=D'435',E359330 CBE GSWBCD6,=D'404',E359330 CBE GSWBCD6,=D'416',E359330 CBE GSWBCD6,=D'442',E359330 CBE GSWBCD6,=D'411',E359330 CBE GSWBCD6,=D'430',E359330 CBE GSWBCD6,=D'454',E359330 CBE GSWBCD6,=D'423',E359330 CBE GSWBCD6,=D'454',E359330 CBE GSWBCD6,=D'480',E359330 CBE GSWBCD6,=D'473',E359330 E359315 SUB GSWBIN8,CBIN1 BP E359310 MOVE GSWBIN8,CBIN4 SUB GSWBIN7,CBIN1 BP E359310 B E359340 E359320 ADD GSWBCD1,GSWBCD2 B E359315 E359330 SUB GSWBCD1,GSWBCD2 B E359315 E359340 PERF DIV100,GSWBCD1 PERF FINDFLD,=D'505' PERF DIV100,GSWBCD6 CBE GSWBCD6,GSWBCD1,E3593EX PERF FINDFLD,=D'517' BNOK E3593ER PERF DIV100,GSWBCD6 CBE GSWBCD6,GSWBCD1,E3593EX E3593ER SET TERROR MOVE GSWBCD4,=D'3590' ADD GSWBCD4,=D'3' E3593EX RET PEND EJECT E3598 PROC TBT TERROR,E3598EX PERF FINDFLD,=D'555' BNOK E3598EX MOVE GSWBCD1,CPRNR MOVE GSWBCD2,CPRNR DIV GSWBCD2,=D'10000' MUL GSWBCD2,=D'10000' SUB GSWBCD1,GSWBCD2 CBNL GSWBCD1,=D'5000',E3598EX * EXTRACT BIRTHYEAR MOVE GSWBCD1,CPRNR DIV GSWBCD1,=D'10000' MOVE GSWBCD2,GSWBCD1 DIV GSWBCD2,=D'100' MUL GSWBCD2,=D'100' SUB GSWBCD1,GSWBCD2 BORN IN 19XX MOVE GSWBCD2,YEAR SUB GSWBCD2,GSWBCD1 CBNL GSWBCD2,=D'68',E3598EX SET TERROR MOVE GSWBCD4,=D'3590' ADD GSWBCD4,=D'8' E3598EX RET PEND EJECT E3602 PROC TBT TERROR,E3602EX PERF FINDFLD,=D'719' BNOK E3602EX CBNG GSWBCD6,=D'0',E3602EX PERF FINDFLD,=D'271' BOK E3602EX SET TERROR MOVE GSWBCD4,=D'3600' ADD GSWBCD4,=D'2' E3602EX RET PEND EJECT E3604 PROC TBT TERROR,E3604EX PERF FINDFLD,=D'586' BNOK E3604EX PERF FINDFLD,=D'290' BOK E3604EX SET TERROR MOVE GSWBCD4,=D'3600' ADD GSWBCD4,=D'4' E3604EX RET PEND EJECT E3605 PROC TBT TERROR,E3605EX PERF FINDFLD,=D'290' CBE GSWBCD6,=D'0',E3605EX PERF FINDFLD,=D'586' BOK E3605EX SET TERROR MOVE GSWBCD4,=D'3600' ADD GSWBCD4,=D'5' E3605EX RET PEND EJECT E3614 PROC TBT TERROR,E3614EX PERF FINDFLD,=D'651' MOVE GSWBCD1,GSWBCD6 PERF FINDFLD,=D'656' SUB GSWBCD1,GSWBCD6 PERF DIV100,GSWBCD1 PERF FINDFLD,=D'663' PERF DIV100,GSWBCD6 CBE GSWBCD6,GSWBCD1,E3614EX PERF FINDFLD,=D'668' BNOK E3614ER PERF DIV100,GSWBCD6 MOVE GSWBCD2,GSWBCD6 CBE GSWBCD1,GSWBCD2,E3614EX E3614ER SET TERROR MOVE GSWBCD4,=D'3614' E3614EX RET PEND EJECT E3683 PROC TBT TERROR,E3683EX CBE SAMSKAT,=D'1',E3683EX PERF FINDFLD,=D'170' BNOK E3683EX CBNE GSWBCD6,=D'3',E3683EX SET TERROR MOVE GSWBCD4,=D'3683' E3683EX RET PEND END