1: ; 2: ; TEST02.ASM 3: ; 4: ; MALCOLM MACLEOD - 21.03.2017 5: ; 6: ; THIS PROGRAM WAS WRITTEN TO ASSIST WITH DEBUGGING MY SD SYSTEMS SBC-200 7: ; S-100 BOARD. 8: ; 9: ; NOTE THE FIRST TWO LINES (WHICH ARE TAKEN FROM PAGE 2-15 OF THE MANUAL) ARE 10: ; TO RESET THE HARDWARE THAT CAUSED EXECUTION TO OCCUR AT 0xE000. 11: ; 12: ; THIS CODE GOES IN A 2716 EPROM IN ROM0 SOCKET, AT ADDRESS 0xE000. 13: ; 14: ; IT COMPILES UNDER "ZMAC VERSION 19SEP2013" BY GEORGE PHILLIPS USING THE 15: ; COMMAND "ZMAC TEST02.ASM". 16: 17: 18: 19: - E000 .ORG 0xE000 20: 21: 0+10 E000 C303E0 START: JP MAIN_10 22: 10+11 E003 DB7F MAIN_10:IN A,(7FH) 23: - E005 MAIN_20:; SETUP USART 24: 21+7 E005 3E4E LD A,4EH 25: 28+11 E007 D37D OUT (7DH),A 26: 39+7 E009 3E37 LD A,37H 27: 46+11 E00B D37D OUT (7DH),A 28: ; SETUP CTC 29: 57+7 E00D 3E45 LD A,45H 30: 64+11 E00F D378 OUT (78H),A 31: 75+7 E011 3E0D LD A,13 ; 9600 BAUD 32: 82+11 E013 D378 OUT (78H),A 33: - E015 SEROUT: ; SEND OUT A BYTE 34: 93+11 E015 DB7D IN A,(7DH) ; INPUT STATUS 35: 104+7 E017 E601 AND 1 36: 111+10 E019 CA15E0 JP Z,SEROUT ; WAIT FOR TX READY 37: 121+7 E01C 3E30 LD A,30H ; ASCII '0' 38: 128+11 E01E D37C OUT (7CH),A 39: 40: 139+10 E020 C315E0 JP SEROUT 41: 42: - E023 .END Statistics: 4 passes 0 jr promotions 4 symbols 35 bytes Symbol Table: main_10 e003 main_20 e005 serout e015 start e000