home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / diagnose / pcconfig.arj / IRQ.BAS < prev    next >
BASIC Source File  |  1991-02-17  |  1KB  |  39 lines
  1. 1100 REM ======== TEST IRQ ACTIVATION ========
  2. 1105 DEF SEG=&HF000: E0%=PEEK(&HFFFE): AT%=0
  3. 1107 IF E0%=248 THEN AT%=1
  4. 1108 IF E0%=252 THEN AT%=1
  5. 1120 I%=INP(&H21)
  6. 1130 FOR N%=0 TO 7
  7. 1131 PRINT "IRQ";N%;" - ";
  8. 1132 J%=INT(I%/2)
  9. 1133 GOSUB 1160
  10. 1134 I%=J%
  11. 1135 NEXT N%
  12. 1138 IF AT%=0 THEN 1158
  13. 1140 I%=INP(&HA1)
  14. 1150 FOR N%=8 TO 15
  15. 1151 PRINT "IRQ";N%;" - ";
  16. 1152 J%=INT(I%/2)
  17. 1153 GOSUB 1160
  18. 1154 I%=J%
  19. 1155 NEXT N%
  20. 1158 END
  21. 1160 IF N%=0 THEN PRINT "System Timer",
  22. 1161 IF N%=1 THEN PRINT "Keyboard",
  23. 1162 IF N%=2 THEN IF AT%=0 THEN PRINT "(Reserved)", ELSE PRINT "Slave PIC",
  24. 1163 IF N%=3 THEN PRINT "Serial COM2",
  25. 1164 IF N%=4 THEN PRINT "Serial COM1",
  26. 1165 IF N%=5 THEN IF AT%=0 THEN PRINT "Hard Disk", ELSE PRINT "Parallel LPT2",
  27. 1166 IF N%=6 THEN PRINT "Diskette",
  28. 1167 IF N%=7 THEN PRINT "Parallel LPT1",
  29. 1168 IF N%=8 THEN PRINT "Real-time clock",
  30. 1169 IF N%=9 THEN PRINT "Redirected IRQ2",
  31. 1170 IF N%=10 THEN PRINT "(Reserved)",
  32. 1171 IF N%=11 THEN PRINT "(Reserved)",
  33. 1172 IF N%=12 THEN PRINT "(Reserved)",
  34. 1173 IF N%=13 THEN PRINT "Maths coprocessor",
  35. 1174 IF N%=14 THEN PRINT "Hard disk",
  36. 1175 IF N%=15 THEN PRINT "(Reserved)",
  37. 1176 IF I%=J%+J% THEN PRINT "- Active" ELSE PRINT "- Inactive"
  38. 1178 RETURN
  39.