|
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: 1466 (0x5ba)
Notes: pts_type(UF)
Names: »JOSKB.UF«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/JOSKB.UF«
LED DRKB03 !!RE 0,$$78-04-21$$78-08-24$$ !!IL 1 ADAPTED TO KEYBOARD PTS 6271/72 REL 8.1 78-04-21 !!IL 89 * -----NUMERIC SHIFT-FUNCTION !!RE 138,$$10$$X:F$$ !!IL 208 * BY SETTING X:H = 1 THIS DRIVER IS ADAPTED FOR * KEYBOARD PTS 6271 AND 6272 X:H EQU 1 NSHIFT EQU X:H !!IL 588 IFT NSHIFT=0 CWK A4,1 INDICATE SKIP CHARACTER RF(E) EXIT YESD XIF !!IL 703 IFT NSHIFT=0 SUK A4,/7C CODE > /7B RF(NN) KON500 YES LDR A4,A2 RESTORE CHARACTER XIF !!RE 710,$$10$$10 FUNCTION$$ !!RE 711,$$110$$110 NO$$ !!RE 712,$$40$$40 YES$$ !!DL 713 KON105 EQU * ANK A5,/10 SRL A5,3 !!RE 717,$$140$$140 SHIFT ON$$ !!RE 719,$$160$$160 SHIFT OFF$$ !!DL 720 RF(Z) KON170 CONTROL ON IFT NSHIFT=1 SUK A4,2 RF(N) KON125 CONTROL OFF RF(E) KON140 NUMERICAL SHIFT ON RF KON160 NUMERICAL SHIFT OFF XIF KON125 EQU * !!RE 736,$$2$$4$$ !!IL 747 KON500 EQU * LDR A4,A4 KEY CODE /7C RF(Z) KON600 YES LDK A4,1 INDICATE SKIP CHARACTER RTN A15 RB KON300 RETURN KON600 EQU * SUR A2,A2 RB KONVER DO START AGAIN !!EN ASM /S KPF /O ASG /E0,TY10