TURUN.ASM 2/24/86 Page: 1 14:08:03 LOC OBJ LINE SOURCE CHASM version 4.03 0100 1 ; Tiny Pascal assembler code 0100 BC290B 2 MOV SP,OFFSET(STACKORG) 0103 8BEC 3 MOV BP,SP 0105 E81901 4 CALL MAIN 0108 CD20 5 INT 020H 010A 6 ; included 010A 7 ; STDIO.HDR 010A 8 ; 010A 9 ; READ and WRITE routines needed for Tiny Pascal 010A 10 ; 010A 11 SYS_RCHAR PROC NEAR ; Read single character from 010A B401 12 MOV AH,1 010C CD21 13 INT 021H 010E C3 14 RET ; value comes back in AL 010F 15 ENDP 010F 16 010F 17 SYS_WRCHAR PROC NEAR ; Write a single character ( 010F B402 18 MOV AH,2 0111 CD21 19 INT 021H 0113 C3 20 RET 0114 21 ENDP 0114 22 0114 23 SYS_WHEX PROC NEAR ; Write a single HEX number 0114 80FA0A 24 CMP DL,10 0117 7C07 25 JL SYS_01 0119 80C237 26 ADD DL,55 ; 'A' - 10 011C E8F0FF 27 CALL SYS_WRCHAR 011F C3 28 RET 0120 80C230 29 SYS_01 ADD DL,'0' 0123 E8E9FF 30 CALL SYS_WRCHAR 0126 C3 31 RET 0127 32 ENDP 0127 33 0127 34 SYS_IWRT PROC NEAR ; Write an integer to stdout 0127 B604 35 MOV DH,4 ; used as a counter 0129 D1C0 36 SYS_11 ROL AX 012B D1C0 37 ROL AX 012D D1C0 38 ROL AX 012F D1C0 39 ROL AX 0131 8AD0 40 MOV DL,AL 0133 80E20F 41 AND DL,0FH 0136 50 42 PUSH AX 0137 E8DAFF 43 CALL SYS_WHEX 013A 58 44 POP AX 013B FECE 45 DEC DH 013D 75EA 46 JNZ SYS_11 013F C3 47 RET 0140 48 ENDP 0140 49 0140 50 SYS_SWRT PROC NEAR ; Write a string terminated 0140 8A5700 51 SYS_21 MOV DL,0[BX] 0143 80FA00 52 CMP DL,0 0146 7501 53 JNZ SYS_22 ; zero terminator? 0148 C3 54 RET 0149 E8C3FF 55 SYS_22 CALL SYS_WRCHAR 014C 43 56 INC BX 014D EBF1 57 JMPS SYS_21 014F 58 ENDP 014F 59 014F 60 SYS_WRTLN PROC NEAR ; write carriage return/lin 014F B20D 61 MOV DL,0DH 0151 E8BBFF 62 CALL SYS_WRCHAR 0154 B20A 63 MOV DL,0AH 0156 E8B6FF 64 CALL SYS_WRCHAR 0159 C3 65 RET 015A 66 ENDP 015A 67 015A 68 READ PROC NEAR ; read a HEX number fr 015A BA0000 69 MOV DX,0 ; clear DX 015D E8AAFF 70 READ_01 CALL SYS_RCHAR ; get one character in 0160 71 ; won't affect DX 0160 3C0D 72 CMP AL,0DH 0162 7506 73 JNZ READ_02 0164 52 74 PUSH DX ; save the thing we've 0165 E8E7FF 75 CALL SYS_WRTLN ; send a carriage retu 0168 58 76 POP AX ; was an ENTER 0169 C3 77 RET 016A 3C20 78 READ_02 CMP AL,' ' 016C 74EF 79 JZ READ_01 ; ignore spaces 016E 2C30 80 SUB AL,'0' ; start conversion to 0170 3C09 81 CMP AL,9 0172 7E02 82 JLE READ_03 0174 2C07 83 SUB AL,7 ; turn 'A' into 0AH 0176 3C0F 84 READ_03 CMP AL,0FH 0178 7E02 85 JLE READ_04 017A 2C20 86 SUB AL,32 ; turn 'a' into 0AH 017C 240F 87 READ_04 AND AL,0FH ; clip for good measur 017E D1E2 88 SHL DX ; prepare DX for hex v 0180 D1E2 89 SHL DX 0182 D1E2 90 SHL DX 0184 D1E2 91 SHL DX 0186 08C2 92 OR DL,AL 0188 EBD3 93 JMPS READ_01 ; go do some more 018A 94 ENDP 018A 95 018A 96 READLN PROC NEAR 018A EBCE 97 JMPS READ ; does the same thing 018C 98 ENDP 018C 99 018C 100 ; ... end of include STDIO.HDR 018C 101 ; {TURUN -- A sample program written in Tiny Pascal 018C 102 ; var I, J, K, PROBLEM; 018C 103 ; 018C 104 ; {*********************} 018C 105 ; function ISLESS(N1, N2); 018C 106 ; begin {returns 1 if n1