Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50446/loader.sav
There are 2 other files named loader.sav in the archive. Click here to see a list.
h ' |X e- ?x - |Px . s( /+ 3(' FILENAME DIALOGUE:') + 9(1X,A1,'START OF GT40 LOADER LOG FILE (EIGHT BIT)',A1) + ?(' ? GT40 NOT INITIALIZED OR HANDLER TRANSFER FAILED') + E(' %ATTEMPT #',I1,' CHECKSUM ERROR FOR BLOCK #',I2) + G(' ? LOAD FAILS') + L(1X,A1,'LOAD SUCCESSFUL, NO SELF START',A1) + Q(1X,A1,'LOAD SUCCESSFUL, PROGRAM STARTED',A1)+ W(' ? INVALID REPLY FROM GT40, LOADER IS HUNG') " 0b -\ '4 4 4 4
4 4
4 4
4 4 -\ '4 4 4 4
4 4
X@ c " 3b -\ v-\ l4 3D + l X@ i " 9b -\ *4 4 -\ `: $ D -\ 4 !4 4 -\ [4 !4 -\ l4 3D + l 2D + X@ w " ?b : $ 2d + p X@ | " Eb -\ *4 4 -\ ` 2D + X@ " Gb 2D + X@ " Lb 3D g O 3F g O A 5$ X@ " Qb -\ *4 4 -\ `+ + 0GIDUS.BIN xSEQINxIMAGEpLOADER.LOGpSEQOUT p
P ) " $ )` r(+ !(' %BLOCK #',I2,' NULL BYTE EXPECTED BUT ',O3,' OBTAINED') + &(' ? BLOCK #',I2,' COUNT TOO LARGE AT ',I6) + +(' ? CHECKSUM ERROR ON DSK FOR BLOCK#', I2) + 5(1X,A1,'TRANSFERRING BLOCK #',I2,' BYTE COUNT = ', I5,'(10) LOAD ADDRESS = ',O6,A1) -\ 34 @ $ 2D + 5-\ 34 @ 4D >
X@ < " b + 5 $ D -\ 34 @ -\ 34 @ $ $ $ $ $ . F
$ h2d
+ M
X@ I " !b
-\ *4 4
-\ `
!&