--- cci/d/pits/init.x 2019/07/28 12:24:19 1.1.1.1 +++ cci/d/pits/init.x 2019/07/28 12:30:31 1.1.1.2 @@ -359,13 +359,13 @@ _Eksp6: .long 0 # I/O buffers # .globl _iob0 -_iob0: .space 1024 +_iob0: .space 24576 .globl _iob1 _iob1: .space 1024 .globl _iob2 _iob2: .space 1024 .globl _iob3 -_iob3: .space 1024 +_iob3: .space 24576 .globl _iob4 _iob4: .space 1024 .globl _iob5 @@ -583,11 +583,20 @@ go: beql 1f callf $4,_vddc /* Set up to test VDDCs */ cmpl $0,r0 /* See if there were any controllers */ - jeql 2f + jeql 1f callf $4,_vddc_ex /* Test VDDCs */ -2: - clrl _vddc_ON /* Print Done msg */ - brw 1f + clrl _vddc_ON /* next test */ +# +# +# check if EXIT was selected, if so print message and halt +# otherwise go to beginning of monitor. +# +1: + andl3 $0x8,tst_mask,r0 /* Is exit selected */ + jneq 1f /* skip to next test */ + pushab hmsg /* print halt message */ + callf $8,_writes /* print it */ + halt /* halt, return to CP prompt */ # # # @@ -692,11 +701,13 @@ _viocs: _vddcs: .long 0 .align 1 -imsg: .ascii "\n\nPeripherial Integrated Test System r1.2\n", +hmsg: .ascii "\n\nexiting from PITS...\n\0" +imsg: .ascii "\n\nPeripherial Integrated Test System r1.4\n", .ascii "\nSelect one of the following :\n", .ascii "\n 0 - Run all test", .ascii "\n 1 - Tape Master test", .ascii "\n 2 - VIOC test", - .ascii "\n 3 - VDDC test\n", + .ascii "\n 3 - VDDC test", + .ascii "\n 4 - Exit PITS\n", .ascii "\nEnter the appropriate test number : \0" nmsg: .ascii "\n\nNo VIOCs are installed\n\0"